Option Compare Database
Private Sub acl_kitapcik_AfterUpdate()
Call Kontrol
End Sub
Private Sub acl_sinavsalonu_AfterUpdate()
If acl_sinavsalonu <> "" Then
 acl_sinifi.RowSource = "select distinct[sinifi] from ogrenci where [acl_sinavsalonu] = '" & acl_sinavsalonu & "'"
 Else
acl_sinifi.RowSource = "select distinct[sinifi] from ogrenci"
End If
Me.Requery
Call Kontrol
End Sub
 
Private Sub acl_sinifi_AfterUpdate()
 
If acl_sinifi <> "" Then
 acl_subesi.RowSource = "select distinct[subesi] from ogrenci where [sinifi] = '" & acl_sinifi & "'"
 Else
acl_subesi.RowSource = "select distinct[subesi] from ogrenci"
End If
Me.Requery
 
Call Kontrol
End Sub
Private Sub acl_subesi_AfterUpdate()
 
If acl_subesi <> "" Then
 acl_kitapcik.RowSource = "select distinct[kitapcik] from ogrenci where [subesi] = '" & acl_subesi & "'"
 Else
acl_kitapcik.RowSource = "select distinct[kitapcik] from ogrenci"
End If
Me.Requery
Call Kontrol
End Sub
Sub Kontrol()
On Error GoTo HATA
Dim Kontrol As Control, Suzgec As String
Me.Filter = ""
For Each Kontrol In Me.Controls
If Kontrol.Tag = "BosDolu" And Not IsNull(Kontrol) Then Suzgec = Suzgec & "[" & Mid(Kontrol.Name, 5, Len(Kontrol.Name)) & "]='" & Kontrol & "' And "
Next Kontrol
Me.Filter = IIf(IsError(Mid(Suzgec, 1, Len(Suzgec) - 5)), "", Mid(Suzgec, 1, Len(Suzgec) - 5))
Me.FilterOn = True
Exit Sub
HATA:
Me.Filter = ""
Me.FilterOn = True
End Sub

Dim Gordum(3) As String
Sub Kontrol()
On Error GoTo HATA
Dim Kontrol As Control, Suzgec, Sutun As String, SrgHzr As Variant, Sw As Long
SrgHzr = Array("sinavsalonu", "sinifi", "subesi", "kitapcik")
For Each Kontrol In Me.Controls
If Kontrol.Properties("ControlType") = 111 Then
If Kontrol.Tag = "BosDolu" And Len(Me.Controls(Kontrol.Name)) > 0 Then Suzgec = Suzgec & "[" & Mid(Kontrol.Name, 5, Len(Kontrol.Name)) & "]='" & Nz(Kontrol, "") & "' And "
 End If
 Next Kontrol
     Dim AlanBosKnt As String
     If Len(Suzgec) = 0 Then AlanBosKnt = "" Else AlanBosKnt = IIf(IsError(Mid(Suzgec, 1, Len(Suzgec) - 5)), "", Mid(Suzgec, 1, Len(Suzgec) - 5))
For Sw = 0 To 3
     If Me.Controls("acl_" & SrgHzr(Sw)).Properties("ControlType") = 111 And Sw <= 3 Then
        Me.Controls("acl_" & SrgHzr(Sw)).RowSource = "select distinct[" & SrgHzr(Sw) & "] from ogrenci Where Not IsNull([" & SrgHzr(Sw) & "])" & IIf(Len(AlanBosKnt) > 0, " And " & AlanBosKnt, Null) & " Order By " & SrgHzr(Sw)
        Me.Controls("acl_" & SrgHzr(Sw)).Requery
        Me.Controls("acl_" & SrgHzr(Sw)).Enabled = IIf(Me.Controls("acl_" & SrgHzr(Sw)).ListCount >= 1, True, False)
   Gordum(Sw) = Mid(Me.Controls("acl_" & SrgHzr(Sw)).RowSource, 1, InStr(1, Me.Controls("acl_" & SrgHzr(Sw)).RowSource, "Where") - 1)
     End If
Next Sw
If AlanBosKnt <> "" Then
    Me.Filter = IIf(IsError(Mid(Suzgec, 1, Len(Suzgec) - 5)), "", Mid(Suzgec, 1, Len(Suzgec) - 5))
Else
    Me.Filter = ""
End If
Me.FilterOn = True
Exit Sub
HATA:
Me.Filter = ""
Me.FilterOn = True
End Sub

Private Sub Temiz_Click()
Dim i As Long
For Each KontrolX In Me.Controls
    If KontrolX.Tag = "BosDolu" Then
    If Gordum(i) = "" Then Gordum(i) = "select distinct[" & Mid(KontrolX.Name, 5, Len(KontrolX.Name)) & "] from ogrenci Where Not IsNull([" & Mid(KontrolX.Name, 5, Len(KontrolX.Name)) & "])"
        If KontrolX.Properties("ControlType") = 111 And i <= 3 Then Me.Controls(KontrolX.Name).RowSource = Gordum(i)
        Me.Controls(KontrolX.Name).Requery
        Me.Controls(KontrolX.Name).Enabled = IIf(Me.Controls(KontrolX.Name).ListCount >= 1, True, False)
        Me.Controls(KontrolX.Name) = ""
    i = i + 1
    End If
Next KontrolX
Me.Filter = ""
Me.FilterOn = True
End Sub