Discussion :

[osia1]

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

[Heureux-oli]

Bonjour,

Petite question, cette sentence vient d'où ?

Code :

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

"Estpositionnesur"

Est-ce une table, une requête ?

[osia1]

c'est une table de ma base de données....

[Jean-Philippe André]

Salut,
au lieu d'avoir à parcourir tous les enregistrements de "EstpositionneurSur", pourquoi ne pas utiliser les fonction Nz()+ DLookup() ?

[osia1]

très bonne question lol, c'est un projet que je récupère donc j'essai de continuer dans la même état d'esprit et la même visualisation que la personne qui l'a commencé... tu pourrais m'expliquer à quoi sert Nz()+ DLookup() ?? merci

[Jean-Philippe André]

En fait tu veux tester s'il existe déjà un enregistrement avec les champs
- num_candidat
- Num_offre

Ici pour récupérer au moins un enregistrement, tu utilises la fonction DLookup

Code :

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

Msgbox DLookup("Num_candidat","Estpositionnesur","Num_Candidat=" & Me.reference_candidat & " AND Num_Offre=" & Me.reference_offre )

La fonction Nz te permet de te prémunir d'un retour null.
retour = Nz(variable, retour si variable null)
=>

Code :

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

Nz(DLookup("Num_candidat","Estpositionnesur","Num_Candidat=" & Me.reference_candidat & " AND Num_Offre=" & Me.reference_offre ),0)

d'où la possibilité de tester le retour

Code :

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

1
2
3
4
5
If Nz(DLookup("Num_candidat","Estpositionnesur","Num_Candidat=" & Me.reference_candidat & " AND Num_Offre=" & Me.reference_offre ),0) <> 0 Then
'déjà un enregistrement
Else
'ajout avec ton code existant
End If

[osia1]

d'accord merci, je vais voir ça ce week end merci beaucoup maitre jpcheck....