VBA: Probleme exécution requete Update

**jeo13** · 04/09/2008, 10h08

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é** · 04/09/2008, 10h27

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** · 04/09/2008, 11h22

Merci beaucoup!

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

**Jean-Philippe André** · 04/09/2008, 11h37

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** · 04/09/2008, 11h52

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é** · 04/09/2008, 11h58

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] & "#"

**jeo13** · 04/09/2008, 12h13

Toujours le m6eme message d'erreur...

J'ai mis une msgbox pour voir la date.

Pour le 4 septembre, ça m'affiche 9/4/2008 (Version anglaise d'Access).
Alors que je rentre 4-Sep-08 pour avoir le même format que dans la table...

**Jean-Philippe André** · 04/09/2008, 12h14

ok, rajoute un Format()

Code :

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

SQL = "UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = #" & Format([Forms]![frm_ChequesDelivered]![PrintDate],"MM/dd/yyyy") & "#"

**jeo13** · 04/09/2008, 12h23

J'ai testé la ligne de code que tu m'as passé ainsi que la suivante:

Code :

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

 SQL = "UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = #" & Format([Forms]![frm_ChequesDelivered]![PrintDate], "dd-mmm-yy") & "#"

Mais rien n'y fait...

**Jean-Philippe André** · 04/09/2008, 14h06

heureusement que j'ai mis la bonne syntaxe dans mon exemple hein

en SQL les dates sont sensées apparaitre sous le format #MM/DD/YYYY#

**jeo13** · 04/09/2008, 14h49

Non mais j'ai testé la ligne que tu m'as passé et ça n'a pas marché.

Voila pourquoi j'ai aussi testé avec dd-mmm-yy

**Jean-Philippe André** · 05/09/2008, 12h03

ok,
que te donne le Debug.Print stp ?

Code :

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

1
2
SQL = "UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = #" & Format([Forms]![frm_ChequesDelivered]![PrintDate],"MM/dd/yyyy") & "#"
Debug.print SQL

**jeo13** · 06/09/2008, 20h38

Ca me donne ca dans la fenêtre de débogage:

Code :

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

UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = #09/06/2008# WHERE tbl_Cheques.ChequeSerialNumber=800851;

et j'ai toujours le message:

Type de données incompatibles dans l'expression du critère

**jeo13** · 06/09/2008, 20h54

Suite à ça j'ai testé la ligne de code suivante:

Code :

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

1
2
SQL = "UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = #" & Format([Forms]![frm_ChequesDelivered]![PrintDate], "MM/dd/yyyy") & "#"
    SQL = SQL & " WHERE tbl_Cheques.ChequeSerialNumber=" & "'" & [Forms]![frm_ChequesDelivered]![Number1stCheque] + i - 1 & "'" & ";"

et j'obtiens dans le debug:

Code :

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

UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = #09/06/2008# WHERE tbl_Cheques.ChequeSerialNumber='800851';

+ le message d'erreur suivant:

Impossible de mettre à jour; actuellement verrouillé(e)

**Chtulus** · 06/09/2008, 23h02

Bonsoir,

Là i s'agit d'un autre problème, quels sont tes droits sur la base...

**jeo13** · 07/09/2008, 00h46

J'ai tous les droits. Je comprends plus...

Mais doit-on avoir :

Code :

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

UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = #09/06/2008# WHERE tbl_Cheques.ChequeSerialNumber='800851';

ou bien

Code :

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

UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = #09/06/2008# WHERE tbl_Cheques.ChequeSerialNumber=800851;

?

Car il me semble que c'est au niveau du critère que ça coince vu le type de données incompatibles.

Invité · 07/09/2008, 05h37

Bonjour

Ce qui change entre les deux, c'est que ton champ ChequeSerialNumber est de type texte, c'est pour cela qu'il faut les '.

Dans quel condition veux-tu mettre à jour ton enregistrement ? Est-ce qu'il y a déjà une action en cours sur celui-ci ?

Starec

**jeo13** · 07/09/2008, 10h06

Ok merci! Donc je dois laisser les '.

En fait, par le code ci-dessous, je veux mettre a jour la date PrintDate de tous les enregistrements pour lesquels le ChequeSerialNumber va du 1er (renseigné via le formulaire) jusqu'au dernier grace a une incrémentation du numéro.

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
31
32
33
Private Sub cmd_SaveOrder_Click()
 
    ' ************************
     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
 
     Dim SQL As String
     Dim Req As QueryDef
   SQL = "UPDATE tbl_Cheques SET tbl_Cheques.PrintDate = #" & Format([Forms]![frm_ChequesDelivered]![PrintDate], "MM/dd/yyyy") & "#"
    SQL = SQL & " WHERE tbl_Cheques.ChequeSerialNumber='" & [Forms]![frm_ChequesDelivered]![Number1stCheque] + i - 1 & "';"
    Debug.Print SQL
    Set Req = CurrentDb.CreateQueryDef("", SQL)
    Req.Execute dbFailOnError
 
Next i
End With
 
rst.Close
Set rst = Nothing
Set dbs = Nothing
 
End Sub

J'obtiens la même erreur d'enregistrement verrouillé. La ligne suivante est surlignée en jaune dans le code

Code :

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

  Req.Execute dbFailOnError

A ma connaissance, il n'y a aucune action en cours sur les enregistrements.
Peut-etre est-ce la boucle for qui est mal écrite?

Car j'arrive a écrire la date pour le 1er enregistrement avec 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
 Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl_Cheques")
 
With rst
    rst.Edit
    rst.Fields("PrintDate").Value = Me.PrintDate
    rst.Update
 End With
 
rst.Close
Set rst = Nothing
Set dbs = Nothing