Prikazi cijelu temu 08.04.2013 13:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function Poreski(X As Boolean)
  2. Dim Db As Database
  3. Dim Rs1 As Recordset
  4. Dim Rs2 As Recordset
  5. Dim PoreskiBroj As String
  6. Dim SQL As String
  7.  
  8.  
  9. Set Db = CurrentDb
  10. If X = True Then
  11. PoreskiBroj = Me.PoreskiBr
  12. If Format$(PoreskiBroj) = "" Then
  13. GoTo Greska
  14. End If
  15. Else
  16. Poreski broj = ""
  17. Me.PoreskiBr = Null
  18. End If
  19.  
  20. Set Rs1 = Me.RecordsetClone
  21. If Rs1.RecordCount = 0 Then GoTo Greska
  22.     Rs1.MoveFirst
  23.     Do While Not Rs1.EOF
  24.         Rs1.Edit
  25.         Rs1!V_Broj = PoreskiBroj
  26.         Rs1.Update
  27.         SQL = "SELECT * FROM tblProdaja WHERE OrderID ='" & Rs1!ID_RAC & "'"
  28.         Set Rs2 = Db.OpenRecordset(SQL)
  29.         Rs2.Edit
  30.         Rs2.Edit
  31.         Rs2!V_Broj = PoreskiBroj
  32.         Rs2.Update
  33.         Rs2.Close
  34.         Rs1.MoveNext
  35.     Loop
  36.  
  37. Izlaz:
  38. Rs1.Close
  39. Set Db = Nothing
  40. Exit Function
  41. Greska:
  42. Resume Izlaz
  43. End Function
ovaj kod ide ispod tvoga comand tastera C_verificiraj.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub C_VERIFICIRAJ_Click()
  2. Poreski (-1)
  3. End Sub

a ovaj ispod novog komandnog tastera koji si napravio pod imenom izbrisi

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Izbrisi_Click()
  2. Poreski (0)
  3. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.