Discussion :

[meriem.alaooui]

Bonjour tout le monde,
J’ai une table (T_Etudiant) Id_Etudiant,non,date_naica et une table (T_notes_Etudiant) Id_Note,Id_Etudiant,note observations ,.............
Un formulaire F_Etudiant et un sous formulaire SF_Notes (champ pere et fils =T_Etudiant)
Dans le sous formulaire SF_Notes le (Id_Note) s'icrement grâce au 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
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim NextIssueNo As Integer
Dim DB As Database
Dim Rst As Recordset
Set DB = CurrentDb()
Set Rst = DB.OpenRecordset("SELECT Id_Note FROM T_notes_Etudiant order by Id_Note desc;")
If Rst.RecordCount = 0 Then
NextIssueNo = 1
Else
Rst.MoveLast
NextIssueNo = Rst(0) + 1
End If
Rst.Close
Me.Id_Note= NextIssueNo
End Sub

Mon souci est que lorsque je click sur un champ dans le sous formulaire dans la première ligne le Id_Note prend la valeur 1.
Mon problème est que si je passe à la 2 ligne et je click sur n'importe qu'il champ la valeur de Id_Note prend la valeur 2 même si je n'ai pas encore finir la saisie de la 1 ligne et dans la table (T_notes_Etudiant) je trouve seulement les Id_Note sans d'autres données.
Alors y'a-t-il un moyenne d'arrêter l'incrémentation de Id_Note jusqu’à la saisie de tous les champs de la ligne précédente.
Merci d'avance.

[nico84]

Bonjour,

le fait de quitter une ligne la valide même si elle est incomplète. Pour éviter cela, il faut donc interdire de quitter une ligne incomplète ou l'effacer en la quittant...

[meriem.alaooui]

Bonjour,

Bonjour,

le fait de quitter une ligne la valide même si elle est incomplète. Pour éviter cela, il faut donc interdire de quitter une ligne incomplète ou l'effacer en la quittant...

Effictivement je cherche cet astuce :interdire de quitter une ligne incomplète
cordialement.

[nico84]

Effictivement je cherche cet astuce :interdire de quitter une ligne incomplète

J'aurais tendance à faire ça avec l'évènement Form_beforeinsert ou form_afterupdate mais ce n'est pas une ergonomie que j'utilise donc je n'ai pas d'exemple

exemple qui efface la ligne si incomplète :

Code :

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

1
2
3
4
'12.5a efface la ligne en cours de saisie si les champs obligatoires ne sont pas renseignés
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(cd_pers) Or IsNull(initiales) Or IsNull(cd_service) Then Undo
End Sub