[VBA] [SQL] Type incompatible dans le critère

Version imprimable

02/05/2006, 10h53
alex.a

[VBA] [SQL] Type incompatible dans le critère

Bonjours à tous,
Voilà je suis débutant en VBA et travail sur Access 2003. J'ai essayé d'appliqué le tuto de cafeine mais sans succès, je rencontre un problème lorsque je veux sélectionner un critère le msg d'erreur: [FONT=Verdana]Erreur d'exécution '3464' Type de données incompatible dans l'expression du critère[/FONT], apparaît
Lorsque je clic sur débogage le code renvoyé est:

Code:

Me.lblStats.Caption = DCount("*", "HELICOPTER", SQLWhere) & " / " & DCount("*", "HELICOPTER")

De plus lorsque je double clic sur un enregistrement pour ouvrir le formulaire de saisie, le msg d'erreur: [FONT=Verdana]Erreur d'exécution '3075': Erreur de syntaxe (operateur absent) dans l'expression '[Aircraft_Register]=3a-MSY'.[/FONT]
Et lorsque je clic sur débogage le code est:

Code:

DoCmd.OpenForm "helicopter", acNormal, , "[Aircraft_Register] = " & Me.lstResults

Aircraft_Register correspond à ma clé primaire, elle est de type texte. (ex:
3a-MSY)
Pouvez-vous m'aider, merci d'avance
02/05/2006, 13h33
Alain LF

quelle est la valeur de "SQLWhere" ?

essaie plutot:
DoCmd.OpenForm "helicopter", acNormal, , "[Aircraft_Register] = '" & Me.lstResults & "'"
ta clé étant en texte, il faut mettre le paramètre entre quote.

Alain
03/05/2006, 17h36
alex.a
Merci Alain,
J'ai changé mon code et ça marche lorsque je clic sur un enregistrement.

J'ai placé un Debug.Print SQLWhere et j'ai effectué une recherche par critère sur le type d'appareil (AS 332) le même message d'erreur apparaît type 3464.
Dans ma fenêtre d'exécution est renvoyée la valeur suivante:
Code:

1 2 HELICOPTER!Aircraft_Register <> 0 And HELICOPTER!Helicopter_Family = '' HELICOPTER!Aircraft_Register <> 0 And HELICOPTER!Helicopter_Family = 'AS 332'

Voilà où j'en suis pour l'instant dans mon code:

Code:

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
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT Aircraft_Register,Helicopter_Model,SN,Registration_History,Flotation_Status,Helicopter_Family,Country_Helicopter,Last_Update_Date,Last_Update_Person FROM HELICOPTER WHERE Aircraft_Register Is Not Null;"
If Not Me.chkAircraft_Register Then
    SQL = SQL & " And HELICOPTER!Aircraft_Register like '*" & Me.txtRechAircraft_Register & "*' "
End If
If Not Me.chkCountry_Helicopter Then
    SQL = SQL & " And HELICOPTER!Country_Helicopter = '" & Me.cmbRechCountry_Helicopter & "' "
End If
If Me.chkFlotation_Status Then
    SQL = SQL & " And HELICOPTER!Flotation_Status = '" & Me.cmbRechFlotation_Status & "' "
End If
If Me.chkSN Then
    SQL = SQL & " And HELICOPTER!SN like '*" & Me.txtRechSN & "*' "
End If
If Me.chkHelicopter_Family Then
    SQL = SQL & " And HELICOPTER!Helicopter_Family = '" & Me.cmbRechHelicopter_Family & "' "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Debug.Print SQLWhere
Me.lblStats.Caption = DCount("*", "[HELICOPTER]", SQLWhere) & " / " & DCount("*", "[HELICOPTER]")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub

05/05/2006, 15h39
Rcanada

1 pièce(s) jointe(s)

Un petit aperçu de mon formulaire pour que tu voye à koi correspond le code que je t'ai envoyé...
05/05/2006, 15h54
alex.a

Merci pour ton aide,
le code est vraiment différent de celui du tuto de cafeine, mais le résultat est impressionnant 8O

Bonjour a tous

Voila je me permet de poser une question dans cette discussion car j'ai la meme erreur qu'alex.a. J'ai deux critères exacts THEMEPHOTO et NOMSERVICES et un critère continu NOMPHOTOS.
Voici mon code:

Code:

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
Option Compare Database
Private Sub chkNOMPHOTOS_Click()
If Me.chkNOMPHOTOS Then
    Me.txtrechNOMPHOTOS.Visible = False
Else
    Me.txtrechNOMPHOTOS.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkNOMSERVICES_Click()
If Me.chkNOMSERVICES Then
    Me.cmbRechNOMSERVICES.Visible = False
Else
    Me.cmbRechNOMSERVICES.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkTHEMEPHOTO_Click()
If Me.chkTHEMEPHOTO Then
    Me.cmbRechTHEMEPHOTO.Visible = False
Else
    Me.cmbRechTHEMEPHOTO.Visible = True
End If
RefreshQuery
End Sub
Private Sub cmbRechTHEMEPHOTO_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbRechNOMSERVICES_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub txtRechNOMPHOTOS_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
 
        Case "lbl"
            ctl.Caption = "- * - * -"
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
 
        Case "cmb"
            ctl.Visible = False
 
    End Select
Next ctl
Me.lstresults.RowSource = "SELECT NOMPHOTOS, NOMSERVICES, THEMEPHOTO FROM tblPHOTOS;"
Me.lstresults.Requery
End Sub
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT NOMPHOTOS, NOMSERVICES, THEMEPHOTO Where tblPHOTOS!NOMPHOTOS <> 0 "
If Not Me.chkNOMPHOTOS Then
    SQL = SQL & "And tblPHOTOS!NOMPHOTOS like '*" & Me.txtrechNOMPHOTOS & "*' "
End If
If Not Me.chkNOMSERVICES Then
    SQL = SQL & "And tblPHOTOS!NOMSERVICES = '" & Me.cmbRechNOMSERVICES & "' "
End If
If Not Me.chkTHEMEPHOTO Then
    SQL = SQL & "And tblPHOTOS!THEMEPHOTO = '" & Me.cmbRechTHEMEPHOTO & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "tblPHOTOS", SQLWhere) & " / " & DCount("*", "tblPHOTOS")
Me.lstresults.RowSource = SQL
Me.lstresults.Requery
End Sub

Lorsque je clique sur les cases a cocher j'ai "erreur d'execution 2001: opération annulée"
Pourquoi?

Lorsque je débogue il me renvoie vers

Code:

1
2
 
Me.lblStats.Caption = DCount("*", "tblPHOTOS", SQLWhere) & " / " & DCount("*", "tblPHOTOS")

Salut jeck,

ta clé primaire est aussi de type texte?

Mon erreur renvoyé est une erreur d'exécution '3075':
Erreur de syntaxe dans l'espression 'Aircraft_Register <>0; and HELICOPTER!Country_Helicopter=" And
HELICOPTER!Country_Status= "And HELICOPTER!SN like '**'And
HELICOPTER!Helicopter_Family="".

Ma ligne renvoyée est toujours la même et mon Debug.Print WhereSQL me renvoit:
Code:

1 2 3 Aircraft_Register <>0; And HELICOPTER!Flotation_Status = '' And HELICOPTER!SN like '**' Aircraft_Register <> 0; And HELICOPTER!Country_Helicopter = '' And HELICOPTER!Flotation_Status = '' And HELICOPTER!SN like '**' And HELICOPTER!Helicopter_Family = ''

09/05/2006, 17h03
Tofalu

Y a un point virgule en trop en plein milieu non ?

Merci Tofalu,

J’ai changé mon code

Code:

1
2
3
 
SQL = "SELECT Aircraft_Register,Helicopter_Model,SN,Registration_History,Flotation_Status,Helicopter_Family,Country_Helicopter,Last_Update_Date,Last_Update_Person FROM HELICOPTER WHERE Aircraft_Register <> 0; "

en:

Code:

1
2
3
 
SQL = "SELECT Aircraft_Register,Helicopter_Model,SN,Registration_History,Flotation_Status,Helicopter_Family,Country_Helicopter,Last_Update_Date,Last_Update_Person FROM HELICOPTER WHERE Aircraft_Register <> 0 "

je n'ai plus d'erreur renvoyée mais lorsque je sélectionne un critère rien ne se passe.

C'est bon ça marche ;) , mon erreur était le

Code:

Aircraft_Register <> 0

alors que Aircraft_Register était de type texte donc:

Code:

1
2
 
Aircraft_Register <> '' "

maintenant que ça marche sur une table je voudrais le faire sur plusieurs tables.

voici mon code (enfin merci cafeine pour le tuto) qui marche pour une recherche multi-critère sur une table.

Code:

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
 
Option Compare Database
Private Sub chkAircraft_Register_Click()
If Me.chkAircraft_Register Then
    Me.txtRechAircraft_Register.Visible = False
Else
    Me.txtRechAircraft_Register.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkFlotation_Status_Click()
If Me.chkFlotation_Status Then
    Me.cmbRechFlotation_Status.Visible = False
Else
    Me.cmbRechFlotation_Status.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkCountry_Helicopter_Click()
If Me.chkCountry_Helicopter Then
    Me.cmbRechCountry_Helicopter.Visible = False
Else
    Me.cmbRechCountry_Helicopter.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkSN_Click()
If Me.chkSN Then
    Me.txtRechSN.Visible = False
Else
    Me.txtRechSN.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkHelicopter_Family_Click()
If Me.chkHelicopter_Family Then
    Me.cmbRechHelicopter_Family.Visible = False
Else
    Me.cmbRechHelicopter_Family.Visible = True
End If
RefreshQuery
End Sub
Private Sub cmbRechCountry_Helicopter_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbRechFlotation_Status_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbRechHelicopter_Family_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
 
        Case "lbl"
            ctl.Caption = "- * - * -"
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
 
        Case "cmb"
            ctl.Visible = False
 
    End Select
Next ctl
Me.lstResults.RowSource = "SELECT Aircraft_Register, SN, Helicopter_Family, Flotation_Status, Country_Helicopter, Helicopter_Model, Registration_History, Last_Update_Date, Last_Update_Person FROM HELICOPTER"
Me.lstResults.Requery
End Sub
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT Aircraft_Register, SN, Helicopter_Family, Flotation_Status, Country_Helicopter, Helicopter_Model, Registration_History, Last_Update_Date, Last_Update_Person FROM HELICOPTER WHERE Aircraft_Register <> '' "
If Not Me.chkAircraft_Register Then
    SQL = SQL & " And HELICOPTER!Aircraft_Register like '" & Me.txtRechAircraft_Register & "' "
End If
If Not Me.chkCountry_Helicopter Then
    SQL = SQL & " And HELICOPTER!Country_Helicopter = '" & Me.cmbRechCountry_Helicopter & "' "
End If
If Not Me.chkFlotation_Status Then
    SQL = SQL & " And HELICOPTER!Flotation_Status = '" & Me.cmbRechFlotation_Status & "' "
End If
If Not Me.chkHelicopter_Family Then
    SQL = SQL & " And HELICOPTER!Helicopter_Family = '" & Me.cmbRechHelicopter_Family & "' "
End If
If Not Me.chkSN Then
    SQL = SQL & " And HELICOPTER!SN like '" & Me.txtRechSN & "' "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Debug.Print SQL
Me.lblStats.Caption = DCount("*", "HELICOPTER", SQLWhere) & " / " & DCount("*", "HELICOPTER")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub
 
Private Sub lstResults_DblClick(Cancel As Integer)
DoCmd.OpenForm "helicopter", acNormal, , "[Aircraft_Register] = '" & Me.lstResults & "'"
 
End Sub
Private Sub txtRechAircraft_Register_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub txtRechSN_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

bon courage jeck

11/05/2006, 09h31
jeck

Je te remercie alex.a.
Sinon ma clé primaire est bien de type texte, mais pour l'instant cela ne fonctionne toujours pas. Je commençais à me demander si vraiment il était possible de réaliser le tuto avec une clé primaire de type texte, mais comme tu as réussi je retrouve espoir.
Je vais regarder ton code avec attention ;)
19/01/2008, 11h19
doogybreton

que faut il faire si clé est du texte

Citation:

Envoyé par Alain LF

quelle est la valeur de "SQLWhere" ?

essaie plutot:
DoCmd.OpenForm "helicopter", acNormal, , "[Aircraft_Register] = '" & Me.lstResults & "'"
ta clé étant en texte, il faut mettre le paramètre entre quote.

Alain

bonjour, j'ai le meme souci, que faut il faire exactement lorsque la clé primaire est de type texte ?
jai pas trop compris les paramètre entre Quote????