hi i'm trying to allow users a selection in a listbox. However i have not used dynaset before, with the following code i get an error...'too few parameters, expected 1'......when i debug this it points to the line
Set Rs = CurDB.OpenRecordset(SQLStmt, DB_OPEN_DYNASET)
the value that the Open_Dynaset gives is = 2....
am really confused as how to resolve this..any help would be greatly appreciated!!!!!!!!!!!
Private Sub Available_DblClick(Cancel As Integer)
Dim CurDB As Database, Rs As Recordset, SQLStmt As String
Set CurDB = CurrentDb()
SQLStmt = "SELECT [DetailID],[end-User],[Reseller],[ProductID],[RenewalDate],[SerialNo],[Selected] FROM [LicenseQry] WHERE [DetailID] = '" & Me![Available] & "'"
Set Rs = CurDB.OpenRecordset(SQLStmt, DB_OPEN_DYNASET)
Rs.Edit
Rs("Selected") = True
Rs.Update
Rs.CLOSE
Me!Available.Requery
End Sub
Set Rs = CurDB.OpenRecordset(SQLStmt, DB_OPEN_DYNASET)
the value that the Open_Dynaset gives is = 2....
am really confused as how to resolve this..any help would be greatly appreciated!!!!!!!!!!!
Private Sub Available_DblClick(Cancel As Integer)
Dim CurDB As Database, Rs As Recordset, SQLStmt As String
Set CurDB = CurrentDb()
SQLStmt = "SELECT [DetailID],[end-User],[Reseller],[ProductID],[RenewalDate],[SerialNo],[Selected] FROM [LicenseQry] WHERE [DetailID] = '" & Me![Available] & "'"
Set Rs = CurDB.OpenRecordset(SQLStmt, DB_OPEN_DYNASET)
Rs.Edit
Rs("Selected") = True
Rs.Update
Rs.CLOSE
Me!Available.Requery
End Sub