Déblocage de mon code

Bonjour,
j'ai commencer de taper ce code mais je bloque avec un message d'erreur " erreur d'exécution "3021" "BOF ou EOF est égale à true ou l'enregistrement actuel a été supprimé. L'opération demandé nécessite un enregistrement actuel "

Je pense que le problème vient de ma clause Where mais je ne suis pas sur.
Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub IDEtat_Change()   Dim cnc As New ADODB.Connection Dim cmd As New ADODB.Command Dim intVal As Integer Dim varNval As Variant Dim rst As New ADODB.Recordset Dim varresult As Variant   Set cnc = CurrentProject.Connection Set cmd.ActiveConnection = cnc cmd.CommandText = "Select Matricule,IDFormation,ValidationFormation From T_FormationPersonnel Where Matricule And IDFormation = " & Me.Matricule & Me.IDFormation   If Me.IDEtat = 5 Then   Set rst = cmd.Execute varresult = rst("Matricule") & ("IDFormation") & ("ValidationFormation") MsgBox varresult End If End Sub

---

Merci d'avance pour votre aide.

bonsoir,

Citation:

---

j'ai commencer de taper ce code mais je bloque avec un message d'erreur " erreur d'exécution "3021" "BOF ou EOF est égale à true ou l'enregistrement actuel a été supprimé. L'opération demandé nécessite un enregistrement actuel "

---

en premier lieu, ce serait sympa d'indiquer la ligne en erreur
en second lieu, ce serait bien de bien respecter la syntaxe de la clause WHERE:

Code:

---

cmd.CommandText = "Select Matricule,IDFormation,ValidationFormation From T_FormationPersonnel Where Matricule = " & Me.Matricule & " And IDFormation = " & Me.IDFormation

---

ensuite on peut tester si la requête renvoie un résultat pour éviter l'erreur 3021:

Code:

---

if not rst.EOF then varresult = rst("Matricule") & ("IDFormation") & ("ValidationFormation")

---

Bonsoir,

Cela me semble bourré de bugs ! J'ai viré ce qui ne sert pas et mis des syntaxes correctes...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub IDEtat_Change()   Dim cnc As New ADODB.Connection Dim cmd As New ADODB.Command Dim intVal As Integer Dim varNval As Variant Dim rst As New ADODB.Recordset Dim varresult As Variant   Set cnc = CurrentProject.Connection   If Me.IDEtat = 5 Then   rst.open "Select Matricule,IDFormation,ValidationFormation From T_FormationPersonnel Where Matricule=" & Me.Matricule " And IDFormation=" & Me.IDFormation, cnc, adOpenStatic 'encadrer de ' cotes si strings ! varresult = rst!Matricule & rst!IDFormation & rst!ValidationFormation MsgBox varresult End If End Sub

---

Merci pour votre aide.