Bonjour,
J'aimerais, =E0 partir de code VBA,
Ouvrir un formulaire avec un lien entre deux champs. Le=20
probl=E8me est que je veux que l'ouverture soit comme=20
(*recherche*).
Je sais que =E7a se fait en macros, mais je le veux en VBA.=20
J'ai essay=E9:
Private Sub Commande946_Click()
Dim stLinkCriteria As String
Dim stDocName As String
stDocName =3D "Manufacturier_Prod_Rep"
stLinkCriteria =3D "[Manufacturier] Comme" & "" * Me!
[Manufacturier] * ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Mais je ne suis pas tr=E8s bon en VBA et je ne sais que=20
faire pour que =E7a fonctionne.=20
Quelqu'un m'avait sugg=E9r=E9 Currentdatabase.execute et de=20
faire un code sql mais je ne sais quoi faire
par : stLinkCriteria = "[Manufacturier] Like '*" & Me![Manufacturier] & "*'"
Ca devrait marcher
Ok ?
A+ Eric
"Alexandre" écrivait news:2cca01c470c6$2f5b3ac0$:
Bonjour, J'aimerais, à partir de code VBA, Ouvrir un formulaire avec un lien entre deux champs. Le problème est que je veux que l'ouverture soit comme (*recherche*). Je sais que ça se fait en macros, mais je le veux en VBA. J'ai essayé:
Private Sub Commande946_Click() Dim stLinkCriteria As String Dim stDocName As String stDocName = "Manufacturier_Prod_Rep" stLinkCriteria = "[Manufacturier] Comme" & "" * Me! [Manufacturier] * ""
DoCmd.OpenForm stDocName, , , stLinkCriteria End Sub
Mais je ne suis pas très bon en VBA et je ne sais que faire pour que ça fonctionne. Quelqu'un m'avait suggéré Currentdatabase.execute et de faire un code sql mais je ne sais quoi faire
Bonjour,
J'aimerais, à partir de code VBA,
Ouvrir un formulaire avec un lien entre deux champs. Le
problème est que je veux que l'ouverture soit comme
(*recherche*).
Je sais que ça se fait en macros, mais je le veux en VBA.
J'ai essayé:
Private Sub Commande946_Click()
Dim stLinkCriteria As String
Dim stDocName As String
stDocName = "Manufacturier_Prod_Rep"
stLinkCriteria = "[Manufacturier] Comme" & "" * Me!
[Manufacturier] * ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Mais je ne suis pas très bon en VBA et je ne sais que
faire pour que ça fonctionne.
Quelqu'un m'avait suggéré Currentdatabase.execute et de
faire un code sql mais je ne sais quoi faire
par : stLinkCriteria = "[Manufacturier] Like '*" & Me![Manufacturier] & "*'"
Ca devrait marcher
Ok ?
A+ Eric
"Alexandre" écrivait news:2cca01c470c6$2f5b3ac0$:
Bonjour, J'aimerais, à partir de code VBA, Ouvrir un formulaire avec un lien entre deux champs. Le problème est que je veux que l'ouverture soit comme (*recherche*). Je sais que ça se fait en macros, mais je le veux en VBA. J'ai essayé:
Private Sub Commande946_Click() Dim stLinkCriteria As String Dim stDocName As String stDocName = "Manufacturier_Prod_Rep" stLinkCriteria = "[Manufacturier] Comme" & "" * Me! [Manufacturier] * ""
DoCmd.OpenForm stDocName, , , stLinkCriteria End Sub
Mais je ne suis pas très bon en VBA et je ne sais que faire pour que ça fonctionne. Quelqu'un m'avait suggéré Currentdatabase.execute et de faire un code sql mais je ne sais quoi faire
Merci, Alexandre
Alexandre
REbonjour.
Merci beaucoup, le code fontionne.
J'aimerais savoir où je pourrais apprendre à connaître les significations des codes VBA. Dans le sens où ayant voulu créer le code, je n'aurais pas su quoi mettre comme les " ou ' ou * ...
Merci encore pour tout Alexandre
REbonjour.
Merci beaucoup, le code fontionne.
J'aimerais savoir où je pourrais apprendre à connaître les
significations des codes VBA. Dans le sens où ayant voulu
créer le code, je n'aurais pas su quoi mettre comme les "
ou ' ou * ...
J'aimerais savoir où je pourrais apprendre à connaître les significations des codes VBA. Dans le sens où ayant voulu créer le code, je n'aurais pas su quoi mettre comme les " ou ' ou * ...
Merci encore pour tout Alexandre
Saintor
Dans le code, utilise 'like'
Si [Manufacturier] est un string stLinkCriteria = "[Manufacturier] Comme '*" & Me![Manufacturier] & "*'"
Ou si c'est un chiffre
stLinkCriteria = "[Manufacturier] Comme *" & Me![Manufacturier] & "*"
"Alexandre" wrote in message news:2cca01c470c6$2f5b3ac0$ Bonjour, J'aimerais, à partir de code VBA, Ouvrir un formulaire avec un lien entre deux champs. Le problème est que je veux que l'ouverture soit comme (*recherche*). Je sais que ça se fait en macros, mais je le veux en VBA. J'ai essayé:
Private Sub Commande946_Click() Dim stLinkCriteria As String Dim stDocName As String stDocName = "Manufacturier_Prod_Rep" stLinkCriteria = "[Manufacturier] Comme" & "" * Me! [Manufacturier] * ""
DoCmd.OpenForm stDocName, , , stLinkCriteria End Sub
Mais je ne suis pas très bon en VBA et je ne sais que faire pour que ça fonctionne. Quelqu'un m'avait suggéré Currentdatabase.execute et de faire un code sql mais je ne sais quoi faire
Merci, Alexandre
Dans le code, utilise 'like'
Si [Manufacturier] est un string
stLinkCriteria = "[Manufacturier] Comme '*" & Me![Manufacturier] & "*'"
Ou si c'est un chiffre
stLinkCriteria = "[Manufacturier] Comme *" & Me![Manufacturier] & "*"
"Alexandre" <anonymous@discussions.microsoft.com> wrote in message
news:2cca01c470c6$2f5b3ac0$a601280a@phx.gbl...
Bonjour,
J'aimerais, à partir de code VBA,
Ouvrir un formulaire avec un lien entre deux champs. Le
problème est que je veux que l'ouverture soit comme
(*recherche*).
Je sais que ça se fait en macros, mais je le veux en VBA.
J'ai essayé:
Private Sub Commande946_Click()
Dim stLinkCriteria As String
Dim stDocName As String
stDocName = "Manufacturier_Prod_Rep"
stLinkCriteria = "[Manufacturier] Comme" & "" * Me!
[Manufacturier] * ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Mais je ne suis pas très bon en VBA et je ne sais que
faire pour que ça fonctionne.
Quelqu'un m'avait suggéré Currentdatabase.execute et de
faire un code sql mais je ne sais quoi faire
Si [Manufacturier] est un string stLinkCriteria = "[Manufacturier] Comme '*" & Me![Manufacturier] & "*'"
Ou si c'est un chiffre
stLinkCriteria = "[Manufacturier] Comme *" & Me![Manufacturier] & "*"
"Alexandre" wrote in message news:2cca01c470c6$2f5b3ac0$ Bonjour, J'aimerais, à partir de code VBA, Ouvrir un formulaire avec un lien entre deux champs. Le problème est que je veux que l'ouverture soit comme (*recherche*). Je sais que ça se fait en macros, mais je le veux en VBA. J'ai essayé:
Private Sub Commande946_Click() Dim stLinkCriteria As String Dim stDocName As String stDocName = "Manufacturier_Prod_Rep" stLinkCriteria = "[Manufacturier] Comme" & "" * Me! [Manufacturier] * ""
DoCmd.OpenForm stDocName, , , stLinkCriteria End Sub
Mais je ne suis pas très bon en VBA et je ne sais que faire pour que ça fonctionne. Quelqu'un m'avait suggéré Currentdatabase.execute et de faire un code sql mais je ne sais quoi faire
Merci, Alexandre
Saintor
Ooops.
Si [Manufacturier] est un string stLinkCriteria = "[Manufacturier] LIKE '*" & Me![Manufacturier] & "*'"
Ou si c'est un chiffre stLinkCriteria = "[Manufacturier] LIKE *" & Me![Manufacturier] & "*"
"Saintor" wrote in message news:J7TMc.7768$
Dans le code, utilise 'like'
Si [Manufacturier] est un string stLinkCriteria = "[Manufacturier] Comme '*" & Me![Manufacturier] & "*'"
Ou si c'est un chiffre
stLinkCriteria = "[Manufacturier] Comme *" & Me![Manufacturier] & "*"
"Alexandre" wrote in message news:2cca01c470c6$2f5b3ac0$ Bonjour, J'aimerais, à partir de code VBA, Ouvrir un formulaire avec un lien entre deux champs. Le problème est que je veux que l'ouverture soit comme (*recherche*). Je sais que ça se fait en macros, mais je le veux en VBA. J'ai essayé:
Private Sub Commande946_Click() Dim stLinkCriteria As String Dim stDocName As String stDocName = "Manufacturier_Prod_Rep" stLinkCriteria = "[Manufacturier] Comme" & "" * Me! [Manufacturier] * ""
DoCmd.OpenForm stDocName, , , stLinkCriteria End Sub
Mais je ne suis pas très bon en VBA et je ne sais que faire pour que ça fonctionne. Quelqu'un m'avait suggéré Currentdatabase.execute et de faire un code sql mais je ne sais quoi faire
Merci, Alexandre
Ooops.
Si [Manufacturier] est un string
stLinkCriteria = "[Manufacturier] LIKE '*" & Me![Manufacturier] & "*'"
Ou si c'est un chiffre
stLinkCriteria = "[Manufacturier] LIKE *" & Me![Manufacturier] & "*"
"Saintor" <saintor1@REMOVETHIShotmail.com> wrote in message
news:J7TMc.7768$h92.167939@weber.videotron.net...
Dans le code, utilise 'like'
Si [Manufacturier] est un string
stLinkCriteria = "[Manufacturier] Comme '*" & Me![Manufacturier] & "*'"
Ou si c'est un chiffre
stLinkCriteria = "[Manufacturier] Comme *" & Me![Manufacturier] & "*"
"Alexandre" <anonymous@discussions.microsoft.com> wrote in message
news:2cca01c470c6$2f5b3ac0$a601280a@phx.gbl...
Bonjour,
J'aimerais, à partir de code VBA,
Ouvrir un formulaire avec un lien entre deux champs. Le
problème est que je veux que l'ouverture soit comme
(*recherche*).
Je sais que ça se fait en macros, mais je le veux en VBA.
J'ai essayé:
Private Sub Commande946_Click()
Dim stLinkCriteria As String
Dim stDocName As String
stDocName = "Manufacturier_Prod_Rep"
stLinkCriteria = "[Manufacturier] Comme" & "" * Me!
[Manufacturier] * ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Mais je ne suis pas très bon en VBA et je ne sais que
faire pour que ça fonctionne.
Quelqu'un m'avait suggéré Currentdatabase.execute et de
faire un code sql mais je ne sais quoi faire
Si [Manufacturier] est un string stLinkCriteria = "[Manufacturier] LIKE '*" & Me![Manufacturier] & "*'"
Ou si c'est un chiffre stLinkCriteria = "[Manufacturier] LIKE *" & Me![Manufacturier] & "*"
"Saintor" wrote in message news:J7TMc.7768$
Dans le code, utilise 'like'
Si [Manufacturier] est un string stLinkCriteria = "[Manufacturier] Comme '*" & Me![Manufacturier] & "*'"
Ou si c'est un chiffre
stLinkCriteria = "[Manufacturier] Comme *" & Me![Manufacturier] & "*"
"Alexandre" wrote in message news:2cca01c470c6$2f5b3ac0$ Bonjour, J'aimerais, à partir de code VBA, Ouvrir un formulaire avec un lien entre deux champs. Le problème est que je veux que l'ouverture soit comme (*recherche*). Je sais que ça se fait en macros, mais je le veux en VBA. J'ai essayé:
Private Sub Commande946_Click() Dim stLinkCriteria As String Dim stDocName As String stDocName = "Manufacturier_Prod_Rep" stLinkCriteria = "[Manufacturier] Comme" & "" * Me! [Manufacturier] * ""
DoCmd.OpenForm stDocName, , , stLinkCriteria End Sub
Mais je ne suis pas très bon en VBA et je ne sais que faire pour que ça fonctionne. Quelqu'un m'avait suggéré Currentdatabase.execute et de faire un code sql mais je ne sais quoi faire
