Predmet:Re: delete i otvaranje formi
Bolje ti je pozvati na on close.
PreuzmiIzvorni kôd (Visual Basic):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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.