Discussion :

[mephistomauvis]

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

[Gandalf24]

Hug

Voial ce que tu donnes :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
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)

Bon ce qui me parait bizare est ton if :
Si c'est pareil, tu prends la valeur de me.currentrecord et tu l'affecte a numeng.... Pourquoi ? a quoi ca sert ? me.currentrecord n'a rien a voir avec ta liste...

[jacou]

Bonsoir, ça marcherait mieux:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Sub modfilm_Click()
  Dim mabase As Database
  Dim eng As DAO.Recordset
  Dim numeng As Integer
  dim i as long, choixfilm as long
  dim listfilm as string
 
  Set mabase = CurrentDb
  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
 
  i=0
  Do While eng.EOF = False
     If eng.Fields("numfilm") = choixfilm Then
'       numeng = Me.CurrentRecord
       numeng = i
       exit do
    End If
    eng.MoveNext
    i=i+1
  Loop
  MsgBox (numeng)
  DoCmd.OpenForm ("formfilm")
  DoCmd.GoToRecord acDataForm, "formfilm", acGoTo, numeng
 
  eng.Close
 
  Set mabase = Nothing
  Set eng = Nothing
 
End Sub

[DMboup]

Bonjour

A moins d'avoir mal lu, je dirais que vous prenez un avion pour rattraper un piéton

Tu peux faire tous ca en deux lignes du genre

Code :

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

1
2
3
4
 
choixfilm = InputBox("Merci de choisir un film à éditer:" & vbCrLf & vbCrLf & listfilm, "Message d'administration")
 
Docmd.OpenForm "formfilm",,"NumFilm="&choixfilm

Et tu peux contrôler avant d'ouvrir le formulaire

Code :

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

1
2
3
4
5
6
7
8
 
choixfilm = InputBox("Merci de choisir un film à éditer:" & vbCrLf & vbCrLf & listfilm, "Message d'administration")
if nz(Dcount("*", "film","NumFilm="&choixfilm),0)<>0 then
     Docmd.OpenForm "formfilm",,"NumFilm="&choixfilm
else
    msgbox "Pas de film correspondant au numéro saisi"
    '// ou alors tu ouvre le formulaire avec tous les enregistrement
end if

Je crois que c'est un peu plus simple.
Je c

[Tofalu]

Le movefirst en première instruction juste après l'ouverture du recordset me parait dangereux. Que t-il e va se passer si le jeu d'enregistrements est vide ?

Pourquoi parcourir deux fois le recordset ? Je ne comprend pas bien ce que tu veux faire là.