Problème avec Bouton de Déplacement "Précédent et suiva

Version imprimable

Bonjour à tous,

Voilè mon problème :

J'ai créer 2 bouton de déplacements : Précédent et suivant mais il ne marche qu'une fois.

Voici mon code pour le bouton Précédent :

Code:

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
Private Sub Commande87_Click()
On Error GoTo Err_Commande87_Click
 
Dim P As DAO.Recordset
 
Set P = CurrentDb.OpenRecordset("Select * From CLIENT Where Code_Commerciaux = " & Chr(34) & Modifiable3 & Chr(34))
 
 
Texte16 = P.Fields("Num_Clt")
Texte18 = P.Fields("Nom_Clt")
Texte26 = P.Fields("Adr_Rue_Clt")
Texte29 = P.Fields("Adr_Ville_Clt")
Texte32 = P.Fields("Adr_CP_Clt")
Texte36 = P.Fields("Tel_Clt")
Texte40 = P.Fields("Présentation_Clt")
P.MovePrevious
Set P = Nothing
 
Exit_Commande87_Click:
    Exit Sub
 
Err_Commande87_Click:
    MsgBox Err.Description
    Resume Exit_Commande87_Click
 
End Sub

Et Voici le code pour le bouton Suivant :

Code:

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
Private Sub Commande44_Click()
On Error GoTo Err_Commande44_Click
Dim P As DAO.Recordset
 
Set P = CurrentDb.OpenRecordset("Select * From CLIENT Where Code_Commerciaux = " & Chr(34) & Modifiable3 & Chr(34))
If Not P.EOF Then
P.MoveNext
Texte16 = P.Fields("Num_Clt")
Texte18 = P.Fields("Nom_Clt")
Texte26 = P.Fields("Adr_Rue_Clt")
Texte29 = P.Fields("Adr_Ville_Clt")
Texte32 = P.Fields("Adr_CP_Clt")
Texte36 = P.Fields("Tel_Clt")
Texte40 = P.Fields("Présentation_Clt")
End If
 
P.Close
Set P = Nothing
Exit_Commande44_Click:
    Exit Sub
 
Err_Commande44_Click:
    MsgBox Err.Description
    Resume Exit_Commande44_Click
 
End Sub

Pouvez-vous m'aider car je n'arrive pas à trouver la solution?

Merci d'avance

06/01/2005, 11h58
xp

Bonjour,
le problème est simple: à chaque fois que tu appuies sur ton bouton, tu exécutes ton code, tu ouvres ton recordset, tu fais ta manip, et tu fermes ton recordset (automatique).

Donc, à chaque fois tu repars du début. il faut éviter que le recordset soit fermé (en le rendant global (cf notion de portée de variable), par exemple).

Maintenant, si ton objectif est de te déplacer dans les enregistrements de la source de donnée de ton formulaire, tu ne dois pas faire comme ca, mais plutôt utiliser la méthode GoToRecord de l'objet DoCmd.
Tu trouveras plus de détails dans les FAQ et Tutoriels
06/01/2005, 12h03
bb62

Je n'est pas compris ce que tu voulais dire?

Autrement dit:
quand tu appuies sur le bouton commande44, tu executes la procédure Commande44_Click() .
Dans cette procédure tu ouvres un jeu d'enregistrements (OpenRecordset) qui s'appelle P, et tu te positionnes automatiquement sur le premier enregistrement.
Ensuite, tu te positionnes sur l'enregistrement suivant P.MovePrevious (ca marche)
tu fermes le recordset (set p=Nothing)

La procédure se termine.
Tu appuies de nouveau sur ton bouton, il se passe exactement la même chose.
donc tu ne peux pas avancer.

Si ton formulaire affiche les clients d'un commercial choisi dans une liste, tu pourrais faire plutôt quelque chose du style:
1) Lier le formulaire à la table des clients : propriété Source du formulaire :

Code:

Select * From CLIENT;

2) Lier les zone de textes aux champs de table
3) Sur mise à jour de ta liste des clients tu fais :
Code:

1 2 Me.RowSource="Select * From CLIENT Where Code_Commerciaux = " & Chr(34) & Modifiable3 & Chr(34)" Me.Requery
Du coup Ton formulaire ne peut afficher que les clients du commercial de la liste.
4) sur click du bouton suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Commande44_Click() On Error GoTo Err_Commande44_Click DoCmd.GoToRecord , , acNext Exit_Commande44_Click: Exit Sub Err_Commande44_Click: MsgBox Err.Description Resume Exit_Commande44_Click End Sub
et là ca marche....

06/01/2005, 14h05
bb62
Qu'est ce que tu met entre :
Code:

1 2 DoCmd.GoToRecord , , acNewRec
?
06/01/2005, 15h26
xp

Rien
06/01/2005, 15h32
bb62

Je ne comprend pas ce que tu veut dire. Peut tu m'expliquer clairement?

En fait il doit manquer juste un petit truc dans mon code mais je ne sais pas quoi. Si tu le sais peut tu me le dire?
06/01/2005, 15h46
Petogaz

salut,

il existe un code tout fait sur le forum sur la création des boutons de navigation fait par FRED. adapte le et le tour est joué.il suffit de chercher. :arrow: http://www.developpez.net/forums/vie...r=asc&start=15.

merci de chercher avant de poster.
06/01/2005, 16h11
bb62

J'ai été voir le code de Fred et ilme paraît très compliquer.

Pourrez-vous me donner un truc plus simple, si vous le pouvez?

Merci d'avance
06/01/2005, 16h28
xp

Plus simple : tu utilises l'assistant pour créer ton bouton de déplacement : il fait tout tout seul.
06/01/2005, 16h36
bb62

Oui je le sais mais ca ne marche pas ca met le messabe suivant :

Impossible d'atteindre l'enregistrement spécifié.
06/01/2005, 16h40
xp

Ton formulaire est-il rattaché à une source de données ?
Moi, je crois que non.
Tu devrais, comme je dis plus haut.
1) Lier le formulaire à la table des clients : propriété Source du formulaire :

Code:

Select * From CLIENT;

puis assistant.
06/01/2005, 16h45
bb62

Oui je veut bien mais si dans mon formulaire j'ai fait un contrôle onglet et que dans les différentes feuilles j'ai plusieurs bouton de déplacement et que je n'ai pas que la TABLE client qui est relié au formulaire mais plusieurs Tables. Est ce que cela va poser un pb?
06/01/2005, 16h52
xp

Il y a un problème
Tu as 1 formulaire, donc 1 source de données et plusieurs onglets.
Le bouton suivant permet d'afficher l'enregistrement suivant de la source de données.
De mon point de vue, il n'y a pas de problèmes, mais je pense que tu te mélanges les pinceaux.
Peux tu être plus précis : quelle est la source de données? qu'affiches tu sur tes onglets? Que veux tu faire réellement?

Utilises les boutons de déplacement intégrés au formulaire(ils ont les mêmes effets), regarde ce que ca fait.
06/01/2005, 17h04
bb62

J'ai fait le test en créant un autre formulaire et ca marche.

Donc je vais t'expliquer en détail ce que fait mon formulaire.

Sur le premier onglet je récupere le Code_Commerciaux à l'aide d'une zone de liste modifiable.
Ensuite il y a 2 TextBox qui sont Nom et Prenom du Commerciaux. Lorsque je séléctionne un Code_Commerciaux mais 2 TextBox se remplisse.

Dans le 2ème onglet j'ai 7 TextBox qui prenne les informations sur le client dont il est relié au Code_Commerciaux grâce à la zone de liste modifiable du 1er onglet.
Mais comme pour 1 commerciaux il y a plusieurs commerciaux, j'avais penser de faire des boutons de déplacement (Premeir, Suivant, Précédent, Dernier).

Est ce que c'est plus clair?

C'est bien ce que j'avais compris : je te renvoies au post :

1) Tu Lies le formulaire à la table des clients : propriété Source du formulaire :

Code:

Select * From CLIENT;

2) Lier les zone de textes aux champs de table (par exemple propriété Source contrôle de Texte16 : Num_Clt
3) Sur mise à jour de ta liste des clients tu fais :
Code:

1 2 Me.RowSource="Select * From CLIENT Where Code_Commerciaux = " & Chr(34) & Modifiable3 & Chr(34)" Me.Requery
Du coup Ton formulaire ne peut afficher que les clients du commercial de la liste.
4) sur click du bouton suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Commande44_Click() On Error GoTo Err_Commande44_Click DoCmd.GoToRecord , , acNext Exit_Commande44_Click: Exit Sub Err_Commande44_Click: MsgBox Err.Description Resume Exit_Commande44_Click End Sub
et là ca marche.... à nouveau...

06/01/2005, 17h28
bb62

Je n'y arrive toujours pas car je ne comprend pas de trop ce que tu veut dire par "mise à jour de ta liste des clients" parceque en fait je n'est pas de liste des clients mais une liste de code commerciaux. Et en plus il y a d'autre page comme la page projet qui a aussi un bouton de déplacement.
06/01/2005, 18h40
xp

Citation:

Je n'y arrive toujours pas car je ne comprend pas de trop ce que tu veut dire par "mise à jour de ta liste des clients"

Sur l'évènement apès mise à jour

Citation:

parceque en fait je n'est pas de liste des clients mais une liste de code commerciaux.

Mea culpa, je voulais dire commerciaux, bien sur.

Citation:

Et en plus il y a d'autre page comme la page projet qui a aussi un bouton de déplacement.

D'après ce que tu as dis tu as deux pages :
une avec la liste pour choisir le commercial et ici, je ne vois pas pourquoi tu aurais un bouton suivant,
une avec les clients du commercial choisi.
donc si tu fais suivant, avec le code que je t'ai donné, ton formulaire affiche les cllients du commercial choisi.
Le bouton suivant précédent dépalce d'un client à l'autre.
C'est vrai, avec mon code, ta zone de liste commerciaux est recalculée, doncce que tu avais choisi a disparu de la liste.

Sache qu'un bouton de déplacement ""affecte tous le formulaire"" pas seulement la page sur lequel tu l'a mis...
A moins que tu aies des sous-formulaires ??? (mais j'en doute compte tenu de ce que tu as dis)

en espérant que ca aille mieux
07/01/2005, 09h34
bb62

Coucou tout le monde,

J'ai fait ce que tu m'a dit et ce ne marche toujours pas.

Je te rexplique j'ai en fait 5 pages dans mon formulaires grâce à un onglet.

Dans la 1ère feuille j'ai une zone de liste modifiable (Code_Commerciaux) et 2 TextBox (Nom_Commerciaux, Prenom_Commerciaux) dans cette feuille j'ai 3 boutons (Nouveau, Modifier, Supprimer qui marche impect).

Dans la 2ème feuille, j'ai 7 TextBox (Code_Client, Nom_Client, Adr_Rue_Client,...). J'ai 3 bouton de commande (Nouveau, Modifier etSupprimer). Et 4 boutons de déplacement (Premier, Précédent, Suivant et Dernier). En fait j'aimerais que pour chaque Commerciaux il m'indique les clients en me déplacant sur les boutons.

Dans la 3ème feuille, j'ai 6 TextBox (Code_Projet, LibelléProjet, ...) et 1 chekBox (Projet_Clôturer (O/N)). Il y aussi les même bouton de commande et les mêmes boutons de déplacement. Ici on peut voir quels sont les projets que demande un client à un commerciaux.

Dans la 4ème feuille, 6 TextBox (Code_Action, Libellé_Action, ....) et 1 CheKBox (Action_Terminer(O/N)). Il y ausii les mêmes boutons de commandes et les mêmes boutons de déplacement. En fait j'aimerais que pour un Projet il m'indique les actions à faire grâce au bouton de déplacement.

En fait les boutons de déplacement ne marche pas.
Pouvez-vous m'aider s'il vous plait ou me donnez une autre façon de faire.

Voilà, j'espere avoir été très claire. Si jamais ce n'est pas le cas. Dis le moi.

Merci d'avance.
07/01/2005, 14h47
bb62

Y-a-t-il Quelqu'un qui peut m'aider.

S'il vous plaît Merci d'avance.
07/01/2005, 14h51
bb62

Je crois que j'ai un pb sur ma requête suivante :

Code:

SELECT CLIENT.*, CLIENT.Code_Commerciaux FROM CLIENT WHERE (((CLIENT.Code_Commerciaux)=Formulaires!Formulaire3!Modifiable3.[Column(0)]));

Car elle m'affiche bien les clients d'un commerciaux mais en fait quand je lance mon formulaire il le demande de taper le code_commerciaux et quand je tape par ex 1, quand je vais dans ma liste et que je selectionne 1 il me met bien les clients du 1 et quand je selectionne le 2 il met les clients du 1.

Pouvez-vous m'aider.
Merci.
07/01/2005, 20h04
xp

Bonsoir,
Suite à tes posts, quelques questions :
As tu plusieurs tables (je pense que oui), y-a-t-il des relations définies entre ces tables (j'en suis moins sur).
Suivant les cardinalités de tes relations, l'approche peut changer.
Ce qui est certain, c'est que d'avoir toutes ces informations sur un même formulaire, c'est possible, mais à un prix en développement assez élevé.
Il te faudras mettre les mains dans le cambouis (VBA, même si c'est pas sale :wink: )
Pour te simplifier la vie j'utiliserais des sous-formulaires en affichage continu, ou feuille de données, mais il faut utiliser des champs pères et fils.
Je procèderais par ordre, onglet après onglet : tu en fais un que tu testes, si ca marche tu continues.

Je crois qu'il te faut t'entrainer un peu sur des choses plus simples, avant.
Par exemple, pour créer un formulaire de visualisation , modification, avec des boutons de déplacement, tu n'as pas besoin d'écrire une seule ligne de code...
Bon courage...

Bon courage

J'ai reussi à faire le bouton suivant avec le code suivant :

Code:

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
 
Private Sub Commande44_Click()
 
On Error GoTo Err_Commande44_Click
On Error Resume Next
 
Dim P As DAO.Recordset
Dim db As DAO.Database
Dim EnrActuel As Variant
 
Set db = CurrentDb
 
EnrActuel = Me.Texte16.Value
Set P = db.OpenRecordset("Select * From CLIENT Where Code_Commerciaux = " & Chr(34) & Modifiable3 & Chr(34) & "order by 1")
 
While EnrActuel <> P("Num_Clt")
P.MoveNext
 
 If CBool(Err.Number) Then
            Err.Clear
            Exit Sub
        End If
Wend
P.MoveNext
 
 If CBool(Err.Number) Then
        Err.Clear
        Exit Sub
    End If
 
With Me
Me.Texte16 = P.Fields("Num_Clt")
Me.Texte18 = P.Fields("Nom_Clt")
Me.Texte26 = P.Fields("Adr_Rue_Clt")
Me.Texte29 = P.Fields("Adr_Ville_Clt")
Me.Texte32 = P.Fields("Adr_CP_Clt")
Me.Texte36 = P.Fields("Tel_Clt")
Me.Texte40 = P.Fields("Présentation_Clt")
 End With
 
P.Close
db.Close
 
 
    Set P = Nothing:
    Set db = Nothing:
 
 
 
Exit_Commande44_Click:
    Exit Sub
 
Err_Commande44_Click:
    MsgBox Err.Description
    Resume Exit_Commande44_Click
 
End Sub

Mais je n'arrive toujours pas à aller aux enregistrements précédent car il me met le premier enregistrement . Voici le code :

Code:

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
Private Sub Commande87_Click()
 
On Error GoTo Err_Commande87_Click
On Error Resume Next
 
Dim P As DAO.Recordset
Dim db As DAO.Database
 
Set db = CurrentDb
 
Set P = db.OpenRecordset("Select * From CLIENT Where Code_Commerciaux = " & Chr(34) & Modifiable3 & Chr(34) & "order by 1")
 
With Me
Me.Texte16 = P.Fields("Num_Clt")
Me.Texte18 = P.Fields("Nom_Clt")
Me.Texte26 = P.Fields("Adr_Rue_Clt")
Me.Texte29 = P.Fields("Adr_Ville_Clt")
Me.Texte32 = P.Fields("Adr_CP_Clt")
Me.Texte36 = P.Fields("Tel_Clt")
Me.Texte40 = P.Fields("Présentation_Clt")
 End With
 
P.MovePrevious
P.Close
db.Close
 
 
Set P = Nothing:
Set db = Nothing:
 
Exit_Commande87_Click:
    Exit Sub
 
Err_Commande87_Click:
    MsgBox Err.Description
    Resume Exit_Commande87_Click
End Sub

Mais je pense qu'avec le code du bouton suivant on peut arriver à faire le code pour le bouton précédent.

Pouvez-vous m'aider.

Merci d'avance.

[/code]

11/01/2005, 10h08
Tofalu

Euh, ça veux dire quoi

Code:

order by 1

?

Pourquoi ne pas utiliser les méthodes de DAO appliquables aux objets recordset. Movefirst,last, next, presious ?

Tu as regardé le post it code source ? Fred G y propose la solution complète.

C bon j'ai trouver voici mon code :

Code:

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
 
Private Sub Commande87_Click()
 
On Error GoTo Err_Commande87_Click
On Error Resume Next
 
Dim P As DAO.Recordset
Dim db As DAO.Database
Dim EnrActuel As Variant
 
Set db = CurrentDb
 
EnrActuel = Me.Texte16.Value
Set P = db.OpenRecordset("Select * From CLIENT Where Code_Commerciaux = " & Chr(34) & Modifiable3 & Chr(34) & "order by 1")
 
While EnrActuel <> P("Num_Clt")
P.MoveNext
 If CBool(Err.Number) Then
          Err.Clear
          Exit Sub
        End If
Wend
P.MovePrevious
 
If CBool(Err.Number) Then
      Err.Clear
      Exit Sub
    End If
 
With Me
Me.Texte16 = P.Fields("Num_Clt")
Me.Texte18 = P.Fields("Nom_Clt")
Me.Texte26 = P.Fields("Adr_Rue_Clt")
Me.Texte29 = P.Fields("Adr_Ville_Clt")
Me.Texte32 = P.Fields("Adr_CP_Clt")
Me.Texte36 = P.Fields("Tel_Clt")
Me.Texte40 = P.Fields("Présentation_Clt")
 End With
 
P.Close
db.Close
 
 
    Set P = Nothing:
    Set db = Nothing:
 
 
Exit_Commande87_Click:
    Exit Sub
 
Err_Commande87_Click:
    MsgBox Err.Description
    Resume Exit_Commande87_Click
End Sub

Order by 1 veut dire que les enregistrements sont rangé par ordre Alphabéthique sur le 1er champ donc ici le Num_Client.

Bisous à tous.