Mungkin bisa dicoba sbb:
Asumsi saya perintah ini dipanggil langsung dari Form T_Employee.
'format ini digunakan agar tidak salah mengartikan tanggal berformat dd/mm
atau mm/dd
TglAwal = Format(TglAwal.value,"dd-mmm-yyyy")
TglAkhir = Format(TglAkhir.value,"dd-mmm-yyyy")
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
strSQL="SELECT * FROM personallog Where Tanggal between #" & TglAwal & " #
AND # " & TglAkhir & "#"
Set rst = db.OpenRecordset(strSQL)
Do Until rst.EOF
rst.MoveNext
DoCmd.GoToRecord , , acNext
Loop
Kalau perintah ini tujuannya membuka tabel personallog yang sesuai dengan
kode pegawai, kenapa tidak membuat personallog menjadi
subform dengan LinkMasterFields dan LinkChildFields adalah KodePegawai?
MBA
