Bon Comme vous etes gentil!
voici une solution tres pretique que j'ai trouve si ça peux vous aider.
Ecriture directe dans une table à partir un formulaire.
soit la table Personne :
Private Sub btAjout_Click()
Dim strSql As String
Dim cmd As ADODB.Command
strSql = "INSERT INTO personne ( nom, prenom, Adresse )" _
& "SELECT [NOM] AS Expr1, [PRENOM] AS Expr2, [ADRESSE] AS Expr3"
Set cmd = New Command
cmd.CommandType = adCmdText
cmd.CommandText = strSql
cmd.Parameters.Append cmd.CreateParameter("NOM", adVarChar, adParamInput, 250, Me.txbNom)
cmd.Parameters.Append cmd.CreateParameter("PRENOM", adVarChar, adParamInput, 250, Me.txbPrenom)
cmd.Parameters.Append cmd.CreateParameter("ADRESSE", adVarChar, adParamInput, 50, Me.txbAdresse)
cmd.ActiveConnection = Application.CurrentProject.Connection
cmd.Execute
Set cmd = Nothing
End Sub