Discussion :

[huître]

bonjour je viens d'écrire un code qui plante access et je dois dire que je ne comprend pas pourquoi il ne marche

je voudrais savoir les erreurs viennent du code ou pas
le code est le suivant:

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
26
27
28
29
30
31
32
33
34
35
36
Private Sub enregistrer_Click()
 
Dim db As Database
Dim rs As Recordset
Dim rsbis As Recordset
Dim rster As Recordset
Dim stage As Integer
Set db = CurrentDb
 
 
    Set rsbis = db.OpenRecordset("etudiant")
        existe = False
        If rsbis.EOF = False Then rsbis.MoveFirst
 
            Do While existe = False
                If rsbis!nom = Me!nom_etu And rsbis!prenom = Me!prenom_etu Then
                rs.Edit
                rsbis!num_stage = stage
                existe = True
                rs.Update
                rsbis.MoveNext
                End If
            Loop
        rsbis.Close
        If existe = False Then
            If MsgBox("l'étudiant n'existe pas dans la base,voulez vous le rajoutez ? ", vbYesNo) = vbYes Then
                DoCmd.OpenForm "saisie_etudiant"
            End If
        End If
 
 
 
 
Call reinitialisation(Me)
Me.Refresh
End Sub

merci d'avance

[NeuroTransMetteur]

Bonsoir,

Pourquoi déclarer rs As Recordset s'il n'est pas défini par la suite ?

Code :

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

1
2
3
rs.Edit
 rsbis!num_stage = stage
rs.Update

devrait être

Code :

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

1
2
3
rsbis.Edit
 rsbis!num_stage = stage
rsbis.Update

a+

[huître]

merci de m'avoir faire remarquer cette erreur

[huître]

re bonjour
donc j'ai exécute le code suivant :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub enregistrer_Click()
 
Dim db As Database
Dim rs As Recordset
Dim rsbis As Recordset
Dim stage As Integer
Set db = CurrentDb
 
 
 
    Set rs = db.OpenRecordset("stage")
        MsgBox "Tous les champs ont été saisies, merci...", vbInformation
        rs.AddNew
        rs!libelle = Me!libelle
        rs!num_entreprise = Me!num_entreprise
        rs!num_enseignant = Me!enseignant
        rs.Update
        rs.MoveLast
        stage = rs!num_stage
    rs.Close
 
 Set rsbis = db.OpenRecordset("etudiant")
    existe = False
    If rsbis.EOF = False Then rsbis.MoveFirst
        Do While existe = False
                If rsbis!nom = Me!nom_etu And rsbis!prenom = Me!prenom_etu Then
                    rsbis.Edit
                    rsbis!num_stage = stage
                    existe = True
                    rsbis.Update
                End If
                rsbis.MoveNext
        Loop
        rsbis.Close
        If existe = False Then
            If MsgBox("l'étudiant n'existe pas dans la base,voulez vous le rajoutez ? ", vbYesNo) = vbYes Then
                DoCmd.OpenForm "saisie_etudiant"
            End If
        End If
 
End Sub

ça marche uniquement lorsqu'il me trouve l'étudiant dans la table mais si il ne le trouve pas j'ai le message d'erreur suivant : aucun enregistrement en cours

merci d'avance

[NeuroTransMetteur]

Bonsoir,

Normal, puisque tu exécutes un test après le dernier enregistrement.

Code :

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

1
2
3
4
5
6
7
8
9
10
  Do While rsbis.EOF= False  '<----------------
         If rsbis!nom = Me!nom_etu And rsbis!prenom = Me!prenom_etu Then
                rsbis.Edit
                rsbis!num_stage = stage
                existe = True
                rsbis.Update
                Exit Do  '<------------------
         End If
         rsbis.MoveNext
  Loop

Cordialement.

[huître]

ah ok merci c'est génial