Discussion :

[alex.a]

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 :

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

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 :

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

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

[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

[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 :

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

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

[alex.a]

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

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
 
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

[Rcanada]

Un petit aperçu de mon formulaire pour que tu voye à koi correspond le code que je t'ai envoyé...

[alex.a]

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

[doogybreton]

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????