Verificateur de liens par la base de registre entre vb et sa base access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 650 fois - Téléchargée 55 fois

Contenu du snippet

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

A voir également

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.