Discussion :

[ben_skywalker]

J'ai créé un formulaire pour compléter mais table, et je suis confronter à un problème de modélisation... d'un formulaire de remplissage des tables.

1 programme utilise 1 ou plusieurs Fichier
1 Fichiers peux être utiliser par un ou plusieurs Programme
1 Programme peut faire une MAJ, (de type Entrée, Sorties ou E/S) des fichier qu'il utilise, le problème c'est que 1 même fichier peux être MAJ de façon différente par les programmes qui l'utilisent.

Donc pour le moment, j'ai créé 2 formulaire, un pour entrer les donné des fichier, des programme et un pour le type de MAJ, qui s'ouvre par un clic dans une Zone de Liste, 2 colones, (NumFichier | Nom Fichier) NumFichier est cacher colone à 0cm, et c'est la colone lié. j'ai essayer de mettre la colone 2 en colone lié et le pb persiste.
ce que je veux faire :
faire passer la valeur que prends la zone de liste dans le formulaire MAJ. et peux importe ou je me trouve, access me dit "utilisation incorrect du "Null". première chose que j'ai fait, recherche... résultat :

Code :

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

1
2
3
4
5
6
[Forms]![NomDuFormulaire]![NomDeLaZoneTexet]
'que j'ai transformer pour mes besoins dans MAJ en  :
[Forms]![NomDuFormulaire]![NomDeLaZoneListe] 
'donc dans mon code :
[Forms]![F_Completer]![LST_Fichier]

Dans le formulaire source, F_Completer j'ai essayer de récupérer la valeur et même pb je l'ai fait par la commande :

Code :

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

1
2
3
4
5
Me.LST_Fichier.Value
Me.LST_Fichier.itemSelected(i) ' i ayant une valeur cangeante dans une boucle while j'ai essayer 0, ,1, 2 et 10 
le numéro ne correspond pas au numéro valide 
'pour la zone de liste 8O 8O 

lorsque je fait un msgbox dans mes 2 Formulaires en mettant :

Code :

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

Me.LST_Fichier.Value

erreur utilisation incorrect du null.
pourriez vous m'aider svp, je bloque dessus depuis hier
et voilà le code des deux procédure :

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
Formulaire F_COMPLETER

Private Sub LST_Fichier_Click()
    DoCmd.OpenForm "F_MAJ", acNormal, , , , acDialog
End Sub


Formulaire F_MAJ

Private Sub Form_Load()
'Test pour voir si la valaur arrive jusque dans F_MAJ, tester aussi avant le DoCmd.OpenForm de LIST_Fichier_Click
Dim It As Variant

Set It = [Forms]![F_Completer]![LST_Fichier]

        MsgBox It, , "Valueur de la Zone de Liste LST_Fichier."
        
End Sub

1) ou est mon erreur??
et 2) comment faire pour utiliser la valeur de la Zone de Liste de F_Completer dans F_MAJ??

[pschmidtke]

tu peux accéder à l'élément visible de ta liste avec LST_Fichier.Column(0) et l'élément caché (s'il y en a) avec LST_Fichier.Column(1). En ce qui concerne la navigation entre différents formulaires, j'utilise la syntaxe suivante (je ne sais pas si ça marche chez toi) :

ElementDuFormActuel.Value=Form_Form2.LST_Fichier.Column(1)

[ben_skywalker]

Merci, j'essaye sa de suite et je vous recontacte...