Predmet:Re: Upis u dvije tablice istovremeno
U form futer dodaj jos jedna text box i daj mu ime:
PoreskiBr
U njega ces upisivat taj poreski broj
Pored ovoga dodaj jos jedan komandni taster koji ce se zvati:
Izbrisi
Ovu proceduru stavi u modul forme.
Znaci ne u neki zaseban modul nego u modul ove forme.
PreuzmiIzvorni kôd (Visual Basic):Function Poreski(X As Boolean)
Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim PoreskiBroj As String
Dim SQL As String
Set Db = CurrentDb
If X = True Then
PoreskiBroj = Me.PoreskiBr
If Format$(PoreskiBroj) = "" Then
GoTo Greska
End If
Else
Poreski broj = ""
Me.PoreskiBr = Null
End If
Set Rs1 = Me.RecordsetClone
If Rs1.RecordCount = 0 Then GoTo Greska
Rs1.MoveFirst
Do While Not Rs1.EOF
Rs1.Edit
Rs1!V_Broj = PoreskiBroj
Rs1.Update
SQL = "SELECT * FROM tblProdaja WHERE OrderID ='" & Rs1!ID_RAC & "'"
Set Rs2 = Db.OpenRecordset(SQL)
Rs2.Edit
Rs2.Edit
Rs2!V_Broj = PoreskiBroj
Rs2.Update
Rs2.Close
Rs1.MoveNext
Loop
Izlaz:
Rs1.Close
Set Db = Nothing
Exit Function
Greska:
Resume Izlaz
End Function
ovaj kod ide ispod tvoga comand tastera C_verificiraj.
PreuzmiIzvorni kôd (Visual Basic):Private Sub C_VERIFICIRAJ_Click()
Poreski (-1)
End Sub
a ovaj ispod novog komandnog tastera koji si napravio pod imenom izbrisi
PreuzmiIzvorni kôd (Visual Basic):Private Sub Izbrisi_Click()
Poreski (0)
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.