quelq'un peut m'aider

Question

salut 
Mon probl&#233;me ,j'ai cre&#233; un module qui pemet de inserer des nouvelles valeurs dans une table appel&#233;e client &#224; partir d'un formulaire qui est atach&#233; &#224; cette table 
le code suivant  en cliquant sur le bouton valider il r&#233;inisialise  tous les attributs du formilaire &#224; z&#233;ro et mettre l'enregistrement &#224; jour dans la table ,mais le prbl&#233;me ,il s'execute pas
Private Sub valider_Click()
Dim MaDb As Database
Dim Monsql As String
Dim controle As Control
Dim f As Form
Set MaDb = CurrentDb()
Set f = Forms!F_client
Monsql = "INSERT INTO T_client(N&#176;client,Type_client,prenom, Tel , Tel_portable, Adresse, Code_postal, ville, Site_web, Email)"
Monsql = Monsql & "VALUES('" & f.N&#176;client & "', '" & f.Type_client & "' ,'" & f.Prenom & "', '" & f.Tel & "', '" & f.Tel_portable & "','" & f.Adresse & "','" & f.Code_postal & "','" & f.ville & "','" & f.Site_web & "','" & f.Email & "')"


DoCmd.SetWarnings False
DoCmd.RunSQL Monsql
DoCmd.SetWarnings True
msgbox "Le client" & f.Nom & " ete bien enreg"
For Each controle In f.Controls
If controle.ControlType = acTextBox Then
       controle = Null
       End If
       Next controle

cs_Jack · Answer

Salut
-1- Respecte un minimum de formatage de code : Assure toi qu'il y a toujours un espace devant et derri&#232;re les mots cl&#233;s comme le nom de ta table et la parenth&#232;se qui &#233;num&#232;re tes champs, ou entre "email)" et VALUES, ou apr&#232;s VALUES ...
-2- SQL n'accepte pas les caract&#232;res "exotiques" comme le &#176;
Si le nom de tes champs comportent ce genre de caract&#232;res (ou accents ou espaces), il faut les encadrer avec des crochets [ et ], exemple :
Monsql =  "INSERT INTO T_client ( [ N&#176;client], ...
-3- Selon le type de champ d&#233;clar&#233; dans ta table, il faut utiliser les bons encadrements :
   - Champ type num&#233;rique : pas d'encadrement (pas de ' )
   - Champ type Texte : encadrement avec '
   - Champ type Date : encadrement avec #
Exemple : Je suppose que "N&#176;Client" est un num&#233;ro (perspicace, hein !), mais que Type_client est texte
Monsql  = Monsql & "VALUES(" & CStr(f.N&#176;client) & ", '" & f.Type_client & "' ,'" ...
Le CStr n'est l&#224; que pour respecter la convertion num&#233;rique -> texte en VB (pas obligatoire, mais propre)

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Quelq'un peut m'aider

1 réponse

Discussions similaires