Discussion :

[ulrichv]

Salut

Je dois a partir d'un sous-formulaire ouvrir un etat par un double clic.
Sur le sous-formulaire, j'ai le code suivant :

Code :

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

1
2
3
4
5
6
Private Sub Form_DblClick(Cancel As Integer)
If typefacture = "client" Then
DoCmd.OpenReport "Facture Client", acViewPreview, , "[N°]=" & [N°]
Else: DoCmd.OpenReport "Facture subrogation", acViewPreview, , "[N°]=" & [N°]
End If
End Sub

Le problème est que j'ai le message suivant lors du double clic sur un numéro de facture avec des caractères numérique :

Erreur d'execution "3464" : type de donnée incompatible dans l'expression du critère

Si il s'agit de caractère alphanumérique, il m'ouvre une fenètre avec :
Entrer une valeur de paramètre, ensuite en dessous le numéro de ma facture en alphanumérique, et un champs texte vierge...

Suis complètement perdu ....Helpppp

[mout1234]

Bonjour,

La syntaxe doit correspondre au type de donnée du champ et non à la valeur.

Si ton champ N° est de type texte, tu dois mettre des guillemets ou des quotes.
En supposant que ton N° ne puisse pas contenir de quote, tu peux écrire ceci

Code :

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

1
2
3
4
5
6
7
Private Sub Form_DblClick(Cancel As Integer)
If typefacture = "client" Then
    DoCmd.OpenReport "Facture Client", acViewPreview, , "[N°]='" & [N°] & "'"
Else
    DoCmd.OpenReport "Facture subrogation", acViewPreview, , "[N°]='" & [N°] & "'"
End If
End Sub

[ulrichv]

Merciiii ca marche nickel....

Bonjour,

La syntaxe doit correspondre au type de donnée du champ et non à la valeur.

Si ton champ N° est de type texte, tu dois mettre des guillemets ou des quotes.
En supposant que ton N° ne puisse pas contenir de quote, tu peux écrire ceci

Code :

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

1
2
3
4
5
6
7
Private Sub Form_DblClick(Cancel As Integer)
If typefacture = "client" Then
    DoCmd.OpenReport "Facture Client", acViewPreview, , "[N°]='" & [N°] & "'"
Else
    DoCmd.OpenReport "Facture subrogation", acViewPreview, , "[N°]='" & [N°] & "'"
End If
End Sub