Discussion :

[21vince]

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 :

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
 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.

[tee_grandbois]

bonsoir,

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 :

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

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 :

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

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

[nico84]

Bonsoir,

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

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
 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

[21vince]

Merci pour votre aide.