Discussion :

[hajarita65]

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).

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

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.

j'ai associé une fonction à ce champ mais , ça ne marche pas

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

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
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

Merci par avance pour votre aide.

[bernardmichel]

Hello !

Voici un petit code qui te permettra de résoudre ton blème:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub btnTest_Click()
Dim RS      As Object
 
    Set RS = Me.Recordset.Clone
    RS.FindFirst "[IdParticipant] = " & Str(Nz(Me![Test], 0))
    If Not RS.EOF Then Me.Bookmark = RS.Bookmark
 
End Sub

Donc, tu auras compris que j'ai créé:

• Un bouton permettant de faire ce que tu veux, je l'ai nommé "btnTest"
• Un champ dans lequel on saisit l'identifiant, ici: "Test"
• Je fais référence à l'identifiant dans ma table avec "IdParticipant"

Voilà, il te suffit de remplacer chacun de ces noms par ceux que tu as attribué.

Bonne journée :-)

[hajarita65]

Merciii :-)