OVH Cloud OVH Cloud

Probleme QueryDEf

1 réponse
Avatar
CID
bonjour,

je suis entrain de faire un travail sur Access 2000, et
je demande a ce qu'il m'execute une requete pour mettre
un jour un champ, et il met me le message Trop peu de
parametre. 1 attendu.
je me mon code source et l'endroit du prbleme :

Sub DragDrop(DragFrm As Form, DragCtrl As Control,
DropFrm As Form, DropCtrl As Control, _
Button As Integer, Shift As Integer, x As
Single, Y As Single)

Dim strSQL As String
Dim temp As String
Dim temp1 As String
Dim DB As DAO.Database

Set DB = CurrentDb()

temp = DragCtrl
temp1 = DropFrm.LibES

strSQL = "UPDATE DMT_ES SET Nom_Imp = '" & temp
& "'"
strSQL = strSQL & " WHERE LibES = '" & temp1 & "'"

MsgBox " " & strSQL

DB.Execute strSQL -- ici le message d'erreur
apparait

DropCtrl.Requery
End Sub


Merci de pouvoir m'aider.


Cid

1 réponse

Avatar
Rv
Salut,

Au lieu de faire un msgbox strSQL, on pourrait faire un debug.print
strSQL, puis copier le texte SQL affiché dans la fenêtre d'exécution, et le
coller dans le générateur de requête au niveau du code SQL, exécuter la
requête à partir de là et voir ce qui ne colle pas : le message d'erreur
sera sûrement plus explicite!

A+

Rv


"CID" a écrit dans le message de
news:09a501c3aab1$720e77f0$
bonjour,

je suis entrain de faire un travail sur Access 2000, et
je demande a ce qu'il m'execute une requete pour mettre
un jour un champ, et il met me le message Trop peu de
parametre. 1 attendu.
je me mon code source et l'endroit du prbleme :

Sub DragDrop(DragFrm As Form, DragCtrl As Control,
DropFrm As Form, DropCtrl As Control, _
Button As Integer, Shift As Integer, x As
Single, Y As Single)

Dim strSQL As String
Dim temp As String
Dim temp1 As String
Dim DB As DAO.Database

Set DB = CurrentDb()

temp = DragCtrl
temp1 = DropFrm.LibES

strSQL = "UPDATE DMT_ES SET Nom_Imp = '" & temp
& "'"
strSQL = strSQL & " WHERE LibES = '" & temp1 & "'"

MsgBox " " & strSQL

DB.Execute strSQL -- ici le message d'erreur
apparait

DropCtrl.Requery
End Sub


Merci de pouvoir m'aider.


Cid