la fonction suivante vérifie la présence d'une clé indiquant le chemin de votre base de donnée et renvoie une valeur vrai ou fausse.
si la valeur est vrai le chemin de la base de donnée est contenue dans la variable globale Chemin.
et voilà .......
rien de + simple non ? ;o)
si vous avez des questions rapellez vous : divers@omnikod.fr.fm ou www.omnikod.fr.fm
Source / Exemple :
Public Function VerifLiens(NomProjet As String) As Boolean
'Fonction crée le 12/04/01 --> omnikod
'Vérifie le lien vers une base MsAccess dans la base de registre
Chemin = GetSetting("Omnikod\" & NomProjet, "parametres", "base", "lost")
If Chemin = "lost" Or Dir(Chemin) = "" Or Chemin = "" Then
rep = MsgBox("Base de données introuvable, Parcourir ?", vbQuestion + vbYesNo, NomProjet & " - Erreur !")
If rep = vbNo Then
VerifLiens = False
Exit Function
Else
Form1.CDG1.Filter = "Base de données MsAccess (*.mdb)|*.mdb"
Form1.CDG1.DialogTitle = "Chemin de la base de données :"
Form1.CDG1.ShowOpen
Chemin = Form1.CDG1.FileName
SaveSetting "Omnikod\" & NomProjet, "parametres", "base", Chemin
If Not VerifLiens(NomProjet) Then Exit Function
End If
End If
VerifLiens = True
End Function
Conclusion :
That's all folk's !
www.omnikod.fr.fm
divers@omnikod.fr.fm
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.