Modules: Le Wizard des
références |
Author(s) Terry Kreft |
|
Le Wizard des références.
L'INFORMATION PRÉSENTÉE DANS CE DOCUMENT ET DANS L'UTILITAIRE
REFERENCES WIZARD EST SOUMISE TEL QUEL, SANS GARANTIE DE QUELQUE SORTE,
IMPLICITE OU EXPLICITE. L'UTILISATEUR ASSUME L'ENTIÈRE RESPONSABILITÉ
RELIÉE À L'UTILISATION DE CE LOGICIEL.
Ó Terry Kreft (1998), All Rights
Reserved
Télécharger wzRef.Zip (size: 150,864 bytes)
Note: Si vous distribuez ce wizard (assistant) avec votre application en
format MDE, vous risquez d'avoir des problèmes. Si tel est le cas,
distribuez le fichier MDA comme sous un format MDE.
Le "References Wizard" peut être utilisé pour vérifier la validité
des références (bibliothèques) de votre base de données.
Cela peut être fait de deux façons.
1) utiliser le "Add-In manager" depuis le menu Tools/Add-Ins pour
installer le "Reference Wizard" comme un Add-In, et utiliser alors le
"References Wizard" de la même façon qu'un autre Add-In.
2) copier le References Wizard dans le répertoire de MSAccess, sur votre
disque (si vous avez effectué l'étape précédente, cela sera fait pour
vous), puis appeler la fonction wzRef_Test depuis votre code, comme suit,
en s'assurant que cela soit le premier programme à être exécuté:
Private Sub Checkref()
On Error GoTo wzref_Err
Application.Run "References Wizard.wzRef_Test"
wzref_End:
Exit Sub
wzref_Err:
Select Case Err
Case 2517
Dim strRef As String
strRef = Application.SysCmd(acSysCmdAccessDir)
strRef = strRef & "wzref.MDA"
Application.References.AddFromFile strRef
Resume
Case Else
VBA.MsgBox VBA.Err & ": " & VBA.Err.Description
End Select
End Sub
Si les références sont correctes, l'usager ne verra aucune interaction; par
contre, si il y a un problème, le formulaire "References Information"
s'affiche, comme si vous utilisiez le References Wizard depuis le menu du Add-In.
Contacts
-------------------
Si vous avez un commentaire ou une suggestion, vous pouvez me contacter, Terry Kreft,
ou Dev Ashish.
|