Y a-t-il des différences entre le langage VBA Français et la langage VBA Anglais (Office Access 2016)

Bonjour a tous
Merci d'avance
Mon problème et comme suite , j'ai recoupé une application totalement en Français dans un office Access Anglais
toutes marche Bien ( les Table ; Les Formulaires ........?) mais quand j'ai recoupé les code Vba j'ai obtiens des erreur
parme les codes comme suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub liste_clients_Change() Dim ligne As Recordset: Dim base As Database Set base = Application.CurrentDb Set ligne = base.OpenRecordset('SELECT * FROM Clients WHERE N°_client=' & liste_clients.Value, dbOpenDynaset) ligne.MoveFirst n_client.Value = liste_clients.Value civilite.Value = ligne.Fields('civilite_client').Value nom_client.Value = ligne.Fields('nom_client').Value prenom_client.Value = ligne.Fields('prenom_client').Value ligne.Close base.Close Set ligne = Nothing Set base = Nothing End Sub

---

=======
et le 2° Code
===

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub creer_client_Click() Dim base As Database: Dim ligne As Recordset Dim nb_clients As Byte: Dim requete As String If (civilite.Value <> '' And nom_client.Value <> '' And prenom_client.Value <> '') Then Set base = Application.CurrentDb Set ligne = base.OpenRecordset('SELECT COUNT(N°_client) AS nb_client FROM Clients WHERE nom_client='' & nom_client.Value & '' AND prenom_client='' & prenom_client & ''', dbOpenDynaset) ligne.MoveFirst nb_clients = ligne.Fields('nb_client').Value If (Int(nb_clients > 0)) Then MsgBox ('Le client existe déjà, il ne peut donc être créé une deuxième fois') Else requete = 'INSERT INTO Clients (civilite_client,nom_client,prenom_client) VALUES ('' & civilite.Value & '','' & nom_client.Value & '','' & prenom_client.Value &'')' base.Execute requete MsgBox 'Le client a été créé avec succès' DoCmd.Requery liste_clients = liste_clients.ItemData(liste_clients.ListCount - 1) n_client.Value = liste_clients.Value ligne.Close base.Close Set ligne = Nothing Set base = Nothing End If Else MsgBox 'Pour créer un nouveau client, toutes les informations des champs doivent être renseignées' End If End Sub

---

======
j'en sais pas s'il juste de modification de point ou des , ou d'autre chose
Merci pour votre aide
:oops::oops::oops:

Bonjour.

Dans VBA, le délimiteur de texte est OBLIGATOIREMENT le guillemet (").

Ici ton code corrigé.

Code:

---

Set ligne = base.OpenRecordset("SELECT * FROM Clients WHERE N°_client=" & liste_clients.Value, dbOpenDynaset)

---

Dans SQL tu peux utiliser au choix le guillemet (") ou l'apostrophe (').
Perso, je préfère le guillemet qui est moins fréquent que l'apostrophe en français.
Attention, si tu as besoin d'un guillemet dans une chaîne en VBA, il faut le doubler.

Voici un exemple :

Code:

---

1 2 3 4

dim critereTexte as string dim variableTexte as string   critereTexte="[ChampTexte]=""" & VariableTexte & """"

---

en passant pour rendre ton code plus lisible, indente les "blocs".

Ça ressemble à cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub creer_client_Click() Dim base As Database: Dim ligne As Recordset Dim nb_clients As Byte: Dim requete As String   If (civilite.Value <> "" And nom_client.Value <> "" And prenom_client.Value <> "") Then Set base = Application.CurrentDb Set ligne = base.OpenRecordset("SELECT COUNT(N°_client) AS nb_client FROM Clients WHERE nom_client=" & nom_client.Value & " AND prenom_client=" & prenom_client & "", dbOpenDynaset)   ligne.MoveFirst nb_clients = ligne.Fields('nb_client').Value If (Int(nb_clients > 0)) Then MsgBox ('Le client existe déjà, il ne peut donc être créé une deuxième fois') Else requete = "INSERT INTO Clients (civilite_client,nom_client,prenom_client) VALUES (""" & civilite.Value & """, """ & nom_client.Value & """, """ & prenom_client.Value &""")" base.Execute requete   MsgBox 'Le client a été créé avec succès' DoCmd.Requery liste_clients = liste_clients.ItemData(liste_clients.ListCount - 1) n_client.Value = liste_clients.Value   ligne.Close base.Close Set ligne = Nothing Set base = Nothing End If   Else MsgBox 'Pour créer un nouveau client, toutes les informations des champs doivent être renseignées' End If End Sub

---

A+

bonsoir,
n'oublie pas également de mettre les guillemets autour du nom des champs dans la propriété Fields du RecordSet et dans les MsgBox:

Code:

---

1 2 3 4 5

... nb_clients = ligne.Fields("nb_client").Value If (Int(nb_clients > 0)) Then MsgBox ("Le client existe déjà, il ne peut donc être créé une deuxième fois") ...

---

Bonjour
Messieurs ;
Vous avez tout mon respect et mon appréciation merci beaucoup
Si je ne vous dérangeais pas
j'ai des problème avec ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim ligne As Recordset: Dim base As Database   Set base = Application.CurrentDb Set ligne = base.OpenRecordset('SELECT * FROM Catalogue WHERE code_article='' & ref_produit.Value & ''',dbOpenDynaset)   ligne.MoveFirst Qte_stock.Value = ligne.Fields("Quantite").Value designation.Value = ligne.Fields("Designation").Value prix_unitaire.Value = ligne.Fields("Prix_unitaire_HT").Value   ligne.Close base.Close Set ligne = Nothing Set base = Nothing   qte_commandee.Value = 1

---

Merci infirment

bonjour,
on veut bien t'aider mais il faut savoir appliquer ce qu'on te dit de faire :

Citation:

---

Envoyé par marot_r

Dans VBA, le délimiteur de texte est OBLIGATOIREMENT le guillemet (").

Attention, si tu as besoin d'un guillemet dans une chaîne en VBA, il faut le doubler.

---

cela veut dire un double guillemet " et pas deux simples apostrophes ''

Merci Beaucoup
Monsieur tee_grandbois
J'ai bien comprendre que mon Problème rien que entre ( 'et ") Ok je revisserais les codes ensuite je vous déclare le résultat .
merci