22. februar 2010 - 20:29Der er
5 kommentarer og 1 løsning
Fejl ved tjek efter record i tabel
Jeg forsøger at slå en record op i access-db med følgende:
************* Sub TjekAccessDB()
Dim db As Database, rs As Recordset, rsCheck As Recordset, strSQL As String, r As Long Set db = OpenDatabase("c:\computorcompanion\Client_Info.mdb") ' open the database Dim StrSSQL As String StrSSQL = ActiveDocument.FormFields("bkClientLName").Result
strSQL = "SELECT * FROM ClientInfo WHERE LName = " & strSCode & "" Set rsCheck = db.OpenRecordset(strSQL) If Not rsCheck.BOF And Not rsCheck.EOF Then MsgBox ("Records already present") rsCheck.Close Set rsCheck = Nothing Exit Sub End If
rsCheck.Close Set rsCheck = Nothing *************
Jeg får følgende fejlmelding:
*** Run-time error '3061' Der er for få parametre. Der var ventet 1. ***
Ved debug markeres denne linje: Set rsCheck = db.OpenRecordset(strSQL)
Når jeg, under debug, kører musen hen over: Set rsCheck får jeg: "rsCheck = Nothing". Når jeg, stadig under debug, kører musen hen over: db.OpenRecordset(strSQL) står der det forventede resultat, som der skal ledes efter i db'en. Altså: strSQL = "SELECT * FROM ClientInfo WHERE LName = 'FORVENTET RESULTAT"
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.