Redom mi upisuje redne borjeve u slogove
Function Numerisi()
On Error GoTo Err_Numerisi
Dim cury As Long
DoCmd.GoToRecord , , acFirst
'' DoCmd.RunCommand (acCmdRecordsGoToFirst)
dalje:
'MsgBox (RbrI & " : " & RBr)
If RbrI = 0 And RBr = 0 Then
cury = DMax("[rbri]", "KPR")
RbrI = cury + 1
End If
DoCmd.GoToRecord , , acNext
''DoCmd.RunCommand (acCmdRecordsGoToNext)
GoTo dalje
Exit_Numerisi:
Exit Function
Err_Numerisi:
MsgBox Err.Description
Resume Exit_Numerisi
End Function
A msgBox error je 'You cant go to the specified record'
Angelina Jolie