Free
Maak connectie met sql server
FreeOm een connectie te maken met een sql server moet je een ODBC connectie opbouwen.
Nadat je dat gedaan hebt kun je via access via external connection direct met je tabellen linken.
Let wel dat wanneer je puur een link opbouwt de database erg traag kan worden.
Beter s om te werken met Stored procedures SQl en dan door vba laten uitlezen.
Code
Public Function closeform()
Dim db As Database
Dim recuser As Recordset
Dim closform As Variant
Dim intaantal As Integer
On Error GoTo closeform_Error
Set db = DBEngine.Workspaces(0).Databases(0)
Set recuser = db.OpenRecordset("TBL_hulp_form_Query", dbOpenDynaset)
'recuser.MoveLast
intaantal = recuser.RecordCount
If intaantal > 1 Then
recuser.MoveFirst
closform = recuser!frmName
DoCmd.Close acForm, closform
setFormnaam (closform)
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE TBL_HULP_Form.frmname FROM TBL_HULP_Form WHERE (((TBL_HULP_Form.frmname)=getFormnaam()));"
DoCmd.SetWarnings True
Else
End If
recuser.Close
db.Close
On Error GoTo 0
Exit Function
closeform_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure closeform of Module Opstarten"
End FunctionHier leg ik uit hoe je dat het makkelijkst kan doen door een odbc bestand te creeren die je telkens kunt gebruiken voor je connectie met de sql server.
om te verbinden met;
-Tabellen
-passtrouhg queries