Public Function BrisiPrazne(ImeTabeleB As String, ImeKLjucaB As String, ImeTabeleV As String, ImeKljucaV As String) As Boolean
'*****************************************************
'Ime:      BrisiPrazne   (Function)
'Sadržaj:
'Autor:     ZXZ
'Datum:      12 31, 2010, 12:00:32
'Adresa: Tuzla BiH
'Email:     zxz@icentar.ba
'Ulazni parametri:Imetabeleb-Tabela
'iz koje se brisu podaci koji nemaju svojih redaka u tabeli
'ImetabelV,ImekljucaV-Ime poljakoje je Prim. kljuc
'ImetabeleB-Tabela u kojoj se provjerava dali ima
'vezanih podataka
'ImekljucaV-ekundarni kljuc iz tabele ImetabelB
'Izlazni parametri:BrisePodatke u tabeli Imetabelb
'Koji nemaju svojih edaka u tabeli Imetabeleb
'U referencama ukljucitu dao a iskljuciti ado
'******************************************************
Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
Dim Prazni As Integer
Dim R

On Error GoTo Greska

SQL = "SELECT * FROM " & ImeTabeleB _
& " WHERE " & ImeKLjucaB & " not in (SELECT " & ImeKljucaV & " FROM " & ImeTabeleV & ")"
Set Db = CurrentDb
Set Rs = Db.OpenRecordset(SQL)
Prazni = Rs.RecordCount
    If Prazni > 0 Then
    Beep
    R = MsgBox("Imate " & Prazni & " bez pariteta", vbQuestion _
    + vbYesNo + vbDefaultButton2, "Prazni")
    
    If R = vbYes Then
        Do While Not Rs.EOF
        Rs.Delete
        Rs.MoveNext
        Loop
    BrisiPrazne = True
    Else
    BrisiPrazne = False
    End If
End If
Izlaz:
Rs.Close
Set Db = Nothing
Exit Function
Greska:
'Presretanje Gresaka:
'
Resume Izlaz
Kraj:
End Function