Micro.Info • Consulter le sujet - Question Access en programmation (Urgent!)

Consulter les messages sans réponse | Consulter les sujets actifs

Index du forum » Informatique » Programmation

Le fuseau horaire est UTC-5 heures [Heure d’été]

Question Access en programmation (Urgent!)

Modérateur: Membres de 640kb

Page 1 sur 1

[ 12 message(s) ]

Sujet précédent | Sujet suivant

Auteur

Message

Damian

Sujet du message: Question Access en programmation (Urgent!)

Publié: 13 Août 2002, 10:59

Fidèle

Inscription : 28 Jan 2002, 15:47
Message(s) : 633
Localisation : Québec

Bonjour,

J'aimerais faire en sorte dans access que lorsque l'on clique sur une liste de choix que le sous-formulaire correspondant au nom sélectionné change pour la bonne fiche décrivant le nom sans le sous-formulaire.

Comment puis-je arriver à cela?

Voici une image pour mieux comprendre :

Haut

Sicaire

Sujet du message:

Publié: 13 Août 2002, 12:12

Fidèle

Inscription : 08 Jan 2002, 11:08
Message(s) : 575

Je n’ai pas complètement la solution mais ce que je te propose c’est de mettre la liste box dans le sous-formulaire et de mettre ce code dans afterupdate.

Private Sub List_AfterUpdate()
' Find the record that matches the control.

Me.RecordsetClone.FindFirst "[NomID] = " & Me![List]
Me.Bookmark = Me.RecordsetClone.Bookmark

End Sub

Il faut que tu remplace NomID et List par ce qui correspond à tes champs.

Donne moi plus de détails sur tes champs si tu veux que je t’aide un peu plus.

Haut

ASP Kid

Sujet du message:

Publié: 13 Août 2002, 12:12

Occasionnel

Inscription : 06 Fév 2002, 22:42
Message(s) : 185
Localisation : Québec

RESTE CALME!

Va jeter un oeil sur MVPS.ORG et plus particulièrement sur Forms: Have the form move to the record selected in List/Combo box. Adapte le pour ton sous-formulaire.

_________________
HTH

:arrow:

This posting is provided "AS IS" with no warranties, and confers no rights cr*sse!

Haut

Damian

Sujet du message:

Publié: 13 Août 2002, 13:17

Fidèle

Inscription : 28 Jan 2002, 15:47
Message(s) : 633
Localisation : Québec

Sicaire a écrit:

Ta première idée est exellente c'est ce que jai fait (je ne sais pas pourquoi je n'y avais pas pensé!). Pour le code, malheureusement je n'arrive pas a trouver ce que doit être NomID. Ma liste se nomme LstContacts pour information.

Haut

Damian

Sujet du message:

Publié: 13 Août 2002, 13:36

Fidèle

Inscription : 28 Jan 2002, 15:47
Message(s) : 633
Localisation : Québec

Haut

Sicaire

Sujet du message:

Publié: 13 Août 2002, 13:47

Fidèle

Inscription : 08 Jan 2002, 11:08
Message(s) : 575

Damian a écrit:

Tu devrais avoir ceci dans ton code

Code :

Private Sub List_AfterUpdate() 
' Find the record that matches the control. 

Me.RecordsetClone.FindFirst "[No_Contacts] = " & Me![LstContacts] 
Me.Bookmark = Me.RecordsetClone.Bookmark 

End Sub 

et dans les propriétés de la listbox

RowSource= "SELECT TContacts.No_Contacts, TContacts.Nom, TContacts.Prenom FROM TContacts;"
Column Widths= "0;2.5;2.5"
Bound Column= "1"

Je crois que je n'ai rien oublié si jamais tu as un autre problème dit le moi !

Haut

Damian

Sujet du message:

Publié: 13 Août 2002, 15:18

Fidèle

Inscription : 28 Jan 2002, 15:47
Message(s) : 633
Localisation : Québec

Malheureusement sa ne marche pas plus....

Il n'y a absolument aucune réaction et les informations de mon sous-formulaire ne change pas.

De plus, j'essaie de filtrer mon menu déroulant mais lorsque je passe manuellement à la prochaine organisation le menu déroulant ne se met pas à jour pour reflèter les personnes membres de cette organisation.

Haut

Damian

Sujet du message:

Publié: 13 Août 2002, 15:24

Fidèle

Inscription : 28 Jan 2002, 15:47
Message(s) : 633
Localisation : Québec

PS : quand je fais un msgbox de mon Me.Bookmark tout ce que j'obtiens c'est un "?"

Haut

Sicaire

Sujet du message:

Publié: 13 Août 2002, 20:34

Fidèle

Inscription : 08 Jan 2002, 11:08
Message(s) : 575

Damian a écrit:

PS : quand je fais un msgbox de mon Me.Bookmark tout ce que j'obtiens c'est un "?"

Oups j'ai fait un erreur !

Citer:

Private Sub LstContacts_AfterUpdate()
' Find the record that matches the control.

Me.RecordsetClone.FindFirst "[No_Contacts] = " & Me![LstContacts]
Me.Bookmark = Me.RecordsetClone.Bookmark

End Sub

Pour éviter les erreurs lors de l'éxécution tu peux faire ceci:

Citer:

Private Sub LstContacts_AfterUpdate()
' Find the record that matches the control.
On Error goto Err_LstContacts_AfterUpdate

If isNull (LstContacts.BoundColumn) then
'Message si on ne choisie aucun enregistrement dans la liste
'msgbox "bla bla"
Else

Me.RecordsetClone.FindFirst "[No_Contacts] = " & Me![LstContacts]
Me.Bookmark = Me.RecordsetClone.Bookmark
End if

Exit_LstContacts_AfterUpdate:
Exit sub

Err_LstContacts_AfterUpdate:
Msgbox Err.Description
Resume Exit_LstContacts_AfterUpdate

End Sub

Haut

Damian

Sujet du message:

Publié: 13 Août 2002, 23:38

Fidèle

Inscription : 28 Jan 2002, 15:47
Message(s) : 633
Localisation : Québec

Malheureusement j'avais déjà modifier cette erreur mais sa ne marchait pas plus. Je vais vous réenvoyer un nouveau compte rendu de ma situation demain.

Haut

ASP Kid

Sujet du message:

Publié: 14 Août 2002, 12:04

Occasionnel

Inscription : 06 Fév 2002, 22:42
Message(s) : 185
Localisation : Québec

Coudont, c'est pas le sous-formulaire que tu veux positionner?
Si c'est le cas essaye ça:

Code :

Me.SousFormulaire.Form.RecordsetClone.FindFirst "[No_Contacts] = " & Me![LstContacts] 
Me.SousFormulaire.Form.Bookmark = Me.SousFormulaire.Form.RecordsetClone.Bookmark 

où "SousFormulaire" est le nom de ton sous-formulaire.

Pour être plus claire:

Code :

With Me.SousFormulaire.Form
   .RecordsetClone.FindFirst "[No_Contacts] = " & Me![LstContacts] 
   .Bookmark = .RecordsetClone.Bookmark 
End With

_________________
HTH

:arrow:

This posting is provided "AS IS" with no warranties, and confers no rights cr*sse!

Haut

Damian

Sujet du message:

Publié: 14 Août 2002, 14:49

Fidèle

Inscription : 28 Jan 2002, 15:47
Message(s) : 633
Localisation : Québec

J'ai trouvé le problème, c'était plus une erreur de logique qu'autre chose. Le No_Contact n'est pas spécifique à l'individue mais à l'organisme (plusieurs personnes dans un organisme). Donc ils avaient tous le même numéro identificateur. J'ai donc créer un autre champ numéro auto mais spécifique à l'individue.

Merci a tous pour votre aide!

Haut

Page 1 sur 1

[ 12 message(s) ]

Index du forum » Informatique » Programmation

Le fuseau horaire est UTC-5 heures [Heure d’été]

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 1 invité

Vous ne pouvez pas publier de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum