Error with RecordSet Coding

[Guest]

I am getting an an error message with the code below.
"Compile error - Method or data member not found.
Error line ".Edit"

I am using DAO library 3.6.

'OPEN EMPLOYEE LOGIN TABLE
Dim dbs As DAO.Database
Dim rstEmployees As Recordset
Set dbs = OpenDatabase("PaperInventory.mdb")
Set rstEmployees = dbs.OpenRecordset("tblLogInTracking")

With rstEmployees
.Edit '(Error Message Here)
!LogOutTime = Time
End With
rstEmployees.Close
Set rstEmployees = Nothing
' Set dbs = Nothing
DoCmd.Close



Help Please
Thank You
Ileana

 

[Stefan Hoffmann]

hi Ileana,

I am getting an an error message with the code below.
"Compile error - Method or data member not found.
Error line ".Edit"
I am using DAO library 3.6.

There is .Edit in DAO.Recordset. You may use the object browser (F2) to
verify this. Just change your values.


mfG
--> stefan <--

 

[Guest]

I am confessed. The object brower show ".dbEditAdd" which also give an
error message. And what values am I changing.

thank you

 

[Stefan Hoffmann]

hi Ileana,

I am confessed. The object brower show ".dbEditAdd" which also give an
error message. And what values am I changing.

Using the object browser, you need to look after Recordset in the DAO
library. Which will lead us to:

Ooops, my fault, didn't read you your post carefully enough.

I am using DAO library 3.6.

Dim dbs As DAO.Database
Dim rstEmployees As Recordset

You need to declare it as

Dim rstEmployees As DAO.Recordset

otherwise the library order in the references will decide of which kind
it will be. ADO is normally the default.

mfG
--> stefan <--

 

[Guest]

I modified the code as stated. But I am still getting a different error
message. The new error message is;

"object variable or with Block variable no set."



'OPEN EMPLOYEE LOGIN TABLE
Dim dbs As DAO.Database
Dim rstEmployees As DAO.Recordset
Set rstEmployees = dbs.OpenRecordset("tblLogInTracking")

With rstEmployees
.Edit
!LogOutTime = Time
End With

rstEmployees.Close
Set rstEmployees = Nothing
' Set dbs = Nothing

DoCmd.Close

 

[Stefan Hoffmann]

hi Ileana,

'OPEN EMPLOYEE LOGIN TABLE
Dim dbs As DAO.Database
Dim rstEmployees As DAO.Recordset
Set rstEmployees = dbs.OpenRecordset("tblLogInTracking")

Before using dbs you need to assign a object to it:

Set dbs = CurrentDb

is missing.


mfG
--> stefan <--

--