bonjour
Pour ceux qui ont lu ce message je remet celui avec un=20
plus d'explication (le message d'erreur au dernier=20
paragraphe) sinon les autres aidez moi merci
Je travaille sous access 95 avec Windows 2000
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.value) Then
SQL =3D SQL & "and T_client!nomper=3D """ &=20
Me.recherche2.value & """ & and T_client!nomper2 =3D """ &=20
Me.recherche2.value & """ & and T_client!nomper3 =3D """ &=20
Me.recherche2.value & """
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 du type l'expression avantMAJ entrer=20
comme parametre de la propri=E9t=E9 de type =E9v=E9nement est a=20
l'origine d'une erreur Erreur de compilation
merci de m'aider
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
Raymond [mvp]
Bonjour.
essaie plutôt ce genre: SQL = "SELECT DISTINCTROW T_client.* FROM T_client" If Not IsNull(Me.recherche2.Value) Then SQL = SQL & " where T_client!nomper= '" & _ Me.recherche2.Value & "' And T_client!nomper2 = '" & _ Me.recherche2.Value & "' And T_client!nomper3 = '" & _ Me.recherche2.Value & "'" End If
en espérant ne pas avoir oublié un " -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"matt" a écrit dans le message de news:082c01c3d5bf$cbcf82f0$ bonjour Pour ceux qui ont lu ce message je remet celui avec un plus d'explication (le message d'erreur au dernier paragraphe) sinon les autres aidez moi merci Je travaille sous access 95 avec Windows 2000 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.value) Then SQL = SQL & "and T_client!nomper= """ & Me.recherche2.value & """ & and T_client!nomper2 = """ & Me.recherche2.value & """ & and T_client!nomper3 = """ & Me.recherche2.value & """ 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 du type l'expression avantMAJ entrer comme parametre de la propriété de type événement est a l'origine d'une erreur Erreur de compilation merci de m'aider
Bonjour.
essaie plutôt ce genre:
SQL = "SELECT DISTINCTROW T_client.* FROM T_client"
If Not IsNull(Me.recherche2.Value) Then
SQL = SQL & " where T_client!nomper= '" & _
Me.recherche2.Value & "' And T_client!nomper2 = '" & _
Me.recherche2.Value & "' And T_client!nomper3 = '" & _
Me.recherche2.Value & "'"
End If
en espérant ne pas avoir oublié un "
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"matt" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:082c01c3d5bf$cbcf82f0$a501280a@phx.gbl...
bonjour
Pour ceux qui ont lu ce message je remet celui avec un
plus d'explication (le message d'erreur au dernier
paragraphe) sinon les autres aidez moi merci
Je travaille sous access 95 avec Windows 2000
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.value) Then
SQL = SQL & "and T_client!nomper= """ &
Me.recherche2.value & """ & and T_client!nomper2 = """ &
Me.recherche2.value & """ & and T_client!nomper3 = """ &
Me.recherche2.value & """
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 du type l'expression avantMAJ entrer
comme parametre de la propriété de type événement est a
l'origine d'une erreur Erreur de compilation
merci de m'aider
essaie plutôt ce genre: SQL = "SELECT DISTINCTROW T_client.* FROM T_client" If Not IsNull(Me.recherche2.Value) Then SQL = SQL & " where T_client!nomper= '" & _ Me.recherche2.Value & "' And T_client!nomper2 = '" & _ Me.recherche2.Value & "' And T_client!nomper3 = '" & _ Me.recherche2.Value & "'" End If
en espérant ne pas avoir oublié un " -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"matt" a écrit dans le message de news:082c01c3d5bf$cbcf82f0$ bonjour Pour ceux qui ont lu ce message je remet celui avec un plus d'explication (le message d'erreur au dernier paragraphe) sinon les autres aidez moi merci Je travaille sous access 95 avec Windows 2000 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.value) Then SQL = SQL & "and T_client!nomper= """ & Me.recherche2.value & """ & and T_client!nomper2 = """ & Me.recherche2.value & """ & and T_client!nomper3 = """ & Me.recherche2.value & """ 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 du type l'expression avantMAJ entrer comme parametre de la propriété de type événement est a l'origine d'une erreur Erreur de compilation merci de m'aider
matt
-----Message d'origine----- Bonjour.
essaie plutôt ce genre: SQL = "SELECT DISTINCTROW T_client.* FROM T_client" If Not IsNull(Me.recherche2.Value) Then SQL = SQL & " where T_client!nomper= '" & _ Me.recherche2.Value & "' And T_client!nomper2 = '" & _
Me.recherche2.Value & "' And T_client!nomper3 = '" & _
Me.recherche2.Value & "'" End If
en espérant ne pas avoir oublié un " -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum il n'y aurait pas un probleme de compatibilité aussi parce que cpas la premiére fois que sa plante
"matt" a écrit dans le message de
news:082c01c3d5bf$cbcf82f0$ bonjour Pour ceux qui ont lu ce message je remet celui avec un plus d'explication (le message d'erreur au dernier paragraphe) sinon les autres aidez moi merci Je travaille sous access 95 avec Windows 2000 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.value) Then SQL = SQL & "and T_client!nomper= """ & Me.recherche2.value & """ & and T_client!nomper2 = """ & Me.recherche2.value & """ & and T_client!nomper3 = """ & Me.recherche2.value & """ 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 du type l'expression avantMAJ entrer comme parametre de la propriété de type événement est a l'origine d'une erreur Erreur de compilation merci de m'aider
.
-----Message d'origine-----
Bonjour.
essaie plutôt ce genre:
SQL = "SELECT DISTINCTROW T_client.* FROM T_client"
If Not IsNull(Me.recherche2.Value) Then
SQL = SQL & " where T_client!nomper= '" & _
Me.recherche2.Value & "' And T_client!nomper2
= '" & _
Me.recherche2.Value & "' And T_client!nomper3
= '" & _
Me.recherche2.Value & "'"
End If
en espérant ne pas avoir oublié un "
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
il n'y aurait pas un probleme de compatibilité aussi
parce que cpas la premiére fois que sa plante
"matt" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:082c01c3d5bf$cbcf82f0$a501280a@phx.gbl...
bonjour
Pour ceux qui ont lu ce message je remet celui avec un
plus d'explication (le message d'erreur au dernier
paragraphe) sinon les autres aidez moi merci
Je travaille sous access 95 avec Windows 2000
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.value) Then
SQL = SQL & "and T_client!nomper= """ &
Me.recherche2.value & """ & and T_client!nomper2 = """ &
Me.recherche2.value & """ & and T_client!nomper3 = """ &
Me.recherche2.value & """
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 du type l'expression avantMAJ entrer
comme parametre de la propriété de type événement est a
l'origine d'une erreur Erreur de compilation
merci de m'aider
essaie plutôt ce genre: SQL = "SELECT DISTINCTROW T_client.* FROM T_client" If Not IsNull(Me.recherche2.Value) Then SQL = SQL & " where T_client!nomper= '" & _ Me.recherche2.Value & "' And T_client!nomper2 = '" & _
Me.recherche2.Value & "' And T_client!nomper3 = '" & _
Me.recherche2.Value & "'" End If
en espérant ne pas avoir oublié un " -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum il n'y aurait pas un probleme de compatibilité aussi parce que cpas la premiére fois que sa plante
"matt" a écrit dans le message de
news:082c01c3d5bf$cbcf82f0$ bonjour Pour ceux qui ont lu ce message je remet celui avec un plus d'explication (le message d'erreur au dernier paragraphe) sinon les autres aidez moi merci Je travaille sous access 95 avec Windows 2000 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.value) Then SQL = SQL & "and T_client!nomper= """ & Me.recherche2.value & """ & and T_client!nomper2 = """ & Me.recherche2.value & """ & and T_client!nomper3 = """ & Me.recherche2.value & """ 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 du type l'expression avantMAJ entrer comme parametre de la propriété de type événement est a l'origine d'une erreur Erreur de compilation merci de m'aider
.
Raymond [mvp]
J'ai failli ne pas trouver ta réponse.
il n'y aurait pas un probleme de compatibilité aussi parce que cpas la premiére fois que sa plante
sans connaître exactement ce que tu fais il est difficile de parler de compatibilité. une requête est une requête. est-ce que ce que je t'ai proposé fonctionne en tant que requête elle-même ? -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"matt" a écrit dans le message de news:09be01c3d5d3$513e77d0$
-----Message d'origine----- Bonjour.
essaie plutôt ce genre: SQL = "SELECT DISTINCTROW T_client.* FROM T_client" If Not IsNull(Me.recherche2.Value) Then SQL = SQL & " where T_client!nomper= '" & _ Me.recherche2.Value & "' And T_client!nomper2 = '" & _
Me.recherche2.Value & "' And T_client!nomper3 = '" & _
Me.recherche2.Value & "'" End If
en espérant ne pas avoir oublié un " -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum il n'y aurait pas un probleme de compatibilité aussi parce que cpas la premiére fois que sa plante
J'ai failli ne pas trouver ta réponse.
il n'y aurait pas un probleme de compatibilité aussi
parce que cpas la premiére fois que sa plante
sans connaître exactement ce que tu fais il est difficile de parler de
compatibilité. une requête est une requête. est-ce que ce que je t'ai
proposé fonctionne en tant que requête elle-même ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"matt" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:09be01c3d5d3$513e77d0$a401280a@phx.gbl...
-----Message d'origine-----
Bonjour.
essaie plutôt ce genre:
SQL = "SELECT DISTINCTROW T_client.* FROM T_client"
If Not IsNull(Me.recherche2.Value) Then
SQL = SQL & " where T_client!nomper= '" & _
Me.recherche2.Value & "' And T_client!nomper2
= '" & _
Me.recherche2.Value & "' And T_client!nomper3
= '" & _
Me.recherche2.Value & "'"
End If
en espérant ne pas avoir oublié un "
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
il n'y aurait pas un probleme de compatibilité aussi
parce que cpas la premiére fois que sa plante
il n'y aurait pas un probleme de compatibilité aussi parce que cpas la premiére fois que sa plante
sans connaître exactement ce que tu fais il est difficile de parler de compatibilité. une requête est une requête. est-ce que ce que je t'ai proposé fonctionne en tant que requête elle-même ? -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"matt" a écrit dans le message de news:09be01c3d5d3$513e77d0$
-----Message d'origine----- Bonjour.
essaie plutôt ce genre: SQL = "SELECT DISTINCTROW T_client.* FROM T_client" If Not IsNull(Me.recherche2.Value) Then SQL = SQL & " where T_client!nomper= '" & _ Me.recherche2.Value & "' And T_client!nomper2 = '" & _
Me.recherche2.Value & "' And T_client!nomper3 = '" & _
Me.recherche2.Value & "'" End If
en espérant ne pas avoir oublié un " -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum il n'y aurait pas un probleme de compatibilité aussi parce que cpas la premiére fois que sa plante
