Discussion :

[jeo13]

Bonjour a tous,

J'ai un formulaire sur lequel j'ai placé le code suivant:

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

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.


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

[Jean-Philippe André]

salut,
ton i est écrit en dur dans ta requête...

essaie avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SQL = " UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = [Forms]![frm_ChequesDelivered]![PrintDate]"
     SQL = SQL & " WHERE tbl_Cheques.ChequeSerialNumber=[Forms]![frm_ChequesDelivered]![Number1stCheque] + " & i  - 1 & ";"

[jeo13]

Merci beaucoup!

mais j'obtiens le même message d'erreur...

[Jean-Philippe André]

ok, autre méthode alors, sortir les paramètres liés aux formulaires du sql en dur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SQL = "UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = " & [Forms]![frm_ChequesDelivered]![PrintDate]
SQL = SQL & " WHERE tbl_Cheques.ChequeSerialNumber=" & [Forms]![frm_ChequesDelivered]![Number1stCheque] + i  - 1 & ";"

avec là encore une erreur potentielle : le format des champs (texte et/ou date notamment)

[jeo13]

Bingo!
Sur la date il y a une erreur de format....

Dans la table tbl_Cheques, PrintDate a pour format: Medium Date.
Dans le formulaire, PrintDate a également pour format: Medium Date.

Toutes les deux avec un masque 00\->L<LL\-00;0;_

[Jean-Philippe André]

une valeur de type date doit être indiquée entre #, exemple :
#01/19/1984# pour le 19 janvier 1984
ou
#09/11/2001# pour le 11 septembre 2001

à essayer dans ce cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL = "UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = #" & [Forms]![frm_ChequesDelivered]![PrintDate] & "#"