OVH Cloud OVH Cloud

Runtime et Liste Déroulante

4 réponses
Avatar
Thierrry
Bonjour,

J'ai un form qui lit un fichier texte, en extrait chaque=20
ligne et me rempli une liste d=E9roulante.
Voici mon code:
Private Sub Commande2_Click()
Set fso =3D CreateObject("Scripting.FileSystemObject")
srcFile =3D "C:\Access\GestNbSessMil\StationsAll.txt"
If Not (fso.FileExists(srcFile)) Then
MsgBox "Le fichier " & srcFile & " n'existe pas!",=20
4144, "Erreur"
Exit Sub
End If
Set txtSta =3D fso.OpenTextFile(srcFile, ForReading, False)
Do While txtSta.AtEndOfStream <> True
Err =3D 0
On Error Resume Next
strSta =3D txtSta.ReadLine
Sta =3D Split(strSta, vbTab, -1, 1)
If Sta(0) =3D "" Then
txtSta.Skip (0)
Else
staListe =3D staListe & Sta(0) & ";"
End If
Loop
MsgBox staListe
Me!Liste0.RowSource =3D staListe
End Sub

La liste s'affiche correctement dans mon msgbox mais=20
n'affecte pas la liste =E0 ma liste0 sur le poste avec un=20
Runtime.
Or, ce test fonctionne avec ce meme form et meme code sur=20
une station ayant Access et non le runtime.

Des id=E9es?

Amicalement
Thierry

4 réponses

Avatar
Anor
Bonjour,

Dans le message http://groups.google.com/groups?selm!9d801c45c75$56c16360$,
| Bonjour,
|
| J'ai un form qui lit un fichier texte, en extrait chaque
| ligne et me rempli une liste déroulante.
<SNIP>
| Me!Liste0.RowSource = staListe
</SNIP>|
| La liste s'affiche correctement dans mon msgbox mais
| n'affecte pas la liste à ma liste0 sur le poste avec un
| Runtime.
| Or, ce test fonctionne avec ce meme form et meme code sur
| une station ayant Access et non le runtime.
| Des idées?
| Amicalement
| Thierry

Mon idée est que le runtime refuse l'ajout de données par la méthode .rowsource
Cela montre parfaitement l'intérêt du paramètre /runtime de la version standard (grincement de
dents)
quand on exécute msaccess.exe /runtime "d:cheminmabase.mdb" la zone de liste est bien remplie,
ce qui pourrait laisser croire que cette méthode sera supportée ? eh bien nada, ne jamais faire
confiance
aux simulateurs, ils ne savent simuler que ce pour quoi ils ont été programmés :-@

Depuis Access 2002 (je crois) tu as la méthode .Add comme dans VB qui est supportée par les
zones de listes modifiables.
As tu essayé pour voir ?

à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Avatar
Thierry
Bonjour,

Non, je n'ai pas essayé cette commande, je vais l'essayé
dés demain au bureau.
Amicalement
Thierry
-----Message d'origine-----
Bonjour,

Dans le message http://groups.google.com/groups?
selm!9d801c45c75$56c16360$,

| Bonjour,
|
| J'ai un form qui lit un fichier texte, en extrait chaque
| ligne et me rempli une liste déroulante.
<SNIP>
| Me!Liste0.RowSource = staListe
</SNIP>|
| La liste s'affiche correctement dans mon msgbox mais
| n'affecte pas la liste à ma liste0 sur le poste avec un
| Runtime.
| Or, ce test fonctionne avec ce meme form et meme code
sur

| une station ayant Access et non le runtime.
| Des idées?
| Amicalement
| Thierry

Mon idée est que le runtime refuse l'ajout de données par
la méthode .rowsource

Cela montre parfaitement l'intérêt du paramètre /runtime
de la version standard (grincement de

dents)
quand on exécute
msaccess.exe /runtime "d:cheminmabase.mdb" la zone de

liste est bien remplie,
ce qui pourrait laisser croire que cette méthode sera
supportée ? eh bien nada, ne jamais faire

confiance
aux simulateurs, ils ne savent simuler que ce pour quoi
ils ont été programmés :-@


Depuis Access 2002 (je crois) tu as la méthode .Add comme
dans VB qui est supportée par les

zones de listes modifiables.
As tu essayé pour voir ?

à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------


.



Avatar
Bonjour,

Cela donnerai quelque chose comme ça:

Me!Liste0.Add = staListe

Je viens d'essayé, mais hélas, même résultat, rien ne se
mets dans ma liste déroulante !!

Merci quand même,
Amicalement
Thierry


-----Message d'origine-----
Bonjour,

Dans le message http://groups.google.com/groups?
selm!9d801c45c75$56c16360$,

| Bonjour,
|
| J'ai un form qui lit un fichier texte, en extrait chaque
| ligne et me rempli une liste déroulante.
<SNIP>
| Me!Liste0.RowSource = staListe
</SNIP>|
| La liste s'affiche correctement dans mon msgbox mais
| n'affecte pas la liste à ma liste0 sur le poste avec un
| Runtime.
| Or, ce test fonctionne avec ce meme form et meme code
sur

| une station ayant Access et non le runtime.
| Des idées?
| Amicalement
| Thierry

Mon idée est que le runtime refuse l'ajout de données par
la méthode .rowsource

Cela montre parfaitement l'intérêt du paramètre /runtime
de la version standard (grincement de

dents)
quand on exécute
msaccess.exe /runtime "d:cheminmabase.mdb" la zone de

liste est bien remplie,
ce qui pourrait laisser croire que cette méthode sera
supportée ? eh bien nada, ne jamais faire

confiance
aux simulateurs, ils ne savent simuler que ce pour quoi
ils ont été programmés :-@


Depuis Access 2002 (je crois) tu as la méthode .Add comme
dans VB qui est supportée par les

zones de listes modifiables.
As tu essayé pour voir ?

à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------


.



Avatar
Raymond [mvp]
Bonjour.

ce n'est pas Add mais Additem qu'il faut utilsier:
Me.Modifiable1.AddItem "123"
Me.Modifiable1.AddItem "456"

ce qui ne veut pas dire que ça fonctionne avec le runtime.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


a écrit dans le message de
news:2202d01c45cdd$5161fac0$
Bonjour,

Cela donnerai quelque chose comme ça:

Me!Liste0.Add = staListe

Je viens d'essayé, mais hélas, même résultat, rien ne se
mets dans ma liste déroulante !!

Merci quand même,
Amicalement
Thierry