Juten Tag liebe Forenmember.
Ich hab da nen Problem und zwar habe ich für nen kleines Access Formular mehrere Abfragen auf ne DB im Netzwerk in mehreren prozeduren. Jetzt würde ich gerne das öffnen der DB in eine einzelne Funktion verlagern nur irgendwie klappt des net.
folgendes habe ich mir überlegt:
und
ich habs au schon andersrum probiert also die Verbindung in der funktion deklariert und sie versucht als rückgabewert an die prozedur zu geben beides hat nicht geklappt. Ich wäre für Anregungen sehr dankbar.
Ich hab da nen Problem und zwar habe ich für nen kleines Access Formular mehrere Abfragen auf ne DB im Netzwerk in mehreren prozeduren. Jetzt würde ich gerne das öffnen der DB in eine einzelne Funktion verlagern nur irgendwie klappt des net.
folgendes habe ich mir überlegt:
Code:
Public Function opendb(cn As ADODB.Connection)
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Properties("Data Source") = "blub"
cn.Properties("JET OLEDB:Database Password") = "blub"
cn.Open
End Functionund
Code:
Private Function ttcheck()
Dim cn As New ADODB.Connection
opendb (cn)ich habs au schon andersrum probiert also die Verbindung in der funktion deklariert und sie versucht als rückgabewert an die prozedur zu geben beides hat nicht geklappt. Ich wäre für Anregungen sehr dankbar.
