[Access 2003] certaines propriétés ou méthode ne fonctionne pas !!

Recherche :

Sujet(s) à lire :
- [Access 2003] Spécification d'importation [RESOLU]

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Access 2003] certaines propriétés ou méthode ne fonctionne pas !!

Tymber

Bonjour, je m'occupe de passé une base de donné de Access 97 --> 2003
La plus part des problèmes que je rencontres sont dus à des importations à partir de disquette ou cléf USB.

Code :

Private Sub b_imp_Click()
On Error GoTo Err_b_imp_Click
DoCmd.Hourglass (True)
Dim fichier As String
Dim temp As Recordset
Dim i As Integer
'Fichier à importer
fichier = "A:\"& ....& .del
'Verification de la presence du fichier a importer sur la disquette
With APPLICATION.FileSearch
.LookIn = "A:\"
'veficafication de la presence d'une disquette sur le lecteur
If .LookIn <> "A:\" Then
MsgBox "Vérifiez que la disquette a bien été inserée
Exit Sub
End If
.FileName = fichier
'verification de la presence de ce fichier sur la disquette
If .Execute <= 0 Then
MsgBox .FileName & " n'est pas sur cette disquette."
Exit Sub
End If
End With
DoCmd.TransferText acImportDelim, "CALOC", "TABLEAU_FICHE_C", fichier, False, ""

voila, rien ne fonctionne, "TransferText", ".LookIn ", ".Execute "
Je pense que ça ne viens pas de la progra, mais de quoi, je ne sais pas.
Si vous pouvez m'eclairer. merci

Message édité par Tymber le 06-06-2005 à 11:05:44

Publicité

dahlo

Exact!
Application.FileSearch.Lookin = "A:\" ne se comporte pas de la même manière suivant la version utilisée.
Jusquà Office 2000 (9) .lookin="A:\" entraîne un seek du lecteur.
Si trouvé alors: .lookin prend la valeur A:\ sinon: prend une valeur par défaut . C'est pourquoi ton test fonctionne sous 97.
Sur Office 2003 (11) on n'a que l'initialisation de filesearch, sans seek, lookin prend la valeur fournie. Faut utiliser la méthode Execute pour scanner le lecteur et retourne 0 si pas de disquette ou disquette vierge sinon Nb de fichiers suivant les types et étendues demandés.

Autrement, en référençant (scrrun.dll) "Microsoft Scripting Runtime" tu peux utiliser la propriété Isready d'un objet FileSystemObject
...
Dim fso As New FileSystemObject, drv As Drive
Set drv = fso.GetDrive(fso.GetDriveName("A:\" ))
If Not drv.IsReady Then MsgBox "Vérifier que la disquette est bien introduite..." _
, vbExclamation

Set drv=nothing

Ou encore gérer les erreurs retournées par dautres commandes genre dir()...

Tymber

Je suis désolé de dir ça mais, comment on référence "scrrun.dll"

dahlo

Menu "Outils" -> "Références..." d'une fenêtre de code. Sélectionne dans la liste.
Si "Microsoft Scripting Runtime" n'y apparaît pas regarde Là...

Tymber

merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Access 2003] certaines propriétés ou méthode ne fonctionne pas !!

Sujets relatifs
[VBA-ACCESS] Rafraîchissement d'un formulaire	Creer une interface pour une base de données sous access
[Access 2003] Spécification d'importation [RESOLU]	du MCD au realtion Access
Apllication sous Excel (vba) liée à Access utilisable en réseau ?	Erreur Certaines fonctionnalités ayant trait aux tables reliées sont d
Access : activer l'Entête/pied de rapport	[Access]Problème lien hypertexte dans envoie de mail
[Access VB] openreport et Where
Plus de sujets relatifs à : [Access 2003] certaines propriétés ou méthode ne fonctionne pas !!

Page générée en 0.079 secondes