Discussion :

[Marie_2116]

Bonjour,

Je suis désolée de demander cela sur le forum, mais je suis en stage et mon maitre de stage est en congés et je suis bloquée !
J'ai du créer une base Access au cours de celui-ci or je ne suis pas développeur, donc "je ne sais pas écrire" en ce qui concerne le code, et bien que je cherche beaucoup, je bloque parfois...
Et là c'est le cas.

Access n'accepte pas le str écrit de la sorte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Rang_Contact_AfterUpdate()
 
Dim bd As Database, jeu As Recordset, str As String
Set bd = CurrentDb
 
str = "SELECT Contacts.NOM_CONTACT FROM Contacts " & _
"WHERE (((Contacts.NO_CONTACT) = '" Me.Rang_Contact & "') AND ((Contacts.COD_CLI)='" & Me.Code_Client & "'));"
 
Set jeu = bd.OpenRecordset(str)
 
Me.Choix_Contact = jeu!Nom_Contact
 
Me.Requery

Faut il que j'utilise des Chr(34) pour remplacer les guillemets ? J'ai essayé mais sans succès... Je sens que c'est un tout petit truc qui bloque c'est frustrant !
Est ce que quelqu'un pourrait m'aider svp ?!

Par ailleurs j'ai un autre problème dans ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Choix_Contact = jeu!Nom_Contact

Access n'accepte pas que j'écrive NOM_CONTACT en majuscule alors que c'est ainsi que le champ est nommé dans la table (Contacts). Est ce un problème ? Si oui, comment faire pour écrire de la sorte ? j'ai essayé copier/collé, réécrire plusiurs fois entièrement le nom, mettre des crochets, ça n'y change rien, cela change automatiquement NOM_CONTACT en Nom_Contact.

C'est bizarre... auriez vous une explication ?

Merci d'avance de votre aide !

[cafeine]

Hello,

il faut doubler les quotes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(ExprVar, "'", "''")

Sinon la casse du nom des champs n'est pas significative.

[Marie_2116]

Salut,

Merci pour l'info, j'avais essayé avec Replace, j'ai réessayé, mais je dois mal l'utiliser, voilà ce que cela me donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
str = "SELECT Contacts.NOM_CONTACT FROM Contacts "
"WHERE (((Contacts.NO_CONTACT) = Replace(Me.Rang_Contact, "'", "''")) AND ((Contacts.COD_CLI) = Replace(Me.Code_Client, "'", "''");"

Mais cela ne passe toujours pas, je ne comprends pas ce qui cloche, j'ai essayé comme cela aussi, mais c'est encore à coté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
str = "SELECT Contacts.NOM_CONTACT FROM Contacts "
"WHERE (((Contacts.NO_CONTACT) = '" & Replace(Me.Rang_Contact, "'", "''")) & "' AND ((Contacts.COD_CLI) = '" & Replace(Me.Code_Client, "'", "''") & "';

pourrais tu me dire ce que j'écris mal, stp ?

Merci beaucoup

[Demco]

Tu trouveras dans ma signature un tutoriel de déboggage de requêtes SQL écrites en VBA, dont tu reconnaitras l'auteur ...

[Invité]

Bonjour

No_Contact est de type texte ou numérique ?
Si c'est du numérique enlève les '.

Starec

[Marie_2116]

ok,
j'vais regarder ça
merci

[Marie_2116]

Merci Starec !!!

C'est ça, NO_CONTACT est un champ numérique !
Ahhhh j'en reviens pas je me suis déjà fait avoir sur exactement le même truc ! Comme quoi le proverbe a raison :

" il faut apprendre et oublier 7 fois avant de savoir pour de bon..."
Allez plus que 5 fois !! je tiens le bon bout !

Merci à tous !
Marie