Option Compare Database
Option Explicit
Private Sub Ceza_Mahkeleri_DblClick(Cancel As Integer)
Call Listeleme(Me.ActiveControl.Name)
End Sub
Private Sub Cumhuriyet_Baþsavcýlýðý_DblClick(Cancel As Integer)
Call Listeleme(Me.ActiveControl.Name)
End Sub
Private Sub Diðer_Birimler_DblClick(Cancel As Integer)
Call Listeleme(Me.ActiveControl.Name)
End Sub
Private Sub Hukuk_Mahkemeleri_DblClick(Cancel As Integer)
Call Listeleme(Me.ActiveControl.Name)
End Sub
Private Sub Ýcra_Daireleri_DblClick(Cancel As Integer)
Call Listeleme(Me.ActiveControl.Name)
End Sub
Sub Listeleme(Sutun As String)
Dim SrgYp As QueryDef
For Each SrgYp In CurrentDb.QueryDefs
If SrgYp.Name = "Gecici" Then DoCmd.DeleteObject acQuery, "Gecici"
Next SrgYp
Set SrgYp = Nothing
Set SrgYp = CurrentDb.CreateQueryDef("Gecici", "Select  tbl_bilgisayarkayit.[Kullanýcý Adý - Soyadý], tbl_bilgisayarkayit.[Bilgisayar Adý], tbl_bilgisayarkayit.[Bilgisayar Markasý], tbl_bilgisayarkayit.[Bilgisayar Modeli], tbl_bilgisayarkayit.[Bilgisayar Seri Numarasý], tbl_bilgisayarkayit.[Monitör Markasý], tbl_bilgisayarkayit.[Monitör Modeli], tbl_bilgisayarkayit.[Monitör Seri Numarasý] From tbl_bilgisayarkayit Where (([" & Sutun & "])<>'')")
DoCmd.OpenQuery "Gecici", acViewNormal, acReadOnly
End Sub