Bonjour, ce code est censé ouvrir un formulaire, et atteindre l'enregistrement spécifié par l'utilisateur (selon un numéro de film saisie dans une input box)

Donc ma démarche était de:
Demandé le numéro de film
Récupérer le numéro d'enregistrement en parcourant la table des films
Ouvrir le formulaire
Atteindre l'enregistrement correspondant au numéro de film...

Hors.. ça ne marche pas, et il me renvoi que le numéro d'enregistrement est: 0 pour chaque film que je sélectionne

Avez vous des idées pour m'aider?
Merci!

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
Private Sub modfilm_Click()
Dim mabase As Database
Set mabase = CurrentDb
Dim eng As DAO.Recordset
Dim numeng As Integer
Set eng = mabase.OpenRecordset("FILM")
 
listfilm = ""
eng.MoveFirst
While eng.EOF = False
    listfilm = listfilm & eng.Fields("Numfilm") & " - " & eng.Fields("Titre") & vbCrLf
    eng.MoveNext
Wend
 
choixfilm = InputBox("Merci de choisir un film à éditer:" & vbCrLf & vbCrLf & listfilm, "Message d'administration")
eng.MoveFirst
While eng.EOF = False
    If eng.Fields("numfilm") = choixfilm Then
        numeng = Me.CurrentRecord
    End If
    eng.MoveNext
Wend
MsgBox (numeng)
DoCmd.OpenForm ("formfilm")
DoCmd.GoToRecord acDataForm, formfilm, acGoTo, numeng
 
eng.Close
End Sub