VB d'access => Liason des form avec 2 Key
Bonjour,
Sous Visual Basic d'Access, je souhaite faire le lien entre deux formulaires (Les cles sont Réf et Couleurs)
Dans la condition where de OpenForm je ne sais pas comment définir 2 variables pour ouvrir le formulaire.
Voici mon code :
Dim stDocName As String
Dim stLinkCriteria As String
Dim stLinkCriteria1 As String
stDocName = "Form Stock Top Tex Global"
stLinkCriteria = "[AR_Ref]=" & "'" & Me![AR_Ref] & "'"
And StlinkCriteria1 = "[Couleurs]=" & "'" & Me![Couleurs] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria2, , acDialog
End Sub
Merci pour votre aide.
Olivier
Sous Visual Basic d'Access, je souhaite faire le lien entre deux formulaires (Les cles sont Réf et Couleurs)
Dans la condition where de OpenForm je ne sais pas comment définir 2 variables pour ouvrir le formulaire.
Voici mon code :
Dim stDocName As String
Dim stLinkCriteria As String
Dim stLinkCriteria1 As String
stDocName = "Form Stock Top Tex Global"
stLinkCriteria = "[AR_Ref]=" & "'" & Me![AR_Ref] & "'"
And StlinkCriteria1 = "[Couleurs]=" & "'" & Me![Couleurs] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria2, , acDialog
End Sub
Merci pour votre aide.
Olivier
5 réponses
-
ModérateurSalut,
concaténer les deux conditions pour n'en faire qu'une ne marche pas ?
A+ Blux"Les cons, ça ose tout. C'est même à ça qu'on les reconnait"
-
Quelle Commande faudrait-il que je tape afin de concatener les deux à l'intérieur de VB ??
A moins que je créer un champs concatenant les 2 CLés.
Merci -
Modérateurle & sert à concaténer des chaines :
genre comme ça (faut voir le nombre de guillemets ou mettre des simples quotes pour séparer les valeurs)
stlink="[AR_Ref]='" & Me![AR_Ref] & "' And [Couleurs]='" & Me![Couleurs] & "'"
A+ Blux"Les cons, ça ose tout. C'est même à ça qu'on les reconnait"
-
Je ne sais pas.
C'est pas grave je vais masquer les tables, la fenêtre base de donné et tout le reste que je peux masquer -_-
Merci Bien
@ +
Olivier -
ModérateurCrée un fichier MDE, tu auras déjà une bonne partie des informations inaccessibles (au commun des mortels)...
A+ Blux"Les cons, ça ose tout. C'est même à ça qu'on les reconnait"
