Discussion :

[bestall666]

Boujour à tt le monde

Dans ma vidéothèque,, je peux importer un fichier texte en cliquant sur un bouton !!

L'import marche très bien mais une fois celui-ci effectué, j'aimerais me placer sur l'enregistrement que je viens d'ajouter mais pas moyen !!

Meme avec la un

Code :

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

 gotorecord

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
Private Sub cmdImport_Click()
On Error GoTo Err_cmdImport_Click
 
    'Importe un fichier .FILM
    'téléchargé sur le site moviecovers
 
     Dim MonFilm As FilmMC
     Dim FicFilm As String  'Contient le nom du fichier choisi par l'utilisateur
 
    'On affiche la boîte de dialogue "Ouverture de fichier"
 
    FicFilm = ""
 
 
    With CtlDialog
        .DialogTitle = "Sélectionnez un fichier .FILM" 'Titre de la boite
        .FileName = "*.FILM" 'On recherche un fichier d'extension .FILM
        .InitDir = "C:\Fiches Films" 'Répertoire par defaut
        .CancelError = False 'Pour ne pas partir en erreur si on click sur annuler
        .ShowOpen
    End With
 
 
    FicFilm = CtlDialog.FileName
 
    If FicFilm <> "*.FILM" Then
 
        'Ouverture du fichier sélectionné par l'utilisateur
        Open FicFilm For Input As #1 Len = Len(MonFilm)
 
        'On récupère le contenu du fichier
        Line Input #1, MonFilm.FTitre
        Line Input #1, MonFilm.FRéalisateurs
        Line Input #1, MonFilm.FAnnée
        Line Input #1, MonFilm.FPays
        Line Input #1, MonFilm.FGenres
        Line Input #1, MonFilm.FDurée
        Line Input #1, MonFilm.FActeurs
        Line Input #1, MonFilm.FRésumé
        Line Input #1, MonFilm.FDistributeur
        Line Input #1, MonFilm.FTitreVO
 
        'On crée un nouveau film
        Set db = CurrentDb()
        Set rst = db.OpenRecordset("FILM", dbOpenDynaset)
        rst.AddNew
        rst![Titre Film] = MonFilm.FTitre
 
        If IsNull(MonFilm.FTitreVO) Then
            rst![Titre VO Film] = ""
        Else
            rst![Titre VO Film] = MonFilm.FTitreVO
        End If
 
        rst![Année Film] = MonFilm.FAnnée
        rst![Durée Film] = Replace(MonFilm.FDurée, "H", ":")
        rst![Résumé Film] = MonFilm.FRésumé
 
        rst.Update
        rst.Close
 
        Close #1
 
 
        'DoCmd.GoToRecord acDataForm, Forms![frmFilms], acLast
 
        'On informe l'utilisateur de la fin du traitement
        Informer "Importation du fichier terminée avec succès.", "VidéoWin XP"
 
    Else
        Informer "Importation du fichier annulée.", "VidéoWin XP"
    End If
 
 
    Set db = Nothing
 
    Forms![frmFilms].RecordsetClone.MoveLast
    Forms![frmFilms].Requery
    DoCmd.GoToRecord , , acLast
    Forms![frmFilms].Requery
 
    Exit Sub
 
Err_cmdImport_Click:
    Close #1
    MsgBox Err.Description
    Exit Sub
 
End Sub

Merci d'avance si vous avez une solution !!

@++

Bestall666

[Arkham46]

slt,

le requery te replace sur le premier enregistrement, alors pourquoi faire le deuxième requery?

sinon à quoi sert le RecordsetClone.MoveLast ???

[bestall666]

Hello

Merci de me répondre !!

Ce sont mes tests qui sont non concluants !!

En fait j'essaye un peu tout avant de poster !!

@+

Bestall666

[keita]

salut
tout à fait d'accord avec ce que dit Arkham46
Au lieu de:

Code :

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

1
2
3
4
Forms![frmFilms].RecordsetClone.MoveLast 
    Forms![frmFilms].Requery 
    DoCmd.GoToRecord , , acLast 
    Forms![frmFilms].Requery

essai ça:

Code :

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

1
2
3
Forms![frmFilms].Requery
    Forms![frmFilms].SetFocus
    DoCmd.GoToRecord , , acLast

@+[/code]

[bestall666]

salut
tout à fait d'accord avec ce que dit Arkham46
Au lieu de:

Code :

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

1
2
3
4
Forms![frmFilms].RecordsetClone.MoveLast 
    Forms![frmFilms].Requery 
    DoCmd.GoToRecord , , acLast 
    Forms![frmFilms].Requery

essai ça:

Code :

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

1
2
3
Forms![frmFilms].Requery
    Forms![frmFilms].SetFocus
    DoCmd.GoToRecord , , acLast

@+[/code]

Merci c exactement ce que je voulais

@+

Bestall666

[GESCOM2000]

c'est vrai ca sert a rien ton "RecordsetClone.MoveLast"
et la soluce c'est bien

Code :

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

1
2
3
Forms![frmFilms].Requery 
    Forms![frmFilms].SetFocus 
    DoCmd.GoToRecord , , acLast

clt