U tabeli Kalkulacija ima 170 rekorda
rst.MoveLast ne ide na poslednji rekord nego zaglavi na 77. rekordu i tada slijedi poruka
"Kalkulacija nije otvorena, otvorite novu !"
Kad mi se to desi uradim Compact and Repair baze i sve profunkcionise normalno.
Moje pitanje je da li se neko susretao sa ovakvim problemom i u cemu je problem?
Da napomenem da je na bazi postavljeno Compact on close ali i tada se pojavi pomenuti problem.
Code:
Dim Msg, Style, Title, Response
Dim rst As Recordset
Set baza = OpenDatabase("C:\Program Files\Starsoft\PCKasaBL_dat.mdb")
Set rst = baza.OpenRecordset("Kalkulacija")
rst.MoveLast
If rst!knjizen = 1 Then
MsgBox "Kalkulacija nije otvorena, otvorite novu !"
DoCmd.Close
DoCmd.OpenForm "FormKalkulacija", , , , acFormEdit
Exit Sub
End If
Dim Msg, Style, Title, Response
Dim rst As Recordset
Set baza = OpenDatabase("C:\Program Files\Starsoft\PCKasaBL_dat.mdb")
Set rst = baza.OpenRecordset("Kalkulacija")
rst.MoveLast
If rst!knjizen = 1 Then
MsgBox "Kalkulacija nije otvorena, otvorite novu !"
DoCmd.Close
DoCmd.OpenForm "FormKalkulacija", , , , acFormEdit
Exit Sub
End If