pc vba avec un sous formulaire - VB/VBA/VBS - Programmation
MarshPosté le 25-11-2004 à 10:28:16
j'explique mon pb. J'ai un formulaire avec une liste déroulante comprenant des enregistrements. Quand je choisis un enregistrement, les champs du formulaires se remplissent en fonction de l'enregistrement sélectionné. Le pb, c'est que dans ce formulaire, j'ai un sous formulaire dont les champs devrait aussi se remplir en fonction de la liste déroulante de mon formulaire principal. Comment effectuer cette liaison en VBA
Voila le code que j'ai essayé (qui ne fonctionne pas qu'avec le sous-formumlaire)
- Code de la liste déroulante Private Sub liste_pc_AfterUpdate() Dim Clé As Integer Clé = Me!liste_pc.Column(0) tord.Index = "PrimaryKey" tord.Seek "=", Clé AfficherPc End Sub
Mon formualire principal s'appele f_ordinateur et le sous-formulaire DD. Donc la j'ai essayé de faire un liaison champs fils champs pere - Fonction appelée Public Sub AfficherPc() Forms!f_ordinateur!nompc = tord.Fields("nompc" ) Forms!f_ordinateur!mppc = tord.Fields("mp" ) Forms!f_ordinateur!cartemere = tord.Fields("carte mere" ) Forms!f_ordinateur!processeur = tord.Fields("processeur" ) Forms!f_ordinateur!ram = tord.Fields("ram" ) Forms!f_ordinateur!DD.Form.LinkMasterFields = Forms!f_ordinateur!liste_pc.Column(0) Forms!f_ordinateur!DD.LinkChildFields = tdd.Fields("id_pc" ) End Sub
Marsh Posté le 25-11-2004 à 10:28:16
j'explique mon pb.
J'ai un formulaire avec une liste déroulante comprenant des enregistrements. Quand je choisis un enregistrement, les champs du formulaires se remplissent en fonction de l'enregistrement sélectionné. Le pb, c'est que dans ce formulaire, j'ai un sous formulaire dont les champs devrait aussi se remplir en fonction de la liste déroulante de mon formulaire principal. Comment effectuer cette liaison en VBA
Voila le code que j'ai essayé (qui ne fonctionne pas qu'avec le sous-formumlaire)
- Code de la liste déroulante
Private Sub liste_pc_AfterUpdate()
Dim Clé As Integer
Clé = Me!liste_pc.Column(0)
tord.Index = "PrimaryKey"
tord.Seek "=", Clé
AfficherPc
End Sub
Mon formualire principal s'appele f_ordinateur et le sous-formulaire DD. Donc la j'ai essayé de faire un liaison champs fils champs pere
- Fonction appelée
Public Sub AfficherPc()
Forms!f_ordinateur!nompc = tord.Fields("nompc" )
Forms!f_ordinateur!mppc = tord.Fields("mp" )
Forms!f_ordinateur!cartemere = tord.Fields("carte mere" )
Forms!f_ordinateur!processeur = tord.Fields("processeur" )
Forms!f_ordinateur!ram = tord.Fields("ram" )
Forms!f_ordinateur!DD.Form.LinkMasterFields = Forms!f_ordinateur!liste_pc.Column(0)
Forms!f_ordinateur!DD.LinkChildFields = tdd.Fields("id_pc" )
End Sub
Je vous remercie de votre aide.