Bonjour à tous,
Je travail sur une base de donnée concernant un magasin.
J'ai fais une procedure vba dans le but de rajouter un Client dans la table "Client" (le bouton ajout étant accesible par un formulaire)
Seulement, j'ai une petite erreur que je n'arrive pas a réctifier!
Il me semble que c'est un soucis de guillemet dans la requete SQL.
Si quelqu'un pourait m'aiguiller, ce serai fort aimable !
Code VBA :
Sub AjoutClient()
Dim maBD As Database
Dim reqSQL As String
Dim Nom As String
Dim Prenom As String
Dim DateNais As Date
Dim Ville As String
Dim Num As String
Dim Email As String
Set maBD = CurrentDb()
Nom = InputBox("Veuillez saisir le Nom", "Saisie Nom ")
Prenom = InputBox("Veuillez saisir le Prénom", "Saisie Prénom ")
DateNais = InputBox("Veuillez saisir la date de naissance correspondante", "Saisie Date de Naissance ")
Ville = InputBox("Veuillez saisir la Ville correspondance", "Saisie Ville")
Num = InputBox("Veuillez saisir un numeros de téléphone", "Saisie Télephone ")
Email = InputBox("Veuillez saisir som email", "Saisie Email ")
reqSQL = "INSERT INTO Clients(Nom, Prénom, DateNaissance, Ville, NumTel) VALUES ('" + Nom + "', '" + Prenom + "', " + DateNais + ", '" + Ville + "' , '" + Num + "' , '" + Email + "')"
MsgBox (reqSQL)
maBD.Execute (reqSQL)
End Sub
Merci![]()
Partager