Pb Erreur sur l' instruction Find

[Aladin_23]

Bonjour le forum
J' ai eu une erreur de ce type dans une portion de code avec la methode seek
Erreur d' execution 3251 Opération non autorisé sur ce type d' objet, donc j' ai tout changé et essayé avec find voici le code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function VerifieAgenda(XDATE As Date, Employe As Long, ByRef lacouleur As Long) As Boolean
Dim Db As DAO.Database
Dim rst As DAO.Recordset
 Set Db = CurrentDb()
Set rst = DB.OpenRecordset("Agenda")
 
rst.FindFirst "Employé & XDATE
If rst.NoMatch Then
   VerifieAgenda = False
Else
   lacouleur = 16737843
   VerifieAgenda = True
End If
rst.Close
Db.Close
Set rst = Nothing
Set DB = Nothing
End Function

J' ai une erreur de variable non defini, merci d' avance pour toute aide
Aladin

[ClaudeLELOUP]

Bonjour,

cette syntaxe n'est pas correcte.
1° Le nom du champ doit être encadré de crochets par exemple comme ceci

Code :

rst.FindFirst "[NomDuChamp] =" & Employe

2° ensuite tester si la date correspond
3° si non chercher suivant, si trouvé, verifier la date
----> jusqu'à Eof.

Ensuite que veux-tu faire ici :

Code :

1
2
Else
   lacouleur = 16737843

C'est sans effet.


edit : vois ceci :

http://access.developpez.com/faq/?page=TAProg#findADO

[Aladin_23]

Bonjour Claude et le forum

Merci d' avoir répondu à mon post, j' ai modifié mon instruction find et ca fonctionne, le code

Code :

1
2
Else
   lacouleur = 16737843

Ajoiue une couleur à une ligne

Aladin