Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

Verfolgung starten Optionen

SQL im ACCESS xp

logo3 / 1 Antworten / Flachansicht Nickles

Hallo,
ich möchte eine SQL sequenz unter access xp VBA laufen lassen,

Dim db As Database
Dim req As QueryDef
Dim SQL As String

SQL = "SELECT Count(*) AS Total FROM KUNDEN "
conta.Value = Total ' conta ist eine textfeld der wert dieses feldes soll der zähler sein aus der SQL query
Set req = db.CreateQueryDef("", SQL)

ich bekommen einen fehler
"variable des objektes oder with nicht festgelegt"

weiss jemand warum ??

danke
logo

bei Antwort benachrichtigen
T-Rex logo3 „SQL im ACCESS xp“
Optionen
Dim objDB As DAO.Database
Dim objRS As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT Count(*) AS Total " & _
         "FROM Kunden;"

Set objDB = CurrentDB
Set objRS = objDB.OpenRecordset(strSQL, , DAO.dbSQLPassThrough)

If not(objRS.EOF) Then
    If IsNull(objRS.Fields("Total").Value) Then
        Contra.Value = vbNullString
    Else
        contra.value = objRS.Fields("Total").Value
    End If
Else
    Contra.Value = vbNullString
End If

Call objRS.Close
Set objRS = Nothing

Set objDB = Nothing
 GrüßeT-Rex 
bei Antwort benachrichtigen