Pb syntaxe SQL dans recodset: trop peu de parametre

**tAKAmAkA** · 02/02/2007, 20h05

Bonjour,

Je fini par poster car j'ai fait vraiment beaucoup d'essais (j'ai même essayé de réfléchir) mais je n'y arrive pas.

Je cherche le premier numéro disponible pour faire un versement d'archive dans un cadre de classement type Archives départementales.

Dans un formulaire de "Versement" je saisi un code Série "Serie" et un code Sous-Série "NumeroVOSS".

La fonction ProchainVersement est lancéee

Code :

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

1
2
3
 '__ Donne le prochain numéro de série à utiliser
 
    Me.txtProchainVersement.Value = ProchainVersement(Me.Serie, Me.NumeroVOSS)

et me ramène le 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
34
35
36
37
38
39
40
41
42
43
44
45
Public Function ProchainVersement(ByVal Serie As String, ByVal NumeroVOSS As Long)
 
Dim sqltextPV As String
Dim ProchainContinuW As String
Dim ProchainContinuL As String
Dim rstPV As DAO.Recordset
 
 
Debug.Print "PV "; sqltextPV
 
 Select Case Serie
        Case "W"
        ' cas d'un classement en série continue, le numéro est à gauche
sqltextPV = "SELECT ItemID FROM tblItem WHERE ItemID LIKE '*" & Serie & "*' ORDER BY ItemID;"
Set rstPV = CurrentDb.OpenRecordset(sqltextPV)
rstPV.MoveLast 'se place sur le dernier record trié
RenvoiDescriptionPV = rstPV!ItemID
Debug.Print "ItemID = "; RenvoiDescriptionPV
rstPV.Close
ProchainContinu = Left(RenvoiDescriptionPV, (InStr("1", RenvoiDescriptionPV, Serie, vbTextCompare)) - 1) + 1
        Case "L"
       ' cas d 'un classement en série thématique, le numéro est à droite
            Select Case NumeroVOSS
            Case "1"
                '__ On selectionne les numéros d'articles commençant par 1L
 
sqltextPV = "SELECT ItemID FROM tblItem WHERE Left(ItemID , (InStr(1, ItemID, '" & Serie & "', vbTextCompare)) + 1) = " & NumeroVOSS & " AND ItemID LIKE '*" & Serie & "*' ORDER BY ItemID;"
 
Debug.Print sqltextPV
Set rstPV = CurrentDb.OpenRecordset(sqltextPV)
rstPV.MoveLast 'se place sur le dernier record trié
RenvoiDescriptionPV = rstPV!ItemID
Debug.Print "ItemID = "; RenvoiDescriptionPV
rstPV.Close
ProchainContinu = Right(RenvoiDescriptionPV, (InStr("1", RenvoiDescriptionPV, Serie, vbTextCompare)) + 1) + 1
            Case Else
            End Select
        Case Else
rstPV.Close 'ne pas oublier de refermer le recordset apres
End Select
 
'Debug.Print "W"; ProchainContinu
Debug.Print "Prochain "; ProchainContinu
ProchainVersement = ProchainContinu
End Function

Dans le cas W ca fonctionne
Dans le cas 1L j'ai l'erreur "Trop peu de param, 1 attendu"
Le debug print donne

Code :

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

SELECT ItemID FROM tblItem WHERE Left(ItemID , (InStr(1, ItemID, 'L', vbTextCompare)) + 1) = 1 AND ItemID LIKE '*L*' ORDER BY ItemID;

Parmi ceux qui veillent, il y en aurait-il un pour me décoincer?
Merci et bon WE

**philben** · 02/02/2007, 20h30

bonjour,

Essayer de remplacer <vbTextCompare> par sa valeur numérique soit 1.

Cordialement,

Philippe

**tAKAmAkA** · 02/02/2007, 20h53

Merci pour ton attention,

Si je remplace tout le <left...> par 1 je n'ai pas d'erreur.

Si je remplace <vbTextCompare> par 1 j'ai "type de données incompatible dans l'expression du critère".

**philben** · 02/02/2007, 21h25

re bonjour,

ItemId est un string et numerovoss est un long donc incompatibilité de type dans l'expression :

Code :

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

1
2
Left(ItemID , (InStr(1, ItemID, '" & Serie & "', vbTextCompare)) + 1) = " & NumeroVOSS

il faut écrire éventuellement :

Code :

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

1
2
Left$(ItemID , (InStr(ItemID, '" & Serie & "')) + 1) = '" & NumeroVOSS & "'"

cordialement,

Philippe

**tAKAmAkA** · 02/02/2007, 22h44

Merci pour ta réponse,

J'ai introduit ton code

Code :

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

 sqltextPV = "SELECT ItemID FROM tblItem WHERE Left$(ItemID , (InStr(ItemID, '" & Serie & "')) + 1) = '" & NumeroVOSS & "' AND ItemID LIKE '" & Serie & "*' ORDER BY ItemID;"

Je n'ai pas d'erreur mais il ne trouve pas l'enregisttrement.

Je m'en suis tiré comme ceci:

Code :

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

1
2
3
Dim ConcatSerie As String
ConcatSerie = NumeroVOSS & "" & Serie & "*"
sqltextPV = "SELECT ItemID FROM tblItem WHERE ItemID LIKE '" & ConcatSerie & "' ORDER BY ItemID;"

Mais maintenant j'ai une erreur type incompatible sur

Code :

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

ProchainContinu = Right(RenvoiPV, (InStr("1", RenvoiPV, Serie, vbTextCompare)) + 1) + 1

Alors que dans le cas "W" ca fonctionne (avec Left)

Procedure complete (j'ai simplifié, un peu, l'écriture

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Public Function ProchainVersement(ByVal Serie As String, ByVal NumeroVOSS As Long)
 
Dim sqltextPV As String
Dim ProchainContinu As String
Dim RenvoiPV As String
Dim rstPV As DAO.Recordset
 
 
Debug.Print "PV "; sqltextPV
 
 Select Case Serie
        Case "W"
        ' cas d'un classement en série continue, le numéro est à gauche
sqltextPV = "SELECT ItemID FROM tblItem WHERE ItemID LIKE '*" & Serie & "*' ORDER BY ItemID;"
Debug.Print sqltextPV
Set rstPV = CurrentDb.OpenRecordset(sqltextPV)
rstPV.MoveLast 'se place sur le dernier record trié
RenvoiPV = rstPV!ItemID
Debug.Print "ItemIDW = "; RenvoiPV
rstPV.Close
ProchainContinu = Left(RenvoiPV, (InStr("1", RenvoiPV, Serie, vbTextCompare)) - 1) + 1
        Case "L"
       ' cas d 'un classement en série thématique, le numéro est à droite
            Select Case NumeroVOSS
            Case "1"
                '__ On selectionne les numéros d'articles commençant par 1L
Dim ConcatSerie As String
ConcatSerie = NumeroVOSS & "" & Serie & "*"
'Debug.Print "ConcatSerie  =  "; ConcatSerie
 'sqltextPV = "SELECT ItemID FROM tblItem WHERE Left$(ItemID , (InStr(ItemID, '" & Serie & "')) + 1) = '" & NumeroVOSS & "' AND ItemID LIKE '" & Serie & "*' ORDER BY ItemID;"
sqltextPV = "SELECT ItemID FROM tblItem WHERE ItemID LIKE '" & ConcatSerie & "' ORDER BY ItemID;"
 
Debug.Print sqltextPV
Set rstPV = CurrentDb.OpenRecordset(sqltextPV)
rstPV.MoveLast 'se place sur le dernier record trié
RenvoiPV = rstPV!ItemID
Debug.Print "ItemIDL = "; RenvoiPV
rstPV.Close
ProchainContinu = Right(RenvoiPV, (InStr("1", RenvoiPV, Serie, vbTextCompare)) + 1) + 1
            Case Else
            End Select
        Case Else
rstPV.Close
End Select
 
Debug.Print "Prochain "; ProchainContinu
ProchainVersement = ProchainContinu
End Function

Le Debug.Print "ItemIDW = "; RenvoiPV donne par exemple 5W1 et le ProchainVersement est 6

Le Debug.Print "ItemIDL = "; RenvoiPV donne 1L3 et le resultat attendu pour ProchainVersement est 4

Merci pour ton aide

**Heureux-oli** · 02/02/2007, 22h51

Dans un cas similaire, j'avais une légère différence entre les paramètres SQL et les champs de la tables.

Es-tu certains de tes noms de champ ?

**tAKAmAkA** · 02/02/2007, 22h58

Bonsoir Heureux oli

De quels genre de différence parle tu?

Pour mes noms de champ j'en aussi certain que l'on peut l'être (cet à dire à mon petit niveau d'expertise)

Ca fctionne dans le cas W
Dans le cas L seul NumeroVOSS est en plus il j'y trouve la valeur attendue.

**Heureux-oli** · 02/02/2007, 23h07

Différence dans les noms.

passwd au lieu de password.
C'était l'erreur que j'avais et le message était trop peu de paramètres.

**tAKAmAkA** · 02/02/2007, 23h15

Je crois que mon problème est dans une mauvaise interpretation de Left et Right.
Le cas qui marche est peut-etre du au hazard?

Mon problème est le suivant.
Si mon ItemID est du genre 5W1 le numéro d'ordre est à gauche de la serie (W), le prochain est donc 6.
Si mon ItemID est du genre 2L3 le numéro d'ordre est à droite de la serie (L), le prochain est donc 4.

Je pense donc qu'il vaut mieux utiliser split avec W ou L comme séparateur.

J'y retourne de suite...

**tAKAmAkA** · 02/02/2007, 23h31

Ca y est

Il fallait bien que j'utilise Split

Code :

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

1
2
3
4
5
6
7
8
9
10
11
monTab = Split(RenvoiPV, "L")
Debug.Print "MonTab = "; monTab(1)
ProchainContinu = monTab(1) + 1
            Case Else
            End Select
        Case Else
rstPV.Close
End Select
Debug.Print "Prochain "; ProchainContinu
ProchainVersement = ProchainContinu
End Function

Plus qu'à mettre tout ca bien propre
Merci à H oli et Philippe

JC

Pb syntaxe SQL dans recodset: trop peu de parametre

Requêtes et SQL.

Discussions similaires

Partager

Partager