Bonjour a tous,
J'ai un formulaire sur lequel j'ai placé le code suivant:
Mon but est d'écrire dans le champ PrintDate la date entrée dans le formulaire via la textbox PrintDate pour tous les enregistrements de la table Tbl_Cheques ou le numéro de série du cheque vaut du 1er numéro de série de cheque renseigné jusqu'au dernier. Tout ça via une boucle for.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Dim j As Integer j = Me.NumberOfCheques.Value Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("tbl_Cheques") With rst For i = 1 To j rst.Edit PrintDate.SetFocus PrintDate = Me.PrintDate.Value Dim SQL As String Dim Req As QueryDef SQL = " UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = [Forms]![frm_ChequesDelivered]![PrintDate]" SQL = SQL & " WHERE tbl_Cheques.ChequeSerialNumber=[Forms]![frm_ChequesDelivered]![Number1stCheque] + i - 1;" Set Req = CurrentDb.CreateQueryDef("", SQL) Req.Execute dbFailOnError Next i End With rst.Close Set rst = Nothing Set dbs = Nothing
Le probleme est que j'obtiens un message d'erreur: trop peu de paramétres, 2 sont attendus.
Je coince la-dessus depuis un moment mais je ne vois pas ou ca coince vu que ma requete SQL a été crée via Access
Partager