Discussion :

[MuadDib_II]

Bonjour a tous.

J'ai une BDD avec une table T_vent et un formulaire F_vent.
Lorsque je adicione une nouvelle vente, je voudrais verifier si cette vente a déjà été fait et ouvrir une msgbox avec la date de cette vente.

après avoir fait la verification, j'utilise le code suivant pour la msgbox:

Code :

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

1
2
3
4
5
6
7
8
9
Set te = New ADODB.Recordset
te.ActiveConnection = CurrentProject.Connection
te.Source = "SELECT * FROM [T_vent] WHERE [CPTE] = '" & Forms!F_vent!CPTE & "'"
te.CursorType = adOpenDynamic
te.LockType = adLockOptimistic
te.Open
te.MoveFirst
kkk = (te![DAT])
MsgBox (kkk)

Mais lors de l'execution du code, il donne l'error "Type de données incompatibles dans l'expression du critère." sur la passage te.open

Le champs DAT est une champs de Date Générale (10/11/2008 17:45:56)

Est-ce que quelqu'un peut m'aider?
Merci d'avance

[MuadDib_II]

J'ai essayé de faire un test dans une module indépendente, avec le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 
      Dim kk As ADODB.Recordset
    Set kk = New ADODB.Recordset
    kk.ActiveConnection = CurrentProject.Connection
    kk.Source = "SELECT * FROM [T_vent] WHERE [CPTE] = 16072131"
    kk.CursorType = adOpenDynamic
    kk.LockType = adLockOptimistic
    kk.Open
    kk.MoveFirst
    MsgBox (kk!DAT.Value)
 
End Sub

et il marche bien, c'est-à-dire, il bien trove la bonne valeur.

[ataya]

le probleme viens du TYPE de donnée qu tu passe a ta requete :

dans la ligne suivante:

Code :

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

1
2
 
te.Source = "SELECT * FROM [T_vent] WHERE [CPTE] = '" & Forms!F_vent!CPTE & "'"

on voit que tu utilise des cotes pour "entourer" ta valeur Forms!F_vent!CPTE comme si c'etait une string or je presume que CPTE est un entier puisque

Code :

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

kk.Source = "SELECT * FROM [T_vent] WHERE [CPTE] = 16072131"

marche bien.

la solution devrait donc etre:

Code :

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

1
2
 
te.Source = "SELECT * FROM [T_vent] WHERE [CPTE] = " & Forms!F_vent!CPTE

[MuadDib_II]

Je vraiment te remercie!
Il a bien marcjé maintenant!