Discussion :

[bvalenza]

Bonjour

je cherche pour l'instant à rechercher dans une table un enregistrement
avec une double condition. J'ai une erreur de syntaxe à l'éxécution (3077)
je pense que je me suis loupé dans la syntaxe

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
 
Sub cherche()
 
 
 
' -------------------------------------------------------
' - TEST
' -------------------------------------------------------
 
 
Dim rstStock As DAO.Recordset
Dim R As Integer
Dim E As String
 
Set rstStock = CurrentDb.OpenRecordset("T_STOCK", dbOpenDynaset)
 
 
R = Forms!F_SALARIE.Form!SF_EQUIPSAL!REF_ARTICLE
E = Forms!F_SALARIE.Form!SF_EQUIPSAL!ETAT
 
rstStock.FindFirst "[REF_ARTICLE] = ' & R & ' AND [REF_ARTICLE] = " '& E &'"
 
    If rstStock.NoMatch Then
 
        MsgBox ("nada")
 
    Else
 
        MsgBox ("oui")
 
    End If
 
End Sub

merci d'avance pour votre aide

[madefemere]

Bonjour,

Des soucis dans les quotes ?!

Code :

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

rstStock.FindFirst "[REF_ARTICLE] = '" & R & "' AND [REF_ARTICLE] = '"& E &"'"

par contre, est-ce normal que tu les 2 conditions soient sur REF_ARTICLE

Cordialement.

[bvalenza]

oupsss ....
je corrige et je reviens vers toi
merci

Bonjour,

Des soucis dans les quotes ?!

Code :

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

rstStock.FindFirst "[REF_ARTICLE] = '" & R & "' AND [REF_ARTICLE] = '"& E &"'"

par contre, est-ce normal que tu les 2 conditions soient sur REF_ARTICLE

Cordialement.

[bvalenza]

voici ce que j'ai mis

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
 
 
Sub cherche()
 
 
 
' -------------------------------------------------------
' - TEST
' -------------------------------------------------------
 
 
Dim rstStock As DAO.Recordset
Dim R As Integer
Dim E As String
 
Set rstStock = CurrentDb.OpenRecordset("T_STOCK", dbOpenDynaset)
 
 
R = Forms!F_SALARIE.Form!SF_EQUIPSAL!REF_ARTICLE
E = Forms!F_SALARIE.Form!SF_EQUIPSAL!ETAT
 
rstStock.FindFirst "[REF_ARTICLE] = '" & R & "' AND [ETAT] = '" & E & "'"
 
 
    If rstStock.NoMatch Then
 
        MsgBox ("nada")
 
    Else
 
        MsgBox ("oui")
 
    End If
 
End Sub

errur incompatible. Par contre dans le code au survol de l'erreur j'ai mes bonnes valeurs

[madefemere]

Donc, il faut débogger pour comprendre.
mettre à la ligne 21 avant le FindFirst un

Code :

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

Debug.print "[REF_ARTICLE] = '" & R & "' AND [ETAT] = '" & E & "'"

Après enlever peut-être l'une des conditions et vérifier si cela marche sur la forme et après sur le fond.
et ainsi de suite...
A priori si les 2 champs sont textes, on devrait avoir le résultat correct sans cette erreur d'incompatibilité.

Cordialement.

[bvalenza]

pour info REF_ARTICLE est en numérique
et ETAT est en texte