Hvala unaprijed.
Code:
Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
strSQL = "DELETE FROM Temp;" 'prazni tabelu Temp
DoCmd.RunSQL strSQL
End Sub
Private Sub ListRac_AfterUpdate()
Dim strSQL As String
Dim strSQL1 As String
Dim strSQL2 As String
Dim strSQL3 As String
Dim strSQL4 As String
Dim strSQL5 As String
Dim Msg, Style, Title, Response
Msg = "Brisanje računa broj: " & Me.ListRac & " Da li ste sigurni?"
Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons.
Title = "UPOZORENJE!!!"
On Error GoTo greska
Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then
Exit Sub
End If
strSQL = "INSERT INTO Temp ( MagID, kol, Dok ) " & _
"SELECT tblKarticeArtikla.magacinID, tblKarticeArtikla.izlaz, tblKarticeArtikla.dokument " & _
"FROM tblKarticeArtikla " & _
"WHERE (((tblKarticeArtikla.dokument)=[Forms]![FormIzborDelRac]![ListRac])); " ' upis u tabelu temp
DoCmd.RunSQL strSQL
strSQL1 = "UPDATE Magacin INNER JOIN Temp ON Magacin.MagacinID = Temp.MagID SET Magacin.Kolicina = [Magacin]![Kolicina]+[Temp]![kol]" & _
"WHERE (((Temp.Dok)=[Forms]![FormIzborDelRac]![ListRac]));" 'vraca robu na stanje u magacin
DoCmd.RunSQL strSQL1
strSQL2 = "DELETE * FROM pom WHERE (((pom.brRac)=[Forms]![FormIzborDelRac]![ListRac]));" ' brise racun iz tabele pom
DoCmd.RunSQL strSQL2
strSQL3 = "DELETE * FROM tblKarticePartnera WHERE (((tblKarticePartnera.dokument)=[Forms]![FormIzborDelRac]![ListRac]));" ' brise racun iz tabele kartice partnera
DoCmd.RunSQL strSQL3
strSQL4 = "DELETE * FROM tblKarticeArtikla WHERE (((tblKarticeArtikla.dokument)=[Forms]![FormIzborDelRac]![ListRac]));" 'brise racun iz tabele kartice artikala
DoCmd.RunSQL strSQL4
strSQL5 = "DELETE * FROM trk WHERE (((trk.[brRac/brKalk])=[Forms]![FormIzborDelRac]![ListRac]));" 'brise racun iz tabele trk(trgovacka knjiga)
DoCmd.RunSQL strSQL5
Forms![FormIzborDelRac].SetFocus
DoCmd.Close
exit_greska:
Exit Sub
greska:
Call greska
Resume exit_greska
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
strSQL = "DELETE FROM Temp;" 'prazni tabelu Temp
DoCmd.RunSQL strSQL
End Sub
Private Sub ListRac_AfterUpdate()
Dim strSQL As String
Dim strSQL1 As String
Dim strSQL2 As String
Dim strSQL3 As String
Dim strSQL4 As String
Dim strSQL5 As String
Dim Msg, Style, Title, Response
Msg = "Brisanje računa broj: " & Me.ListRac & " Da li ste sigurni?"
Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons.
Title = "UPOZORENJE!!!"
On Error GoTo greska
Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then
Exit Sub
End If
strSQL = "INSERT INTO Temp ( MagID, kol, Dok ) " & _
"SELECT tblKarticeArtikla.magacinID, tblKarticeArtikla.izlaz, tblKarticeArtikla.dokument " & _
"FROM tblKarticeArtikla " & _
"WHERE (((tblKarticeArtikla.dokument)=[Forms]![FormIzborDelRac]![ListRac])); " ' upis u tabelu temp
DoCmd.RunSQL strSQL
strSQL1 = "UPDATE Magacin INNER JOIN Temp ON Magacin.MagacinID = Temp.MagID SET Magacin.Kolicina = [Magacin]![Kolicina]+[Temp]![kol]" & _
"WHERE (((Temp.Dok)=[Forms]![FormIzborDelRac]![ListRac]));" 'vraca robu na stanje u magacin
DoCmd.RunSQL strSQL1
strSQL2 = "DELETE * FROM pom WHERE (((pom.brRac)=[Forms]![FormIzborDelRac]![ListRac]));" ' brise racun iz tabele pom
DoCmd.RunSQL strSQL2
strSQL3 = "DELETE * FROM tblKarticePartnera WHERE (((tblKarticePartnera.dokument)=[Forms]![FormIzborDelRac]![ListRac]));" ' brise racun iz tabele kartice partnera
DoCmd.RunSQL strSQL3
strSQL4 = "DELETE * FROM tblKarticeArtikla WHERE (((tblKarticeArtikla.dokument)=[Forms]![FormIzborDelRac]![ListRac]));" 'brise racun iz tabele kartice artikala
DoCmd.RunSQL strSQL4
strSQL5 = "DELETE * FROM trk WHERE (((trk.[brRac/brKalk])=[Forms]![FormIzborDelRac]![ListRac]));" 'brise racun iz tabele trk(trgovacka knjiga)
DoCmd.RunSQL strSQL5
Forms![FormIzborDelRac].SetFocus
DoCmd.Close
exit_greska:
Exit Sub
greska:
Call greska
Resume exit_greska
End Sub