Record Pointer moves, do not get current fields
Whats wrong with this:
Thanx for any suggestions.
Option Compare Database
Option Explicit
Dim CurDb As DAO.Database
Dim MEMPass As DAO.Recordset
Dim memTEST As String
Private Sub Command0_Click()
Set CurDb = CurrentDb()
Set MEMPass = CurDb.OpenRecordset("sysPasswordsT")
DoCmd.OpenTable "sysPasswordsT"
DoCmd.GoToRecord acDataTable, "sysPassWordsT", acFirst
DoCmd.GoToRecord acDataTable, "sysPassWordsT", acNext
DoCmd.GoToRecord , "sysPassWordsT", acNext
memTEST = MEMPass!Password
MsgBox (memTEST) 'this box returns first record, not 3 record !?
End Sub
MsgBox should return data from password in third record, yes?
help! Thanx.
|