Sub CountGUID()
Dim sqlSelect1 As String
Dim sqlSelect2 As String
Dim sqlSelect3 As String
sqlSelect1 = "SELECT Count(*)" & _
" FROM tkey_wdKapitel" & _
" WHERE KapitelText = 'MEINTEXT'" & _
" AND fiDocument = {6C09721A-BD2F-4C81-94AE-6A879B3F2E89};"
Debug.Print "sqlSelect1 : " & sqlSelect1
Debug.Print "Anzahl sqlSelect1: " & CurrentDb.OpenRecordset(sqlSelect1, dbOpenSnapshot)(0)
sqlSelect2 = "SELECT Count(*)" & _
" FROM tkey_wdKapitel" & _
" WHERE KapitelText = 'MEINTEXT'" & _
" AND fiDocument = {guid {6C09721A-BD2F-4C81-94AE-6A879B3F2E89}};"
Debug.Print "sqlSelect2 : " & sqlSelect2
Debug.Print "Anzahl sqlSelect2: " & CurrentDb.OpenRecordset(sqlSelect2, dbOpenSnapshot)(0)
sqlSelect3 = "SELECT Count(*)" & _
" FROM tkey_wdKapitel" & _
" WHERE KapitelText = 'MEINTEXT'" & _
" AND fiDocument = '{6C09721A-BD2F-4C81-94AE-6A879B3F2E89}';"
Debug.Print "sqlSelect3 : " & sqlSelect3
Debug.Print "Anzahl sqlSelect3: " & CurrentDb.OpenRecordset(sqlSelect3, dbOpenSnapshot)(0)
End Sub
Vielleicht experimentierst Du noch mal mit den Alternativen!?
Gruß,
Eric
geschrieben von Elvis_The_King , 27.10.2005, 17:03 Uhr , 24 mal gelesen