Discussion :

[estancha]

bonjour,

j'ai créé un formulaire evc les coordonnées des fournisseurs, j'ai crée des boutons de déplacements entre les enregistrements, le problème est que lorsque je crée un nouveau fournisseur, puis que je le supprime et que je quitte ce formulaire, en le rechargeant ensuite je ne peux plus me déplacer correctement : en cliquant sur le bouton suivant un enregistrement vide s'affche, je ne peux plus les faire défiler à moins de passer en mode créationde formulaire et de rebasculer en mode formulaire

voici mes codes :

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
Private Sub Form_Current()
 
On Error GoTo GestErr
If Me![Numéro] > 1 Then
  Me!openprevious.Enabled = True
Else
  Me!openprevious.Enabled = False
 
GestErr:
 
Select Case Err
  Case 2164
    Me!opennext.SetFocus
    Resume
  Case Else
    Exit Sub
End Select
 
End If
Exit Sub
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub opennext_Click()
On Error GoTo Err_opennext_Click
 
    DoCmd.GoToRecord acDataForm, "F_MAJ_Données_Fournisseur", acNext
 
Exit_opennext_Click:
    Exit Sub
 
Err_opennext_Click:
    MsgBox Err.Description
    Resume Exit_opennext_Click

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub openprevious_Click()
On Error GoTo Err_openprevious_Click
 
    DoCmd.GoToRecord acDataForm, "F_MAJ_Données_Fournisseur", acPrevious
 
Exit_openprevious_Click:
    Exit Sub
 
Err_openprevious_Click:
    MsgBox Err.Description
    Resume Exit_openprevious_Click
 
End Sub

merci,

estancha.

[estancha]

Là je viens de me rendre compte que lorsque je supprime un enregistrement, quand je navigue et que je reviens à son ancien numéro qui n'existe plus, j'ai un formulaire tout blanc sans bouton, ni rien, juste avec le fond.

j'aurai dû utiliser les boutons de déplacements de access, mais les gens veulent des gros boutons...

merci,

estancha

[Papy Turbo]

j'aurai dû utiliser les boutons de déplacements de access, mais les gens veulent des gros boutons...

Tu as bien fait de mettre ça, ma première réaction, c'est : pourquoi te torturer.
Je ne comprends pas vraiment ton problème, mais ta méthode me semble assez zarbi...
Pourquoi tu ne mettrais pas, dans tes boutons quelque chose comme :

Code :

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

1
2
3
4
5
6
7
Private Sub OpenNext_Click() 
    With Me.Recordset
        If Not .EOF Then
            .MoveNext
        End If
    End With
End Sub

C'est simplifié, bien sûr, mais je te laisse le soin de le mettre au point, avec .MovePrevious bien sûr, et 'if Not .BOF' sur l'autre.
D'autant plus simplifié qu'en fait, au delà de EOF, Access crée le nouvel enregistrement;
Donc, ça sera peut être 'If Not Me.NewRecord...' ?
À tester.

[estancha]

merci papy turbo, c mieux avec ta méthode, en fait je viens de voir le vrai problème : -quand je crée un nouvel enregistrement et que je recharge le formulaire il y a un filtre sur le numéro du fournisseur = 1.
Donc je ne peux plus me déplacer, j'ai interdit le filtrage sur le formulaire, mais ça ne marche pas.


c vraiment se prendre la tête pour de broutilles, mais bon...

estancha

[estancha]

En fait le problème vient de mon formulaire d'avant où il y la liste des fournisseurs et on peut cliquer sur un bouton pour ouvrir ses coordonnées.

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
Private Sub openmajdata_Click()
On Error GoTo Err_openmajdata_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "F_MAJ_Données_Fournisseur"
    stLinkCriteria = "[Numéro]=" & Me.Numéro
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_openmajdata_Click:
    Exit Sub
 
Err_openmajdata_Click:
    MsgBox Err.Description
    Resume Exit_openmajdata_Click
 
End Sub

je ne sais pas comment éviter que sa filtre tout en ouvrant le bon fournisseur...

merci estancha

[Papy Turbo]

je ne sais pas comment éviter que sa filtre tout en ouvrant le bon fournisseur...

Il faut que
- tu enlèves le critère qui filtre ton formulaire,
- tu ouvres le formulaire,
- tu l'actives :
- tu actives le contrôle contenant ton [Numero],
- tu lances une recherche qui va afficher le bon enregistrement.

Code :

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

1
2
3
4
5
6
    DoCmd.OpenForm stDocName
    With Forms(stDocName)
        .SetFocus
        ![Numero].SetFocus
        Docmd.FindRecord Me.Numéro
    End With

[estancha]

merci papy turbo, ça roule du tonnerre!!!

estancha