Se déplacer dans un recordset : premier, dernier, précédent, suivant...

**cotmar** · 15/05/2006, 14h47

Bonjour,

Mon problème est le suivant :

J'ai une liste d'incidents dans une liste,
Je lique sur une des lignes et àa m'ouvre un formulaire qui correspond à l'incident sélectionné.
Ensuite ce que j'aimerais faire c'est pouvoir passer d'un incident à l'autre (enregistrement précédent, suivant...) mais là ça ne marche pas, car il me dit : "impossible d'atteindre l'enregistrement spécifié".

Est ce que tu pourrais m'aider s'il te plait ?

Je précise que j'ouvre le formulaire de la manière suivante :

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
 
 
 
Public Function FctOpenFicheIncident( _
    ByRef StrRegion As String, _
    ByRef StrDroits As String, _
    ByRef StrStatut As String, _
    ByRef StrUser As String) As Boolean
 
On Error GoTo ErrHandler
 
    Dim StrSvDroits       As String
    Dim StrSvRegion       As String
    Dim StrSvStatut       As String
    Dim StrSvUser         As String
 
    Dim StrCheminPJ As String
 
    FctOpenFicheIncident = False
 
 
    If IsNull(Form_FrmListeDesIncidents.LstResultQuery.Column(7)) Then
        GoTo ExitHandler
    Else
        StrStatut = Form_FrmListeDesIncidents.LstResultQuery.Column(7)      
    End If
 
    DoCmd.OpenForm "FrmFormulaireIncident"
 
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, StrStatut, StrUser) Then
        Exit Function
    End If
    If Not ModSQL.FctGetRowSourceFicheIncident(StrRowSource) Then
        Exit Function
    Else
        Form_FrmFormulaireIncident.Filter = "[NumIncident] = " & Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0))
        Form_FrmFormulaireIncident.FilterOn = True
'Me.Filter = "Country = 'USA'"
'Me.FilterOn = True
    End If
 
    Form_FrmFormulaireIncident.Requery
 
    Form_FrmFormulaireIncident.TxtRegionParam.Value = StrRegion 'IIf(StrRegion = "NAT", "*", StrRegion)
 
    If Not FctChargeRegion(StrRegion) Then
        Exit Function
    End If
 
    If Not ModFichier.FctChercheCheminPJ(StrCheminPJ) Then
        Exit Function
    End If
 
    If IsDate(Form_FrmFormulaireIncident.ClosLe) Then
        Form_FrmFormulaireIncident.CmdCloturer.Enabled = False
    End If
 
    FctOpenFicheIncident = True
ExitHandler:
    Exit Function
ErrHandler:
'Resume
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Function

Est ce que quelqu'un pourrait m'aider s'il vous plait ? J'avoue que je ne sais plus trops quoi faire.

Merci d'avance.

Marco.

**Tofalu** · 15/05/2006, 14h50

Euh, il faudrait soigner la mise en page, le code est illisible et le titre ne correpsond pas du tout au problème puisque ce n'est pas openform qui lève l'erreur

**cotmar** · 15/05/2006, 14h59

excuses moi, mais je ne comprends pas. Pourquoi le code est illisible ? Il est correctement indenté...
Est ce qu'il y a quelquechose que je fais mal ou qui maque ?
C'est peut être un problème d'affichage car chez moi ça s'affiche correctement.

En fait ici ce que je montre c'est la manière dont j'ouvre la formulaire... C'eszt important cdar il est possible que l'erreur qui se produit ensuite soit dûe à celà ?

Enfin tu as sans doute raioson et je vais te donner la partie du code du formulaire qui génère l'erreur.

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
 
 
Private Sub CmdPremier_Click()
On Error GoTo ErrHandler
    DoCmd.GoToRecord , , acFirst
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, Statut.Value, StrUser) Then
        Exit Sub
    End If
ExitHandler:
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub
 
Private Sub CmdPrecedent_Click()
On Error GoTo ErrHandler
    DoCmd.GoToRecord , , acPrevious
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, Statut.Value, StrUser) Then
        Exit Sub
    End If
ExitHandler:
    Exit Sub
ErrHandler:
    If Err.Number = 2499 Then
        Resume Next
    End If
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
End Sub
 
Private Sub CmdSuivant_Click()
On Error GoTo ErrHandler
    DoCmd.GoToRecord , , acNext
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, Statut.Value, StrUser) Then
        Exit Sub
    End If
ExitHandler:
    Exit Sub
ErrHandler:
    If Err.Number = 2499 Then
        Resume Next
    End If
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
End Sub
 
Private Sub CmdDernier_Click()
On Error GoTo ErrHandler
    DoCmd.GoToRecord , , acLast
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, Statut.Value, StrUser) Then
        Exit Sub
    End If
ExitHandler:
    Exit Sub
ErrHandler:
    If Err.Number = 2499 Then
        Resume Next
    End If
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
End Sub

Par avance je te remercie.

Marco.

**cotmar** · 15/05/2006, 17h13

Oups pardon,
Désolé je me suis trompé, j'ai mis les précisions sur ce source dans un autre de mes posts.

Je rajoute donc le bout de code en pièce attachée, puiqsu'apparemment on m'a signalé que ça ne s'affichait pas correctement chez certains.

Merci.

Marco.

**Tofalu** · 15/05/2006, 17h15

Plutot que les docmd.gotorecord, utilise les méthodes du recordset

Me.Recordset.MoveFirst
Me.Recordset.MoveLast
Me.Recordset.MoveNext
Me.Recordset.MovePrevious

**cotmar** · 15/05/2006, 17h24

Est ce qu'on les utilise tout seuls comme ça ou est ce qu'il faut rajouter un refresh ou un requery après ?

Parceque chez moi apapremment ça n'a pas d'effet.

Par avance merci.

Marco.

**cotmar** · 15/05/2006, 17h49

En fait apparemment ça ne marche pas.
Il se positionne systématiquement sur un enregistrement qui n'est aps spécialement le premier, mais qui semble être au millieu de ma liste.

Pour préciser un petit peut les choses à ce point :

-J'ai deux écrans qui s'enchainent,
-Dans le premier j'ai une liste d'incidents,
-Lorsque je clique sur un des incidents (n'importe lequel), j'ai son détail qui s'affiche dans un autre écran (qui me permet de faire de la mise à jour),
-Ensuite je veux pouvoir passer d'un enregistrement à l'autre sur l'écran "fiche des incidents" (écran nommé précédemment "détail").

Et en fait c'est ça que j'arrive pas à faire.

En fait mon écran "détail" reçoit pour recordset une requète (car l'utilisateur n'a pas le droit de voir tous les enregistrements).

Pour ouvrir l'écran "détail" je donne un argument dans la clause where (le numéro d'incident).

D'où ma question : est ce que mon problème pour utiliser "movefirst, movenext, movelast, moveprevious" ne viendrait pas de ma façon d'ouvrir le formulaire ?

Par avance merci.

Marco qui désespère de trouver réponse à sa question.

**cotmar** · 15/05/2006, 18h10

Voici mon bout de code qui correspond à l'ouverture du formulaire "détail" :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
    If StrDroits = CstAdmin Then
        DoCmd.OpenForm "FrmFormulaireIncident", acNormal, StrRequete, "[NumIncident] = " & Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0)), acFormEdit, , StrOpenArgs
    ElseIf StrDroits = CstVisualisation Then '=> Attention au cas de l'accès en modif
        DoCmd.OpenForm "FrmFormulaireIncident", acNormal, StrRequete, "[NumIncident] = " & Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0)), acFormReadOnly, , StrOpenArgs
    ElseIf StrDroits = CstCreation Then
        DoCmd.OpenForm "FrmFormulaireIncident", acNormal, StrRequete, "[NumIncident] = " & Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0)), acFormAdd, , StrOpenArgs
    End If

**cotmar** · 15/05/2006, 18h48

En fait je crois que j'ai trouvé un début de piste :

Si j'invalide la partie du code dans laquelle je donne un filtre pour l'ouverture du formulaire :

Code :

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

1
2
3
4
 
 
        Form_FrmFormulaireIncident.Filter = "[NumIncident] = " & Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0))
        Form_FrmFormulaireIncident.FilterOn = True

Apparemment les "movenext, moveprevious, movelast, movefirst" se remettent à fonctionner correctement.

Question : y a t il un moyen pour ouvrir un enregistrement précis sans passer par le filtre dont je donne la syntaxe ici ?

Par avance merci.

Marco.

**Tofalu** · 15/05/2006, 19h22

Dans le cas qui est le tiens :

Me.Recordset.FindFirst "[NumIncident] = " & Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0))

ça devrait coller

**cotmar** · 16/05/2006, 09h01

Bonjour Tofalu,

Merci beaucoups de ta réponse.
Je suis en train d'essayer en ce momment même et pour le momment ça ne marche pas.
Il ne se positinne pas sur le bon enregistrement.

Est ce que tu aurais une idée de là où ça pourrait venir ?

Par avance merci.

Marco.

**Arkham46** · 16/05/2006, 09h26

slt,

ce serait sympa de ne pas ouvrir plusieurs messages avec différents codes (une fois un filtre dans docmd.openform, une fois le filtre à l'ouverture du formulaire)
http://www.developpez.net/forums/sho...d.php?t=145276

on n'est pas là pour le faire le tri et réfléchir sur du code abandonné

merci

**cotmar** · 16/05/2006, 11h07

Salut,

Apparemment ces différentes solutions ne fonctionnent pas.

J'avoue que je ne sais plus trops quoi tenter.

Merci si jamais vous avez une idée.

A bientôt.

Marco.

**cotmar** · 16/05/2006, 12h20

Salut,

Donc voici à présent ce que j'esaye de faire :

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
 
 

Private Sub Form_Load()
On Error GoTo ErrHandler
    Dim StrArgs         As String
    Dim rs              As DAO.Recordset
    Dim StrRowSource    As String

    If Not IsNull(Me.OpenArgs) Then
        StrArgs = Me.OpenArgs
        StrDroits = Split(StrArgs, "¤")(0)
        StrRegion = Split(StrArgs, "¤")(1)
        StrStatut = Split(StrArgs, "¤")(2)
        StrUser = Split(StrArgs, "¤")(3)
    Else
        Exit Sub
    End If
 
    TxtRegionParam.SetFocus
    TxtRegionParam.Text = StrRegion
    NomRedacteur.SetFocus
    NomRedacteur.Text = StrUser
    
    If StrRegion = "NAT" Then
        DatAnalyseNational.Value = Date
    End If
    If Not IsNull(Me.NumSite.Column(0)) Then
    'Alimente les champs "Région" et "Ville" en fonction de la valeur de la combo "NumSite"
        Me.TxtRegion.SetFocus
        Me.TxtRegion.Text = Me.NumSite.Column(2)
        Me.TxtVille.SetFocus
        Me.TxtVille.Text = Me.NumSite.Column(1)
    End If
        
    If Not IsNull(Me.ClosLe.Value) Then
        CmdCloturer.Enabled = False
    End If
        
    Statut = IIf(Me.Statut.Value = "Privé", "Public", "Privé")
    Me.Statut.Value = Statut
    Me.CmdPartager.Caption = IIf(Statut = "Public", "Isoler", "Partager")
    Me.CmdPartager.Enabled = False
    
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, Statut.Value, StrUser) Then
        Exit Sub
    End If
 
    If Not ModSQL.FctChargeRegion(StrRegion) Then
        Exit Sub
    End If
    Me.FilterOn = False
    
'=> Voici la partie qui m'intéresse

    Dim StrSearchName As String
    Set rs = Me.RecordsetClone
    StrSearchName = Str(Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0)))
    rs.FindFirst "NumIncident = " & StrSearchName
    
    If rs.NoMatch Then
        Err.Description = "Enregistrement inexistant"
        Err.Raise 1
    Else
        Me.Bookmark = rs.Bookmark
    End If
    rs.Close
    Me.Refresh
    Me.Recalc
    Me.Requery
    
ExitHandler:
    Set rs = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
End Sub

D'après vous, pourquoi est ce que ça ne fonctionne pas ?

Existe t il une autre méthode pour aboutir au résultat souhaité ?

Par avance merci.

Marco.

**Arkham46** · 16/05/2006, 18h41

slt,

Code :

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

1
2
3
     Me.Refresh
    Me.Recalc
    Me.Requery

à quoi ça sert tout ça? il ne faut essayer tout au hasard sinon ça ne marche pas

**cotmar** · 16/05/2006, 18h49

Merci Arkham,
Effectivement c'est ce que j'ai fais il y a un petit instant et effectvement en enlevant ces tois lignes, ça marche.
Par contre maintent j'arrive plus à lancer mon application Access... Mais c'est une autre histoire.

On peut dire que ce problème là est résolu.

Merci à tous les deux.

Marco.

Se déplacer dans un recordset : premier, dernier, précédent, suivant...

Access

Discussions similaires

Partager

Partager