Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access est ce que ce code est faux?

est ce que ce code est faux?

3 réponses
Avatar
matt
bonjour
je me suis inspir=E9 d'une base trouv=E9 sur le net pour=20
ecrire ce code
private sub refreshquery()
Dim SQL As String

SQL =3D "SELECT DISTINCTROW T_client.*FROM T_client"
If Not IsNull(Me.recherche2) Then
SQL =3D SQL & "and T_client!nomper=3D '" & Me.recherche2=20
& "' & and T_client!nomper2 =3D '" & Me.recherche2 & "' &=20
and T_client!nomper3 =3D '" & Me.recherche2 & "' "
End If
SQL =3D SQL & ";"
Me.lstrdv.RowSource =3D SQL
Me.lstrdv.Requery
end sub

en fait j'ai une recherche sur 3 champs a effectuer et a=20
visualiser le resultats de cette requete

et en fait apr=E9s dans mon champ de recherche=20
avantMAJj'ecris=20
private sub recherche2_beforeupdate
refreshquery
end sub
et la j'ai une erreur
merci de m'aider
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Nicolas Mathieu
Salut
Quel genre de message d'erreur? ça peut aider.

Essai :

Dim SQL As String

SQL = "SELECT DISTINCTROW T_client.* FROM T_client"
If Not IsNull(Me.recherche2) Then
SQL = SQL & " and T_client!nomper=""" & Me.recherche2
& """ and T_client!nomper2=""" & Me.recherche2 &
""" and T_client!nomper3=""" & Me.recherche2 & """"
End If
SQL = SQL & ";"
Me.lstrdv.RowSource = SQL
Me.lstrdv.Requery
end sub





"matt" a écrit dans le message de
news:0af901c3d532$c29f0b70$
bonjour
je me suis inspiré d'une base trouvé sur le net pour
ecrire ce code
private sub refreshquery()
Dim SQL As String

SQL = "SELECT DISTINCTROW T_client.*FROM T_client"
If Not IsNull(Me.recherche2) Then
SQL = SQL & "and T_client!nomper= '" & Me.recherche2
& "' & and T_client!nomper2 = '" & Me.recherche2 & "' &
and T_client!nomper3 = '" & Me.recherche2 & "' "
End If
SQL = SQL & ";"
Me.lstrdv.RowSource = SQL
Me.lstrdv.Requery
end sub

en fait j'ai une recherche sur 3 champs a effectuer et a
visualiser le resultats de cette requete

et en fait aprés dans mon champ de recherche
avantMAJj'ecris
private sub recherche2_beforeupdate
refreshquery
end sub
et la j'ai une erreur
merci de m'aider
Avatar
ticegestion
Bonjour,
A mon avis, tu devrais remplacer les ! par des points. Met aussi un espace
juste après T_client.* (dans la 1ère ligne de code)
Si ça ne marche pas je te conseille de mettre un Debug.Print SQL juste après
la ligne SQL = SQL & ";"
En observant le resultat affiché dans la fenêtre de déboguage tu auras peut
être une indication sur une éventuelle erreur de syntaxe dans l'instruction
SQL
Cordialement
Fred
http://www.ticegestion.com
"matt" a écrit dans le message de
news:0af901c3d532$c29f0b70$
bonjour
je me suis inspiré d'une base trouvé sur le net pour
ecrire ce code
private sub refreshquery()
Dim SQL As String

SQL = "SELECT DISTINCTROW T_client.*FROM T_client"
If Not IsNull(Me.recherche2) Then
SQL = SQL & "and T_client!nomper= '" & Me.recherche2
& "' & and T_client!nomper2 = '" & Me.recherche2 & "' &
and T_client!nomper3 = '" & Me.recherche2 & "' "
End If
SQL = SQL & ";"
Me.lstrdv.RowSource = SQL
Me.lstrdv.Requery
end sub

en fait j'ai une recherche sur 3 champs a effectuer et a
visualiser le resultats de cette requete

et en fait aprés dans mon champ de recherche
avantMAJj'ecris
private sub recherche2_beforeupdate
refreshquery
end sub
et la j'ai une erreur
merci de m'aider
Avatar
Pierre CFI [mvp]
bonjour
2 choses
se méfier des Null, tester les 2 if not isnull(machin) or len(machin) <> 0
tu déclenches sur un beforeupdate donc précises Me.recherche2.Value

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Nicolas Mathieu" <nicolas.mathieu(AROBASE)tiscali.fr> a écrit dans le message de news:
Salut
Quel genre de message d'erreur? ça peut aider.

Essai :

Dim SQL As String

SQL = "SELECT DISTINCTROW T_client.* FROM T_client"
If Not IsNull(Me.recherche2) Then
SQL = SQL & " and T_client!nomper=""" & Me.recherche2
& """ and T_client!nomper2=""" & Me.recherche2 &
""" and T_client!nomper3=""" & Me.recherche2 & """"
End If
SQL = SQL & ";"
Me.lstrdv.RowSource = SQL
Me.lstrdv.Requery
end sub





"matt" a écrit dans le message de
news:0af901c3d532$c29f0b70$
bonjour
je me suis inspiré d'une base trouvé sur le net pour
ecrire ce code
private sub refreshquery()
Dim SQL As String

SQL = "SELECT DISTINCTROW T_client.*FROM T_client"
If Not IsNull(Me.recherche2) Then
SQL = SQL & "and T_client!nomper= '" & Me.recherche2
& "' & and T_client!nomper2 = '" & Me.recherche2 & "' &
and T_client!nomper3 = '" & Me.recherche2 & "' "
End If
SQL = SQL & ";"
Me.lstrdv.RowSource = SQL
Me.lstrdv.Requery
end sub

en fait j'ai une recherche sur 3 champs a effectuer et a
visualiser le resultats de cette requete

et en fait aprés dans mon champ de recherche
avantMAJj'ecris
private sub recherche2_beforeupdate
refreshquery
end sub
et la j'ai une erreur
merci de m'aider