Function Storniraj(OrderID As String)
On Error GoTo Err_Storniraj

Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim Rs3 As Recordset
Dim SQL1 As String
Dim SQL2 As String
Dim SQL3 As String
Dim IDTransakcije As Integer

If OrderID = 0 Then GoTo Kraj

Set rcs = Nothing

Set Db = CurrentDb()

IDTransakcije = DLookup("[IDtransakcije]", "TblTransakcije", "[BrDokumenta] ='" & OrderID & "'")

SQL1 = "SELECT * FROM tblTransakcije WHERE BrDokumenta='" & OrderID & "'"
SQL2 = "SELECT * FROM tblUlazIzlaz WHERE IDTransakcije=" & IDTransakcije
SQL3 = "SELECT * FROM tblProdaja WHERE OrderID='" & OrderID & "'"

Set Rs1 = Db.OpenRecordset(SQL1, dbOpenDynaset)
Set Rs2 = Db.OpenRecordset(SQL2, dbOpenDynaset)
Set Rs3 = Db.OpenRecordset(SQL3, dbOpenDynaset)


' Ovaj dio se ne treba odraditi ako je IDTransakcije = Null
'---------------------------------------------------------------
 'U tblTransakcije upisuje se '0' u polje Brisanje
If Rs1.RecordCount > 0 Then
Do While Not Rs1.EOF
Rs1.Edit
Rs1!Brisanje = 0
Rs1.Update
Rs1.MoveNext
Loop
End If

 ' U tblUlazIzlaz upisuje se '0' u polje status
If Rs2.RecordCount > 0 Then
Do While Not Rs2.EOF
Rs2.Edit
Rs2!Status = 0
Rs2.Update
Rs2.MoveNext
Loop
End If
'--------------------------------------------------------------

' U tblProdaja upisuje se 'False' u polje Proklnjizeno i '0' u polje Strornirano


If Rs3.RecordCount > 0 Then
Do While Not Rs3.EOF
Rs3.Edit
Rs3!Proknjizeno = False
Rs3!Stornirano = 0
Rs3.Update
Rs3.MoveNext
Loop
End If


Rs1.Close
Rs2.Close
Rs3.Close

Set Db = Nothing

Izlaz:
Exit Function
Err_Storniraj:
MsgBox "Greska broj " & err.Number & vbCrLf & err.Description & vbCrLf & "u funkciji Storniraj()"

Kraj:
MsgBox "Niste popunili sve podatke"
End Function