bonjour,
j'ai créé un formulaire evc les coordonnées des fournisseurs, j'ai crée des boutons de déplacements entre les enregistrements, le problème est que lorsque je crée un nouveau fournisseur, puis que je le supprime et que je quitte ce formulaire, en le rechargeant ensuite je ne peux plus me déplacer correctement : en cliquant sur le bouton suivant un enregistrement vide s'affche, je ne peux plus les faire défiler à moins de passer en mode créationde formulaire et de rebasculer en mode formulaire
voici mes codes :
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 Private Sub Form_Current() On Error GoTo GestErr If Me![Numéro] > 1 Then Me!openprevious.Enabled = True Else Me!openprevious.Enabled = False GestErr: Select Case Err Case 2164 Me!opennext.SetFocus Resume Case Else Exit Sub End Select End If Exit Sub End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub opennext_Click() On Error GoTo Err_opennext_Click DoCmd.GoToRecord acDataForm, "F_MAJ_Données_Fournisseur", acNext Exit_opennext_Click: Exit Sub Err_opennext_Click: MsgBox Err.Description Resume Exit_opennext_Clickmerci,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub openprevious_Click() On Error GoTo Err_openprevious_Click DoCmd.GoToRecord acDataForm, "F_MAJ_Données_Fournisseur", acPrevious Exit_openprevious_Click: Exit Sub Err_openprevious_Click: MsgBox Err.Description Resume Exit_openprevious_Click End Sub
estancha.
Partager