reeznov
Messages postés19Date d'inscriptionvendredi 12 juillet 2002StatutMembreDernière intervention30 août 2002
-
24 juil. 2002 à 11:37
reeznov
Messages postés19Date d'inscriptionvendredi 12 juillet 2002StatutMembreDernière intervention30 août 2002
-
25 juil. 2002 à 10:51
salut a tous,
je desespere, la methode additem ne marche pas chez moi. Erreur de ma part ou mistere informatique. En tout cas quand je veut l utiliser avec une liste,on me dit soit qu elle n existe pas soit qu elle ne convient pas a l objet.
je vous envoie mon bout de code
Sub sucheProzedur()
Dim dateisuche As Object
Set dateisuche = FileSearch
Dim liste As ListBox
Set liste = Me!Liste15
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "Es wurde(n) " & .FoundFiles.Count & _
" Datei(en) gefunden."
Dim i As Integer
For i = 1 To .FoundFiles.Count
liste.AddItem = .FoundFiles(i)
Next i
Else
MsgBox "Es wurden keine Dateien gefunden."
End If
End With
End Sub
si vous avez ne piste, vous gagnez toute mon estime!!!
reeznov
reeznov
Messages postés19Date d'inscriptionvendredi 12 juillet 2002StatutMembreDernière intervention30 août 2002 24 juil. 2002 à 12:47
marche pas plus, mais c vraiment le .AddItem qui semble introuvable ou ne pas convenir a ma variable liste. j ai beau essayé tout les type pour liste mais y a rien qui semble convenir.
Je suis desesperé
reeznov
Messages postés19Date d'inscriptionvendredi 12 juillet 2002StatutMembreDernière intervention30 août 2002 24 juil. 2002 à 14:37
non, mais .foundfiles files renvoie un string
le message d erreur est
"erreur pdt la compilation
methode ou objet des données (datenobjekt dans la version non traduite en allemand) non trouvés"
dans .additem apparait alors en surligné.
de plus en tapant l editeur ne propose pas la methode .additem alors qu il en propose d autre apres avoir tapé liste.
je ne suis pas attaché a cette methode, je veux juste remplir ma listbox!
reeznov
Vous n’avez pas trouvé la réponse que vous recherchez ?
reeznov
Messages postés19Date d'inscriptionvendredi 12 juillet 2002StatutMembreDernière intervention30 août 2002 25 juil. 2002 à 10:51
je pensait qu il fallait nécessairement déclarer la liste pour la remplir. j ai essayé sans la declarer mais j ai tjs la meme reponse! j ai supprimé les lignes
Dim liste As ListBox
Set liste = Me!Liste15
j ai remplacé
liste.AddItem = .FoundFiles(i)
par
Me!Liste15.AddItem = .FoundFiles(i)
le code de la procedure donne donc
Sub sucheProzedur()
Dim dateisuche As Object
Set dateisuche = FileSearch
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "Es wurde(n) " & .FoundFiles.Count & _
" Datei(en) gefunden."
Dim i As Integer
For i = 1 To .FoundFiles.Count
Me!Liste15.AddItem = .FoundFiles(i)
Next i
Else
MsgBox "Es wurden keine Dateien gefunden."
End If
End With
End Sub
Pour info je travaille avec Access97, cette version ne prendrait elle pas en compte cette methode?