Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Dim db As Database Dim rs As Recordset Dim bA As Long Dim bPlus As Integer bPlus = 1 subProverka: bA = Nz(DMax("broj", "tblFaktura"), 0) + bPlus bPlus = bPlus + 1 Set db = CurrentDb Set rs = db.OpenRecordset("SELECT * FROM tblRedni_Broevi WHERE brFaktura=" & bA) If rs.RecordCount = 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tblRedni_Broevi (brFaktura) VALUES(" & bA & ")"