[es] - Storniranje racuna

duledixi
Banja Luka

Član broj: 62165
Poruke: 67
*.teol.net.

+3 Profil

^{17.09.2007. u 12:53 - pre 202 meseci}

Interesuje me kako bi se ovaj kod moga odraditi sa Recordsetovima, inace ovaj kod odrađuje posao, ali posto sam tanak sa baratanjem sa recordsetom volio bih da i to naučim.
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

Odgovor na temu