[ motto cooltywator @ 07.11.2012. 10:50 ] @
Ovaj kod mi radi u 2003 ali u 2010 nece 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' |