Création d'un formulaire de basculement avec plusieurs donnees a faire basculer

**g.hernandez** · 08/08/2007, 09h52

Bonjour à tous

Je suis débutant d'access et également en VBA, je suis actuellement en stage et tous les gens susceptibles de m'aider sont partis en vacances. J'aurais besoin d'un coup de main pour continuer à avancer.

Explications du problème :

En haut de mon formulaire j'ai une liste deroulante pour choisir le numero de fiche outil, en dessous j'ai un petit tableau (zone de liste) qui recense tous les codes de matiere, de la nature et de la forme de la matière disponibles pour le code de fiche outil selectionné, et en dessous j'ai un sous formulaire ou sont recensés le code matiere et le code fiche outil.

Ce que je voudrais : c'est en double cliquant sur une ligne du tableau que l'information s'affiche dans le sous formulaire, j'ai créé une procedure evenementielle en code VBA, mais apparemment elle a un probleme : en mode formulaire qd je double click le message "erreur de compilation type défini par l'utilisateur non defini" apparaît.

Fin de l'explication

Code :

Code VBA :

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
Private Sub CD_MATIERE_DblClick(Cancel As Integer)
 
Dim db As Database
Dim t As Recordset
On Error GoTo GEST_DOUBLON
 
Set db = CurrentDb()
Set t = db.openrecordset("FO_MATI", dbOpenTable)
x$ = cd_matiere.Column(1)
 
'MsgBox CD_MATIERE.Column(1)
t.AddNew
t![CD_FO] = Me.CD_FO
t![cd_matiere] = Me.cd_matiere
t.Update
t.Close
'DoCmd.GoToControl "SF FO_MATI"
Me.SF_FO_MATI.Requery
 
Exit Sub
GEST_DOUBLON:
If Err.Number = 3022 Then
    MsgBox (" déja choisie !")
    Exit Sub
    Resume Next
End If
End Sub

Fin du Code

Etant débutant je suis conscient que c'est peut-être une erreur simple et si c'est le cas je m'excuse de vous solliciter mais j'ai dejà passé quelques heures sur le problème et sans succès.

Merci

**mout1234** · 08/08/2007, 10h46

Bonjour et bienvenu sur le forum.

en mode formulaire qd je double click le message "erreur de compilation type défini par l'utilisateur non defini" apparaît.

Hummm... as-tu référencé la bibliothèque DAO (Outils/Références)?

Sinon... donnes un peu plus de détail... logiquement, Access devrait t'indiquer sur quelle ligne il bloque...

**g.hernandez** · 08/08/2007, 12h41

Dans outil, l'onglet reference est grisé : je ne sais pas pourquoi

C'est le premier code que j'écris je ne sais pas comment access m'indique sur quelle ligne est située l'erreur.
La premiere est surlignée en jaune avec une flèche sur le coté et dans la deuxième "db as database" est surligné en bleu. Je ne connais pas la différence entre ces deux notations d'access.

**DMboup** · 08/08/2007, 12h55

Envoyé par g.hernandez

Dans outil, l'onglet reference est grisé : je ne sais pas pourquoi

Bonjour,

Les références sont accessible à partir de la fenêtre du code. Ouvre ton code et regarde bien.

Par ailleur
FO_MATI => doit être une table
x$ => doit être déclarer au besoin

**g.hernandez** · 08/08/2007, 14h47

J'ai ajouté la bibliotheque DAO et le probleme au niveau de ma deuxieme ligne est resolu.

FO_MATI est bien une table

Il est apparemment necessaire de declarer x$ ms le message d'erreur " erreur de compilation, erreur de syntaxe apparait"
Ca fait une bonne demi-heure que j'essai de le declarer correctement mais toujours sans succes

Ce n'est apparemment pas "As" qu'il faut utiliser?!?

**DMboup** · 08/08/2007, 15h00

Essai avec

Code :

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

1
2
 
Dim x$

**mout1234** · 08/08/2007, 15h05

Il sert à quoi ton x$ ? la variable est utilisée ailleurs?

Si oui, il faut - faute de mieux - la déclarer en globale.
Si non, supprimes cette ligne qui ne semble pas servir.

Le $ correspond a une déclaration "implicite forcée". en d'autres termes, la variable n'est pas déclarée mais son type est défini.
Pour ma part je n'utilise jamais cette syntaxe.
Définis plutot une variable classiquement

Code :

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

Public x as String

Par ailleurs, il est vivement conseillé de nommer explicitement les variables (X ne veut rien dire ...) .

**g.hernandez** · 08/08/2007, 15h49

avec simplement dim x$ ca marche

mout 1234 et DMBoup, je vous remercie, j'arrive à obtenir ce que je voulais : l'information bascule bien

Merci de votre aide

**mout1234** · 08/08/2007, 16h02

Envoyé par g.hernandez

j'ai exactement ce que je voulais comme je le voulais

Encore merci à vous deux

De rien

**g.hernandez** · 09/08/2007, 10h11

Bonjour a tous

J'essaie de faire un autre formulaire de basculement avec toujours ma liste deroulante pour choisir le numero de fiche outil une zone de liste avec avec divers codes documents. Le numero de fiche outil s'insere bien dans le sous formulaire ainsi que le premier code document ( a savoir CD_DOC_TECH_DETAIL) Mais le deuxieme code document (a savoir CD_DOC_TECH_DETAIL) reste toujours egal a 0.

Je n'arrive pas à inserer la partie de code correcte pour que les deux suivent : des que je modifie mon code des erreurs differentes sont annoncé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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
Private Sub CD_DOC_TECH_DETAIL_DblClick(Cancel As Integer)
 
Dim db As Database
Dim t As DAO.Recordset
Dim x$
 
On Error GoTo GEST_DOUBLON
 
Set db = CurrentDb()
Set t = db.openrecordset("FO_DOCUMENT", dbOpenTable)
x$ = CD_DOC_TECH_DETAIL.Column(1)
 
 
'MsgBox CD_DOC_TECH_DETAIL.Column(1)
 
t.AddNew
t![CD_FO] = Me.CD_FO
t![CD_DOC_TECH_DETAIL] = Me.CD_DOC_TECH_DETAIL
 
t.Update
t.Close
'DoCmd.GoToControl "SF_FO_DOCUMENT"
Me.SF_FO_DOCUMENT.Requery
 
Exit Sub
GEST_DOUBLON:
If Err.Number = 3022 Then
    MsgBox (" déja choisie !")
    Exit Sub
    Resume Next
End If
 
End Sub

J'arrive a faire suivre que l'un des deux codes et l'autre est nul (pour n'avoir aucune erreur dans mon code)

Merci a ceux qui vont prendre du temps pour m'aider

**g.hernandez** · 09/08/2007, 13h00

Je viens de me rendre compte que mon explication n'est peut-être pas très claire, je reprends :

Dans ma zone de liste j'ai plusieurs codes documents differents, dans mon sous-formulaire, je veux en récupérer deux, à savoir CD_DOC_TECH_DETAIL et CD_DOC_TECH_ENTETE.
Comme vous pouvez le constater dans le message précédent, suite à l'aide de mout1234 et de DMboup d'hier, j'ai écris un code VBA. Avec ce dernier, seul le CD_DOC_TECH_DETAIL est basculé dans mon sous-formulaire. J'ai essayé pendant quelques heures ce matin de le modifier ( insérer une partie de code supplémentaire) afin que CD_DOC_TECH_ENTETE soit également basculé, mais sans succes (dès que j'insère queque chose qui me semble logique, la bascule ne fonctionne plus du tout).
Ca ne doit pas être grand chose à faire, mais avec ma petite expèrience, je n'y arrive pas.

En vous remerciant d'avance.

**g.hernandez** · 10/08/2007, 09h48

Bonjour a tous
si quelqu'un peut me dire ou est 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
 
Private Sub CD_DOC_TECH_DETAIL_DblClick(Cancel As Integer)
 
Dim db As Database
Dim t As DAO.Recordset
Dim x$
Dim i As String
 
On Error GoTo GEST_DOUBLON
 
Set db = CurrentDb()
Set t = db.openrecordset("FO_DOCUMENT", dbOpenTable)
x$ = CD_DOC_TECH_DETAIL.Column(1)
i = CD_DOC_TECH_DETAIL.Column(2)
 
'MsgBox CD_DOC_TECH_DETAIL.Column(1)
'MsgBox CD_DOC_TECH_ENTETE.Column(2)
 
t.AddNew
t![CD_FO] = Me.CD_FO
t![CD_DOC_TECH_DETAIL] = Me.CD_DOC_TECH_DETAIL
t![CD_DOC_TECH_ENTETE] = Me.CD_DOC_TECH_ENTETE
 
t.Update
t.Close
'DoCmd.GoToControl "SF_FO_DOCUMENT"
Me.SF_FO_DOCUMENT.Requery
 
Exit Sub
GEST_DOUBLON:
If Err.Number = 3022 Then
    MsgBox (" déja choisie !")
    Exit Sub
    Resume Next
End If
 
End Sub

L'erreur sur situe sur : " Me.CD_DOC_TECH_ENTETE "

Merci

**g.hernandez** · 10/08/2007, 10h03

Je viens de trouver la solution je vous la communique

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
 
 
Private Sub CD_DOC_TECH_DETAIL_DblClick(Cancel As Integer)
 
Dim db As Database
Dim t As DAO.Recordset
Dim x$
Dim i As String
 
On Error GoTo GEST_DOUBLON
 
Set db = CurrentDb()
Set t = db.openrecordset("FO_DOCUMENT", dbOpenTable)
x$ = CD_DOC_TECH_DETAIL.Column(1)
i = CD_DOC_TECH_DETAIL.Column(2)
 
'MsgBox CD_DOC_TECH_DETAIL.Column(1)
'MsgBox CD_DOC_TECH_ENTETE.Column(2)
 
t.AddNew
t![CD_FO] = Me.CD_FO
t![CD_DOC_TECH_DETAIL] = Me.CD_DOC_TECH_DETAIL.Column(0)
t![CD_DOC_TECH_ENTETE] = Me.CD_DOC_TECH_DETAIL.Column(1)
 
t.Update
t.Close
'DoCmd.GoToControl "SF_FO_DOCUMENT"
Me.SF_FO_DOCUMENT.Requery
 
Exit Sub
GEST_DOUBLON:
If Err.Number = 3022 Then
    MsgBox (" déja choisie !")
    Exit Sub
    Resume Next
End If
 
End Sub

En esperant que je ne suis pas le seul a avoir des pb simplicimes comme celui-ci

Création d'un formulaire de basculement avec plusieurs donnees a faire basculer

VBA Access

Discussions similaires

Partager

Partager