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)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.