Bonjour à tous,
J'ai bricolé un peu les boutons de déplacement d'un enregistrement à un autre, et pour afficher le nombre de page j'ai ajouter un champ texte que j'ai appeler "test" et j'ai accordé ce bout de code à ce champs (dans une fonction d'enregistrement courant=CurrentRecord).
Je veux que quand l'utilisateur entre, à la main, dans ce champs un numéro d'enregistrement précis et Click sur "Entrée" il va à cet enregistrement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 With Me !test = CurrentRecord & "/" & .RecordsetClone.RecordCount End With 'test = "Record No. " & .CurrentRecord & " of " & .RecordsetClone.RecordCount End Sub
j'ai associé une fonction à ce champ mais , ça ne marche pas
J'ai essayer aussi de faire un bouton qui permet de cherche un enregistrement, mais ça marche pas non plus
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub test_DblClick(Cancel As Integer) DoCmd.GoToRecord , , acGoTo, Me.test.Value End Sub
Merci par avance pour votre aide.
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 Private Sub Commande68_Click() On Error GoTo Err_Commande68_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 Exit_Commande68_Click: Exit Sub Err_Commande68_Click: MsgBox Err.Description Resume Exit_Commande68_Click End Sub
Partager