Voila j'ai un petit probleme avec le code suivant, quand je l'éxecute, aucun message d'erreur, mais quand je vais voir dans ma table il n'y a rien du tout :-(
Merci de votre aide
Private Sub particulier_Click()
Dim num2, adresse2, cp2, tel2, email2 As Variant
num2 = num.Value
adresse2 = adresse.Value
cp2 = cp.Value
tel2 = tel.Value
email2 = email.Value
CurrentDb.Execute ("INSERT INTO [CLIENT] VALUES ('& num2 &','& adresse2 &','& cp2 &','& tel2 &','& email2 &');")
End Sub
Salut,
j'ai travaillé un pt avec VBA mais je n'ai pas fait comme vous, moi j'ai eéclarer ma BDD et après l'insertion il ne se passé rien comme pour vous jusqu'à ce que currentdb.update.
alors je crois que votre pblème ce trouve là UPDATE alors fait des recherches avecx l'aide access.
j'espère que sa va t'aider et je m'excuse si ce n'est aps le cas.
Bonne chance.
Merci
1 nov. 2004 à 16:50
j'ai travaillé un pt avec VBA mais je n'ai pas fait comme vous, moi j'ai eéclarer ma BDD et après l'insertion il ne se passé rien comme pour vous jusqu'à ce que currentdb.update.
alors je crois que votre pblème ce trouve là UPDATE alors fait des recherches avecx l'aide access.
j'espère que sa va t'aider et je m'excuse si ce n'est aps le cas.
Bonne chance.
Merci
1 nov. 2004 à 17:05
Je viens d'essayer différement et ca marche !!!
pour ceux que ca intéresse, voila le code :
DoCmd.RunSQL ("INSERT INTO CLIENT VALUES (" & num.Value & ",'" & adresse.Value & "','" & cp.Value & "','" & tel.Value & "','" & email.Value & "')")