Predmet:Funkcija molim pomoć
Napravio sam funkciju za storniranje računa.
Podaci sa računa upisani su u tblProdaja
Ako je račun proknjiženi tada su podaci upisani u tblTransakcij i tblUlazIzlaz i funkcija 'Storniraj' odradi svoj posao kako treba.
Međutim ako račun nije proknjižen tada treba promjeniti podatke samo u tblProdaj, a tblTransakcije i tblUlazIzlaz zaobići.
Trebao bih pomoć za priloženu funkciju kako da zaoniđem Rs1 i Rs2
PreuzmiIzvorni kôd (vbnet):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
Pozdrav