bonjour,
Je voudrais faire un lien entre deux formulaires en code=20
VBA, mais selon deux champs dans le second formulaire.
Voici le code que j'ai essay=E9, mais =E7a me dit=20
incompatibilit=E9 de type.=20
=C7a ressemble aux probl=E8mes de Alexandre et Antoine, mais=20
je n'ai pas pu trouver r=E9ponses =E0 leur questions.
Private Sub Commande985_Click()
On Error GoTo Err_Commande985_Click
Dim stDocName As String
Dim stLinkCriteria As String
=20
stDocName =3D "Manufacturier_Prod_Rep"
=20
stLinkCriteria =3D "[Repr=E9sentants]=3D" & "'" & Me!
[Modifiable784] & "'" Or "[Manufacturier]=3D" & "'" & Me!
[Modifiable784] & "'"
=20
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Commande985_Click:
Exit Sub
Err_Commande985_Click:
MsgBox Err.Description
Resume Exit_Commande985_Click
=20
End Sub
car tes champs doivent contenir des valeurs numériques.
A+ Eric
"Maurice" écrivait news:2e3b01c470c7$98499b20$:
bonjour, Je voudrais faire un lien entre deux formulaires en code VBA, mais selon deux champs dans le second formulaire. Voici le code que j'ai essayé, mais ça me dit incompatibilité de type. Ça ressemble aux problèmes de Alexandre et Antoine, mais je n'ai pas pu trouver réponses à leur questions.
Private Sub Commande985_Click() On Error GoTo Err_Commande985_Click
Dim stDocName As String Dim stLinkCriteria As String
bonjour,
Je voudrais faire un lien entre deux formulaires en code
VBA, mais selon deux champs dans le second formulaire.
Voici le code que j'ai essayé, mais ça me dit
incompatibilité de type.
Ça ressemble aux problèmes de Alexandre et Antoine, mais
je n'ai pas pu trouver réponses à leur questions.
Private Sub Commande985_Click()
On Error GoTo Err_Commande985_Click
Dim stDocName As String
Dim stLinkCriteria As String
car tes champs doivent contenir des valeurs numériques.
A+ Eric
"Maurice" écrivait news:2e3b01c470c7$98499b20$:
bonjour, Je voudrais faire un lien entre deux formulaires en code VBA, mais selon deux champs dans le second formulaire. Voici le code que j'ai essayé, mais ça me dit incompatibilité de type. Ça ressemble aux problèmes de Alexandre et Antoine, mais je n'ai pas pu trouver réponses à leur questions.
Private Sub Commande985_Click() On Error GoTo Err_Commande985_Click
Dim stDocName As String Dim stLinkCriteria As String
