Bonjour, mon problème est le suivant, quand je clique sur le bouton action access me renvoi le code erreur 3021 aucun enregistrement en cours pouvez vous m'expliquer pourquoi, je vous mets le code en espérant que ça vous aidera...
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
Dim dob As Database
    Set dob = CurrentDb
    Dim u As DAO.Recordset
    Set u = dob.OpenRecordset("Estpositionnesur")
    Dim existe As Integer
    existe = 0
    Do Until u.EOF
        If ((Me.reference_candidat = u!num_candidat) And (Me.reference_offre = u!Num_offre)) Then
            existe = 1
        End If
    u.MoveNext
    Loop
    If (existe = 1) Then
        If (IsNull(Me.positionnement) = True) Then
        MsgBox "Vous n'avez pas sélectionné de positionnement", vbCritical, "Erreur"
    Else
        u.Edit
            u!Num_offre = Me.reference_offre
            u!num_candidat = Me.reference_candidat
            u!date = date
            u!etat = Me.positionnement
        u.Update
        MsgBox "Le positionnement a bien été enregistré", vbInformation, "Soliance - Recrutement LEAN"
End If
End If