Bonjour,
J'ai développée une appli sous ACCESS 2010. Ma question : Comment faire pour que les utilisateurs ne recoivent plus la boîte de dialogue pour se connecter à une base de données SQL Server 2008.
1) J'ai ajouté dans menu Projets - Références, Microsoft AtiveX Data Objects 2.x Library.
2) J'ai déclarée dans un module la fonction suivante pour me connecter :
3) Dans le formulaire "MENU GENERAL", lancé au démarrage de l'appli, je fais fais un appel de la fonction "connexion" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Function connexion() On Error GoTo ErreurOpen strCnxn = "UID=" & "xxx" & ";PWD=" & "xxx" & ";" & "DRIVER={SQL Server};Server=" & "xxx" & ";Database=" & "xxx" & ";" Set gConnexion = New ADODB.Connection gConnexion.Open strCnxn Exit Function ErreurOpen: Screen.MousePointer = vbArrow MsgBox "Problème d'accès aux données." & Error, vbCritical End End Function
Problème : Lorsque j'ouvre un formulaire de "Sasie des enregistrements" ou autre, la boîte de dialogue demandant la connexion à la base de données s'affiche toujours.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub Form_Load() Call connexion End Sub
Question : Sur quel évènement la connexion doit-elle être appelée, pour qu'elle reste ouverte pour toutes les formulaires de l'appli
A l'avance je vous remercie.
Summer
Partager