bonjour,
je recupere la valeur d'un champ grace a la methode openargs mais ca ne
marche pas qd je veut ouvrir mon formulaire
Est ce que le code est correcte ?
Dim recup As String
Dim sql As String
If IsNull(Me.OpenArgs) Then
'ne rien faire
Else
recup = Me.OpenArgs
sql = "SELECT parametre2.idparamm, parametre2.[Centre de coût],
parametre2.[Nature des dép], parametre2.Ordre, parametre2.LB, budget2.* FROM
parametre2 INNER JOIN budget2 ON parametre2.idparamm = budget2.idparamm"
sql = sql & " WHERE parametre2.LB = recup;"
Me.Form.RecordSource = sql
End If
quand le formulaire s'ouvre il me demande la valeur du parametre recup or
recup contient bien openargs j'ai verifié.
Pouvez vous m'aider merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
Modifies ainsi: sql = sql & " WHERE parametre2.LB = " & recup & ";" si recup est une valeur numérique ou sql = sql & " WHERE parametre2.LB = '" & recup & "';" si texte
bonjour, je recupere la valeur d'un champ grace a la methode openargs mais ca ne marche pas qd je veut ouvrir mon formulaire Est ce que le code est correcte ?
Dim recup As String Dim sql As String
If IsNull(Me.OpenArgs) Then 'ne rien faire Else recup = Me.OpenArgs sql = "SELECT parametre2.idparamm, parametre2.[Centre de coût], parametre2.[Nature des dép], parametre2.Ordre, parametre2.LB, budget2.* FROM parametre2 INNER JOIN budget2 ON parametre2.idparamm = budget2.idparamm"
sql = sql & " WHERE parametre2.LB = recup;"
Me.Form.RecordSource = sql End If quand le formulaire s'ouvre il me demande la valeur du parametre recup or recup contient bien openargs j'ai verifié. Pouvez vous m'aider merci
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Modifies ainsi:
sql = sql & " WHERE parametre2.LB = " & recup & ";" si recup est une
valeur numérique
ou
sql = sql & " WHERE parametre2.LB = '" & recup & "';" si texte
bonjour,
je recupere la valeur d'un champ grace a la methode openargs mais ca ne
marche pas qd je veut ouvrir mon formulaire
Est ce que le code est correcte ?
Dim recup As String
Dim sql As String
If IsNull(Me.OpenArgs) Then
'ne rien faire
Else
recup = Me.OpenArgs
sql = "SELECT parametre2.idparamm, parametre2.[Centre de coût],
parametre2.[Nature des dép], parametre2.Ordre, parametre2.LB, budget2.* FROM
parametre2 INNER JOIN budget2 ON parametre2.idparamm = budget2.idparamm"
sql = sql & " WHERE parametre2.LB = recup;"
Me.Form.RecordSource = sql
End If
quand le formulaire s'ouvre il me demande la valeur du parametre recup or
recup contient bien openargs j'ai verifié.
Pouvez vous m'aider merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Modifies ainsi: sql = sql & " WHERE parametre2.LB = " & recup & ";" si recup est une valeur numérique ou sql = sql & " WHERE parametre2.LB = '" & recup & "';" si texte
bonjour, je recupere la valeur d'un champ grace a la methode openargs mais ca ne marche pas qd je veut ouvrir mon formulaire Est ce que le code est correcte ?
Dim recup As String Dim sql As String
If IsNull(Me.OpenArgs) Then 'ne rien faire Else recup = Me.OpenArgs sql = "SELECT parametre2.idparamm, parametre2.[Centre de coût], parametre2.[Nature des dép], parametre2.Ordre, parametre2.LB, budget2.* FROM parametre2 INNER JOIN budget2 ON parametre2.idparamm = budget2.idparamm"
sql = sql & " WHERE parametre2.LB = recup;"
Me.Form.RecordSource = sql End If quand le formulaire s'ouvre il me demande la valeur du parametre recup or recup contient bien openargs j'ai verifié. Pouvez vous m'aider merci
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
.../... Parti trop vite
et si recup est de type Texte pouvant contenir une quote alors: sql = sql & " WHERE parametre2.LB =" & chr(34) & recup & chr(34) & ";"
Bonjour,
Modifies ainsi: sql = sql & " WHERE parametre2.LB = " & recup & ";" si recup est une valeur numérique ou sql = sql & " WHERE parametre2.LB = '" & recup & "';" si texte
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
.../...
Parti trop vite
et si recup est de type Texte pouvant contenir une quote alors:
sql = sql & " WHERE parametre2.LB =" & chr(34) & recup & chr(34) & ";"
Bonjour,
Modifies ainsi:
sql = sql & " WHERE parametre2.LB = " & recup & ";" si recup est une
valeur numérique
ou
sql = sql & " WHERE parametre2.LB = '" & recup & "';" si texte
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
