OVH Cloud OVH Cloud

Problème avec RS CreateDir

8 réponses
Avatar
Sandra
Bonjour !

Depuis quelques temps, ma procédure suivante ne fonctionne plus (pourtant
rien n'a changé ni aucun emplacement...) :

Private Sub Créer_dossier_Click()
Dim C As New RS_CreateDir
If C.Create("C:\Documents and Settings\Propriétaire\Mes
documents\Dossiers Clients\" & Nom & "\") Then
MsgBox "Dossier Client créé !"
Else
MsgBox "Impossible de créer le Dossier !"
End If
End Sub

Les messages d'erreurs sont les suivants :
1 - Microsoft Access a rencontré un problème et doit fermer......... option
de réparation et réouverture de la base de données.......
ou
2 - Erreur d'exécution 50022 : Erreur définie par l'application ou par
l'objet - Fin ou Débogage

J'ai essayé de déréférencer la dll dans ma base de données, puis supprimé la
dll RS CreateDir pour la réinstaller et la reréférencer... Ca n'a rien
changé :-(
D'où est ce que cela peut venir ? A l'évidence il y a quelque chose qui
m'échappe (normal je suis débutante... )

Merci si vous avez la solution

Sandra

8 réponses

Avatar
Raymond [mvp]
Bonjour.

il n'y a aucune raison que cette lib ne fonctionne plus subitement.
vérifie:
- référence cochée dans VBE
- re-registre la: regsvr32 ............ (déja fait)
- vérifier le chemin

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx


"Sandra" a écrit dans le message de news:
442026c1$0$21523$
Bonjour !

Depuis quelques temps, ma procédure suivante ne fonctionne plus (pourtant
rien n'a changé ni aucun emplacement...) :

Private Sub Créer_dossier_Click()
Dim C As New RS_CreateDir
If C.Create("C:Documents and SettingsPropriétaireMes
documentsDossiers Clients" & Nom & "") Then
MsgBox "Dossier Client créé !"
Else
MsgBox "Impossible de créer le Dossier !"
End If
End Sub

Les messages d'erreurs sont les suivants :
1 - Microsoft Access a rencontré un problème et doit fermer.........
option de réparation et réouverture de la base de données.......
ou
2 - Erreur d'exécution 50022 : Erreur définie par l'application ou par
l'objet - Fin ou Débogage

J'ai essayé de déréférencer la dll dans ma base de données, puis supprimé
la dll RS CreateDir pour la réinstaller et la reréférencer... Ca n'a rien
changé :-(
D'où est ce que cela peut venir ? A l'évidence il y a quelque chose qui
m'échappe (normal je suis débutante... )

Merci si vous avez la solution

Sandra



Avatar
Sandra
Bonjour Raymond :-)

il n'y a aucune raison que cette lib ne fonctionne plus subitement.
Je suis d'accord, y'a forcément quelque chose qui m'échappe ...


- référence cochée dans VBE
Si tu parles du menu Outils>Références dans Microsoft Visual Basic, la

référence est bien cochée

- re-registre la: regsvr32 ............ (déja fait)
??? J'ai pas compris ???


- vérifier le chemin
Le chemin est bon


C'est peut-être au niveau de la regsrv32 que ca coince alors ?

Merci !!!

Sandra

Avatar
Raymond [mvp]
essaie aussi de la supprimer et registrer à nouveau:
regsvr32 c:windowssystem32rscreatedir.dll /u
regsvr32 c:windowssystem32rscreatedir.dll
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx


"Sandra" a écrit dans le message de news:
44211891$0$21551$
Bonjour Raymond :-)

il n'y a aucune raison que cette lib ne fonctionne plus subitement.
Je suis d'accord, y'a forcément quelque chose qui m'échappe ...


- référence cochée dans VBE
Si tu parles du menu Outils>Références dans Microsoft Visual Basic, la

référence est bien cochée

- re-registre la: regsvr32 ............ (déja fait)
??? J'ai pas compris ???


- vérifier le chemin
Le chemin est bon


C'est peut-être au niveau de la regsrv32 que ca coince alors ?

Merci !!!

Sandra





Avatar
Sandra
Re

essaie aussi de la supprimer et registrer à nouveau:
regsvr32 c:windowssystem32rscreatedir.dll /u
regsvr32 c:windowssystem32rscreatedir.dll


Ou je suis trop lourde pour comprendre la manip, ou ça marche pas..... :-(

Sandra

Avatar
Raymond [mvp]
faut pas se démoraliser.

tu as essayé sur un autre poste ?

tu fais alt+F11
outils / références
tu décoches la référence
tu cliques sur le bouton ok
outils /références
tu coches la référence
tu cliques sur le bouton ok
alt+F11
ça marche ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx


"Sandra" a écrit dans le message de news:
44212710$0$21534$
Re

essaie aussi de la supprimer et registrer à nouveau:
regsvr32 c:windowssystem32rscreatedir.dll /u
regsvr32 c:windowssystem32rscreatedir.dll


Ou je suis trop lourde pour comprendre la manip, ou ça marche pas..... :-(

Sandra




Avatar
Sandra
Salut :-)

tu as essayé sur un autre poste ?


Non, je le fais ce soir de la maison...

tu fais alt+F11
outils / références
tu décoches la référence
tu cliques sur le bouton ok
outils /références
tu coches la référence
tu cliques sur le bouton ok
alt+F11
ça marche ?


Non :-(

Sandra

Avatar
Raymond [mvp]
serait-il possible d'avoir ta partie de base qui ne fonctionne pas ? tu me
l'envoies par mail à mon adresse en enlevant les xyz.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx


"Sandra" a écrit dans le message de news:
44217485$0$21104$
| Salut :-)
|
| > tu as essayé sur un autre poste ?
|
| Non, je le fais ce soir de la maison...
|
| > tu fais alt+F11
| > outils / références
| > tu décoches la référence
| > tu cliques sur le bouton ok
| > outils /références
| > tu coches la référence
| > tu cliques sur le bouton ok
| > alt+F11
| > ça marche ?
|
| Non :-(
|
| Sandra
|
|
Avatar
Bonjour

Remplace ta procédure par

Sub Créer_dossier_Click()
On Error GoTo err_creation
MkDir "C:Documents and SettingsArnaudMes documentsDossiers Clients" & NomDOSSIER
MsgBox "Dossier Client créé !"
Exit Sub
err_creation:
MsgBox "Dossier Client non créé !"
End Sub

et évite de stocker le nom d'un dossier à créer dans une variable qui s'appelle nom....c'est une fonction réservée d'access qui peut
se mélanger les pinceaux

a+
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------


"Sandra" a écrit dans le message de news: 442026c1$0$21523$
Bonjour !

Depuis quelques temps, ma procédure suivante ne fonctionne plus (pourtant rien n'a changé ni aucun emplacement...) :

Private Sub Créer_dossier_Click()
Dim C As New RS_CreateDir
If C.Create("C:Documents and SettingsPropriétaireMes documentsDossiers Clients" & Nom & "") Then
MsgBox "Dossier Client créé !"
Else
MsgBox "Impossible de créer le Dossier !"
End If
End Sub

Les messages d'erreurs sont les suivants :
1 - Microsoft Access a rencontré un problème et doit fermer......... option de réparation et réouverture de la base de
données.......
ou
2 - Erreur d'exécution 50022 : Erreur définie par l'application ou par l'objet - Fin ou Débogage

J'ai essayé de déréférencer la dll dans ma base de données, puis supprimé la dll RS CreateDir pour la réinstaller et la
reréférencer... Ca n'a rien changé :-(
D'où est ce que cela peut venir ? A l'évidence il y a quelque chose qui m'échappe (normal je suis débutante... )

Merci si vous avez la solution

Sandra