Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access pb d'enregistrement, de l'aide svp!!!

pb d'enregistrement, de l'aide svp!!!

4 réponses
Avatar
elisabeth
bonjour
j'ai essayer un "insert into" mais j'arive toujours pas a=20
enregistrer les=20
donn=E9es, j'ai meme un message d'erreur quie est:
"Trop peu de param=E8tre.7 attendu"
pourtant il y en a bien 7 je comprend pas
est-ce-que tu peux m'aider?

Private Sub Commande35_Click()
On Error GoTo Err_Commande35_Click


Dim sSQL As String

sSQL =3D "INSERT INTO DOCUMENT (IDDocument,=20
IDCodif,IDUSER,NBIstance,LieuRealisation,DateCreation,Versi
on) VALUES (Forms!creation_nouveau_document!
Texte23.Value,Forms!creation_nouveau_document!
Texte15.Value,Forms!creation_nouveau_document!
IDUSER.Value,Forms!creation_nouveau_document!
Texte13.Value,Forms!creation_nouveau_document!
Texte7.Value,Forms!creation_nouveau_document!
DateCreation.Value,Forms!creation_nouveau_document!
Texte16.Value)"

CurrentDb.Execute sSQL

Exit_Commande35_Click:
Exit Sub

Err_Commande35_Click:
MsgBox Err.Description
Resume Exit_Commande35_Click
=20
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric
Bonjour Elisabeth,

il faut que tu passes les valeurs à ton sql, ce que tu ne fais pas là:

sSQL = "Insert Into Document
(IdDocument,IDCodif,IDUSER,NBIstance,LieuRealisation,DateCreation,Version
) Values('" & Me.Texte23 & "','" & Me.Texte15 & ",'" & Me.IDUser& "'," &
Me.Texte13 & ",'" & Me.Texte7 & "'," & Format
(Me.DateCreation,"#mm/dd/yyyy#") & "," & Me.Texte16 & ");"


J'ai supposé que ces controles sont sur le formulaire du bouton de
commande Commande35 et que les ID... sont alphanumeriques.

Tu dois construire ton sql par concaténation avec les valeurs des
controles. Ceux qui contiennent du texte doivent être encadrés par des '
les autres non.

A vérifier si je n'ai pas oublié un '

A+
Eric



"elisabeth" écrivait
news:2076d01c458fc$36e840d0$:

bonjour
j'ai essayer un "insert into" mais j'arive toujours pas a
enregistrer les
données, j'ai meme un message d'erreur quie est:
"Trop peu de paramètre.7 attendu"
pourtant il y en a bien 7 je comprend pas
est-ce-que tu peux m'aider?

Private Sub Commande35_Click()
On Error GoTo Err_Commande35_Click


Dim sSQL As String

sSQL = "INSERT INTO DOCUMENT (IDDocument,
IDCodif,IDUSER,NBIstance,LieuRealisation,DateCreation,Versi
on) VALUES (Forms!creation_nouveau_document!
Texte23.Value,Forms!creation_nouveau_document!
Texte15.Value,Forms!creation_nouveau_document!
IDUSER.Value,Forms!creation_nouveau_document!
Texte13.Value,Forms!creation_nouveau_document!
Texte7.Value,Forms!creation_nouveau_document!
DateCreation.Value,Forms!creation_nouveau_document!
Texte16.Value)"

CurrentDb.Execute sSQL

Exit_Commande35_Click:
Exit Sub

Err_Commande35_Click:
MsgBox Err.Description
Resume Exit_Commande35_Click

End Sub



Avatar
Phil
Bonjour,
N'as tu pas oublié de mettre le ";" après ta sequence soit :
sSQL = "INSERT INTO DOCUMENT (IDDocument,
IDCodif,IDUSER,NBIstance,LieuRealisation,DateCreation,Versi
on) VALUES (Forms!creation_nouveau_document!
Texte23.Value,Forms!creation_nouveau_document!
Texte15.Value,Forms!creation_nouveau_document!
IDUSER.Value,Forms!creation_nouveau_document!
Texte13.Value,Forms!creation_nouveau_document!
Texte7.Value,Forms!creation_nouveau_document!
DateCreation.Value,Forms!creation_nouveau_document!
Texte16.Value);"



bonjour
j'ai essayer un "insert into" mais j'arive toujours pas a
enregistrer les
données, j'ai meme un message d'erreur quie est:
"Trop peu de paramètre.7 attendu"
pourtant il y en a bien 7 je comprend pas
est-ce-que tu peux m'aider?

Private Sub Commande35_Click()
On Error GoTo Err_Commande35_Click


Dim sSQL As String

sSQL = "INSERT INTO DOCUMENT (IDDocument,
IDCodif,IDUSER,NBIstance,LieuRealisation,DateCreation,Versi
on) VALUES (Forms!creation_nouveau_document!
Texte23.Value,Forms!creation_nouveau_document!
Texte15.Value,Forms!creation_nouveau_document!
IDUSER.Value,Forms!creation_nouveau_document!
Texte13.Value,Forms!creation_nouveau_document!
Texte7.Value,Forms!creation_nouveau_document!
DateCreation.Value,Forms!creation_nouveau_document!
Texte16.Value)"

CurrentDb.Execute sSQL

Exit_Commande35_Click:
Exit Sub

Err_Commande35_Click:
MsgBox Err.Description
Resume Exit_Commande35_Click

End Sub



Avatar
elisabeth
merci
mais meme avec le ; ça marche pas
ça donne toujours le meme message d'erreur
"Trop peu de parametres. 7 Attendu"

-----Message d'origine-----
Bonjour,
N'as tu pas oublié de mettre le ";" après ta sequence
soit :

sSQL = "INSERT INTO DOCUMENT (IDDocument,

IDCodif,IDUSER,NBIstance,LieuRealisation,DateCreation,Versi


on) VALUES (Forms!creation_nouveau_document!
Texte23.Value,Forms!creation_nouveau_document!
Texte15.Value,Forms!creation_nouveau_document!
IDUSER.Value,Forms!creation_nouveau_document!
Texte13.Value,Forms!creation_nouveau_document!
Texte7.Value,Forms!creation_nouveau_document!
DateCreation.Value,Forms!creation_nouveau_document!
Texte16.Value);"



bonjour
j'ai essayer un "insert into" mais j'arive toujours pas
a


enregistrer les
données, j'ai meme un message d'erreur quie est:
"Trop peu de paramètre.7 attendu"
pourtant il y en a bien 7 je comprend pas
est-ce-que tu peux m'aider?

Private Sub Commande35_Click()
On Error GoTo Err_Commande35_Click


Dim sSQL As String

sSQL = "INSERT INTO DOCUMENT (IDDocument,

IDCodif,IDUSER,NBIstance,LieuRealisation,DateCreation,Versi


on) VALUES (Forms!creation_nouveau_document!
Texte23.Value,Forms!creation_nouveau_document!
Texte15.Value,Forms!creation_nouveau_document!
IDUSER.Value,Forms!creation_nouveau_document!
Texte13.Value,Forms!creation_nouveau_document!
Texte7.Value,Forms!creation_nouveau_document!
DateCreation.Value,Forms!creation_nouveau_document!
Texte16.Value)"

CurrentDb.Execute sSQL

Exit_Commande35_Click:
Exit Sub

Err_Commande35_Click:
MsgBox Err.Description
Resume Exit_Commande35_Click

End Sub

.





Avatar
elisabeth
merci eric ça marche
tu me sauves la vie
je trainais dessus depuis longtemps
merci encore
-----Message d'origine-----
Bonjour Elisabeth,

il faut que tu passes les valeurs à ton sql, ce que tu ne
fais pas là:


sSQL = "Insert Into Document

(IdDocument,IDCodif,IDUSER,NBIstance,LieuRealisation,DateCr

eation,Version
) Values('" & Me.Texte23 & "','" & Me.Texte15 & ",'" &
Me.IDUser& "'," &

Me.Texte13 & ",'" & Me.Texte7 & "'," & Format
(Me.DateCreation,"#mm/dd/yyyy#") & "," & Me.Texte16
& ");"



J'ai supposé que ces controles sont sur le formulaire du
bouton de

commande Commande35 et que les ID... sont alphanumeriques.

Tu dois construire ton sql par concaténation avec les
valeurs des

controles. Ceux qui contiennent du texte doivent être
encadrés par des '

les autres non.

A vérifier si je n'ai pas oublié un '

A+
Eric



"elisabeth"
écrivait

news:2076d01c458fc$36e840d0$:

bonjour
j'ai essayer un "insert into" mais j'arive toujours pas
a


enregistrer les
données, j'ai meme un message d'erreur quie est:
"Trop peu de paramètre.7 attendu"
pourtant il y en a bien 7 je comprend pas
est-ce-que tu peux m'aider?

Private Sub Commande35_Click()
On Error GoTo Err_Commande35_Click


Dim sSQL As String

sSQL = "INSERT INTO DOCUMENT (IDDocument,

IDCodif,IDUSER,NBIstance,LieuRealisation,DateCreation,Versi


on) VALUES (Forms!creation_nouveau_document!
Texte23.Value,Forms!creation_nouveau_document!
Texte15.Value,Forms!creation_nouveau_document!
IDUSER.Value,Forms!creation_nouveau_document!
Texte13.Value,Forms!creation_nouveau_document!
Texte7.Value,Forms!creation_nouveau_document!
DateCreation.Value,Forms!creation_nouveau_document!
Texte16.Value)"

CurrentDb.Execute sSQL

Exit_Commande35_Click:
Exit Sub

Err_Commande35_Click:
MsgBox Err.Description
Resume Exit_Commande35_Click

End Sub



.