Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire un
SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque, Véhicule.type,
Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire un
SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque, Véhicule.type,
Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire un
SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque, Véhicule.type,
Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde tâche
de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde tâche
de taper sur ton clavier :
Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde tâche
de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" a écrit dans le message de
news:Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde tâche
de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le message de
news: mn.2bd27d73a294103f.64280@tiscali.fr...
Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde tâche
de taper sur ton clavier :
Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" a écrit dans le message de
news:Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde tâche
de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes besoins
dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" a écrit dans le message de news:Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" a écrit dans le message de
news:Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes besoins
dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" <guy.faless@skynet.be> a écrit dans le message de news:
eClVfxzXHHA.1300@TK2MSFTNGP02.phx.gbl...
Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le message de
news: mn.2bd27d73a294103f.64280@tiscali.fr...
Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes besoins
dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" a écrit dans le message de news:Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" a écrit dans le message de
news:Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes besoins
dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" a écrit dans le message de news:Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" a écrit dans le message de
news:Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes besoins
dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" <guy.faless@skynet.be> a écrit dans le message de news:
eClVfxzXHHA.1300@TK2MSFTNGP02.phx.gbl...
Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le message de
news: mn.2bd27d73a294103f.64280@tiscali.fr...
Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes besoins
dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" a écrit dans le message de news:Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" a écrit dans le message de
news:Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à écrire
un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '" &
chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Salut Gilles,
Je viens de tester = au lieu de LIKE et j'ai toujours la même erreur :-( Pas
de bol.
@+
Guy FALESSE
Salut Gilles,
Je viens de tester = au lieu de LIKE et j'ai toujours la même erreur :-( Pas
de bol.
@+
Guy FALESSE
Salut Gilles,
Je viens de tester = au lieu de LIKE et j'ai toujours la même erreur :-( Pas
de bol.
@+
Guy FALESSE
Salut Gilles,
Je viens de tester = au lieu de LIKE et j'ai toujours la même erreur :-(
Pas de bol.
@+
Guy FALESSE
"Gilles MOUGNOZ" a écrit dans le message
de news:Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes besoins
dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" a écrit dans le message de news:Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" a écrit dans le message de
news:Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à
écrire un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '"
& chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Salut Gilles,
Je viens de tester = au lieu de LIKE et j'ai toujours la même erreur :-(
Pas de bol.
@+
Guy FALESSE
"Gilles MOUGNOZ" <gmougnoz@courrierchaud.aifair> a écrit dans le message
de news: uGKHa6zXHHA.4692@TK2MSFTNGP04.phx.gbl...
Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes besoins
dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" <guy.faless@skynet.be> a écrit dans le message de news:
eClVfxzXHHA.1300@TK2MSFTNGP02.phx.gbl...
Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le message de
news: mn.2bd27d73a294103f.64280@tiscali.fr...
Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à
écrire un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '"
& chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Salut Gilles,
Je viens de tester = au lieu de LIKE et j'ai toujours la même erreur :-(
Pas de bol.
@+
Guy FALESSE
"Gilles MOUGNOZ" a écrit dans le message
de news:Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes besoins
dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" a écrit dans le message de news:Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" a écrit dans le message de
news:Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à
écrire un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '"
& chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Bonjour
Le problème vient peut-être du champ nom...
Access interprêtre sûrement mal ce nom de champ, c'est pour ça qu'il faut
éviter cette synthaxe. Essais de le mettre entre crochet :
monSQL = "SELECT DISTINCT Véhicule.[nom], ...
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Guy FALESSE" a écrit dans le message de news:
%Salut Gilles,
Je viens de tester = au lieu de LIKE et j'ai toujours la même erreur
:-( Pas de bol.
@+
Guy FALESSE
"Gilles MOUGNOZ" a écrit dans le message
de news:Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes
besoins dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" a écrit dans le message de news:Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" a écrit dans le message de
news:Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à
écrire un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '"
& chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Bonjour
Le problème vient peut-être du champ nom...
Access interprêtre sûrement mal ce nom de champ, c'est pour ça qu'il faut
éviter cette synthaxe. Essais de le mettre entre crochet :
monSQL = "SELECT DISTINCT Véhicule.[nom], ...
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Guy FALESSE" <guy.faless@skynet.be> a écrit dans le message de news:
%23oGqrO0XHHA.2556@TK2MSFTNGP02.phx.gbl...
Salut Gilles,
Je viens de tester = au lieu de LIKE et j'ai toujours la même erreur
:-( Pas de bol.
@+
Guy FALESSE
"Gilles MOUGNOZ" <gmougnoz@courrierchaud.aifair> a écrit dans le message
de news: uGKHa6zXHHA.4692@TK2MSFTNGP04.phx.gbl...
Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes
besoins dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" <guy.faless@skynet.be> a écrit dans le message de news:
eClVfxzXHHA.1300@TK2MSFTNGP02.phx.gbl...
Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le message de
news: mn.2bd27d73a294103f.64280@tiscali.fr...
Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à
écrire un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '"
& chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Bonjour
Le problème vient peut-être du champ nom...
Access interprêtre sûrement mal ce nom de champ, c'est pour ça qu'il faut
éviter cette synthaxe. Essais de le mettre entre crochet :
monSQL = "SELECT DISTINCT Véhicule.[nom], ...
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Guy FALESSE" a écrit dans le message de news:
%Salut Gilles,
Je viens de tester = au lieu de LIKE et j'ai toujours la même erreur
:-( Pas de bol.
@+
Guy FALESSE
"Gilles MOUGNOZ" a écrit dans le message
de news:Bonjour, Guy
Et en remplaçant "LIKE" par "=" ?
Si [N°Chassis] est numérique, tu peux aussi tenter un modulo par 100...
Une petite astuce au passage: comme je ne parle pas couramment SQL ;-)
ce que je fais, c'est que je construit ma requête avec l'interface
graphique,
puis j'affiche le code SQL généré par Access et je l'adapte à mes
besoins dans le code.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"Guy FALESSE" a écrit dans le message de news:Salut Ze Titi,
Merci pour ta réponse, mais, lorsque je mets le ; à la place de la
virgule, j'ai une erreur de syntaxe :-(
@+
Guy FALESSE
"ze Titi" a écrit dans le message de
news:Hello Guy FALESSE !
Et en mettant un ";" à la place de la "," dans le Right ?
En ce jour mémorable du lundi 05/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :Bonjour à tous,
Je vais devenir chèvre, je me demande si j'y arriverai un jour à
écrire un SQL sans avoir d'erreur.
Tout est dans le titre :-(
Dim chCritères As String, monSQL As String, maBD As Database
Dim rst As Recordset, leNbre As Long, rep As String, unCH As
Variant
Set maBD = CurrentDb
line1:
chCritères = InputBox("Tapez les derniers chiffres" & vbLf _
& "du n° de chassis à retrouver.", "Recherche par n° de chassis")
If chCritères = "" Then
DoCmd.Close acForm, "frmRechercheChassis"
Exit Sub
End If
unCH = Len(chCritères)
monSQL = "SELECT DISTINCT Véhicule.nom, Véhicule.Marque,
Véhicule.type, Véhicule.[N°Chassis] " _
& "FROM Véhicule " _
& "WHERE RIGHT(Véhicule.[N°Chassis]," & unCH & ") LIKE '"
& chCritères & "';"
Set rst = maBD.OpenRecordset(monSQL)
Un grand merci d'avance pour votre aide.
Guy FALESSE
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Salut Eric et Jessy,
Merci de vos réponses :-)
Cela n'a rien changé du tout, toujours la même erreur.
Même en faisant cela:
monSQL = "SELECT * From Véhicule WHERE RIGHT (Véhicule.[N°chassis]," & unCH
& ") = '" & chCritères & "';"
ça ne change rien :-(
@+
Salut Eric et Jessy,
Merci de vos réponses :-)
Cela n'a rien changé du tout, toujours la même erreur.
Même en faisant cela:
monSQL = "SELECT * From Véhicule WHERE RIGHT (Véhicule.[N°chassis]," & unCH
& ") = '" & chCritères & "';"
ça ne change rien :-(
@+
Salut Eric et Jessy,
Merci de vos réponses :-)
Cela n'a rien changé du tout, toujours la même erreur.
Même en faisant cela:
monSQL = "SELECT * From Véhicule WHERE RIGHT (Véhicule.[N°chassis]," & unCH
& ") = '" & chCritères & "';"
ça ne change rien :-(
@+
Bonjour Guy,
Fais un debug.print monSQL avant l'ouverture de ton recordset pour voir le
contenu de ta chaine SQL.
La construction me parait correcte à l'espace de trop après le Right mais
ça ne devrait pas avoir d'influence.
Au pire, copies le contenu de monsql qui est affiché dans la fenêtre
Exécution dans la fenêtre sql d'une requete vierge et affiches le résultat
de la requête. Il sera peut-être plus simple de visualiser l'erreur.Salut Eric et Jessy,
Merci de vos réponses :-)
Cela n'a rien changé du tout, toujours la même erreur.
Même en faisant cela:
monSQL = "SELECT * From Véhicule WHERE RIGHT (Véhicule.[N°chassis]," &
unCH & ") = '" & chCritères & "';"
ça ne change rien :-(
@+
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Guy,
Fais un debug.print monSQL avant l'ouverture de ton recordset pour voir le
contenu de ta chaine SQL.
La construction me parait correcte à l'espace de trop après le Right mais
ça ne devrait pas avoir d'influence.
Au pire, copies le contenu de monsql qui est affiché dans la fenêtre
Exécution dans la fenêtre sql d'une requete vierge et affiches le résultat
de la requête. Il sera peut-être plus simple de visualiser l'erreur.
Salut Eric et Jessy,
Merci de vos réponses :-)
Cela n'a rien changé du tout, toujours la même erreur.
Même en faisant cela:
monSQL = "SELECT * From Véhicule WHERE RIGHT (Véhicule.[N°chassis]," &
unCH & ") = '" & chCritères & "';"
ça ne change rien :-(
@+
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Guy,
Fais un debug.print monSQL avant l'ouverture de ton recordset pour voir le
contenu de ta chaine SQL.
La construction me parait correcte à l'espace de trop après le Right mais
ça ne devrait pas avoir d'influence.
Au pire, copies le contenu de monsql qui est affiché dans la fenêtre
Exécution dans la fenêtre sql d'une requete vierge et affiches le résultat
de la requête. Il sera peut-être plus simple de visualiser l'erreur.Salut Eric et Jessy,
Merci de vos réponses :-)
Cela n'a rien changé du tout, toujours la même erreur.
Même en faisant cela:
monSQL = "SELECT * From Véhicule WHERE RIGHT (Véhicule.[N°chassis]," &
unCH & ") = '" & chCritères & "';"
ça ne change rien :-(
@+
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr