Prikazi cijelu temu 31.12.2010 13:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: delete i otvaranje formi
Bolje ti je pozvati na on close.

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function BrisiPrazne(ImeTabeleB As String, ImeKLjucaB As String, ImeTabeleV As String, ImeKljucaV As String) As Boolean
  2. '*****************************************************
  3. 'Ime:      BrisiPrazne   (Function)
  4. 'Sadržaj:
  5. 'Autor:     ZXZ
  6. 'Datum:      12 31, 2010, 12:00:32
  7. 'Adresa: Tuzla BiH
  8. 'Email:     zxz@icentar.ba
  9. 'Ulazni parametri:Imetabeleb-Tabela
  10. 'iz koje se brisu podaci koji nemaju svojih redaka u tabeli
  11. 'ImetabelV,ImekljucaV-Ime poljakoje je Prim. kljuc
  12. 'ImetabeleB-Tabela u kojoj se provjerava dali ima
  13. 'vezanih podataka
  14. 'ImekljucaV-ekundarni kljuc iz tabele ImetabelB
  15. 'Izlazni parametri:BrisePodatke u tabeli Imetabelb
  16. 'Koji nemaju svojih edaka u tabeli Imetabeleb
  17. 'U referencama ukljucitu dao a iskljuciti ado
  18. '******************************************************
  19. Dim Db As Database
  20. Dim Rs As Recordset
  21. Dim SQL As String
  22. Dim Prazni As Integer
  23. Dim R
  24.  
  25. On Error GoTo Greska
  26.  
  27. SQL = "SELECT * FROM " & ImeTabeleB _
  28. & " WHERE " & ImeKLjucaB & " not in (SELECT " & ImeKljucaV & " FROM " & ImeTabeleV & ")"
  29. Set Db = CurrentDb
  30. Set Rs = Db.OpenRecordset(SQL)
  31. Prazni = Rs.RecordCount
  32.     If Prazni > 0 Then
  33.     Beep
  34.     R = MsgBox("Imate " & Prazni & " bez pariteta", vbQuestion _
  35.     + vbYesNo + vbDefaultButton2, "Prazni")
  36.    
  37.     If R = vbYes Then
  38.         Do While Not Rs.EOF
  39.         Rs.Delete
  40.         Rs.MoveNext
  41.         Loop
  42.     BrisiPrazne = True
  43.     Else
  44.     BrisiPrazne = False
  45.     End If
  46. End If
  47. Izlaz:
  48. Rs.Close
  49. Set Db = Nothing
  50. Exit Function
  51. Greska:
  52. 'Presretanje Gresaka:
  53. '
  54. Resume Izlaz
  55. Kraj:
  56. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.