tamcheiktt
Messages postés16Date d'inscriptionlundi 16 janvier 2006StatutMembreDernière intervention19 avril 2010
-
1 févr. 2006 à 16:02
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
1 févr. 2006 à 16:37
Salut je n'ai pas encore trouvé une solution le compilateur m'affiche toujour une erreur
indiquer par la couleur rouge cidessous
merci de me donner un cout de main
rivate Sub valider_Click()
Dim MaDb As Database
Dim Monsql As String
Dim controle As Control
Dim f As Form
Set MaDb = CurrentDb()
Set f = Form!F_client(il affiche une erreur )
Monsql = "INSERT INTO T_client([N°client],Type_client,prenom, Tel , Tel_portable, Adresse, Code_postal, ville, Site_web, Email)"
Monsql = Monsql & "VALUES('" & f.N°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