Private Sub Açıan_Kutu4_AfterUpdate()
Dim SQLA, Kosul As String, FormSayac As Long
 
For FormSayac = 1 To 4
    If IsNull(Me.Açılan_Kutu4) Then
        Kosul = "(Donem_Detay_Merkez.Medula_Kayit_Numarasi)>'0' Or (Donem_Detay_Merkez.Kayit_Numarasi) Is Null"
    Else
        Kosul = "((Donem_Detay_Merkez.Hizmet_Turu) = '" & Nz([Forms]![Triyaja Göre Hizmetler]![Açýlan Kutu4].Text, "*") & "') AND ((Donem_Detay_Merkez.Medula_Kayit_Numarasi) " & IIf((FormSayac Mod 2) = 1, "> '1'", "<= '1'") & ")"
    End If
 
 
    SQLA = "SELECT Donem_Detay_Merkez.Dosya_Bransi, Donem_Detay_Merkez.Hizmet_Turu, Donem_Detay_Merkez.Islem_Adi, Donem_Detay_Merkez.Triyaj, Donem_Detay_Merkez.Gelis_Numarasi, Donem_Detay_Merkez.Medula_Kayit_Numarasi FROM Donem_Detay_Merkez " & _
    "WHERE (((Donem_Detay_Merkez.Dosya_Bransi) Like 'Acil*') AND " & Kosul & ")"
 
    Me.Controls("Hizmet" & FormSayac).Form.RecordSource = SQLA
    Me.Controls("Hizmet" & FormSayac).Form.Requery
Next FormSayac
End Sub

Private Sub Form_Load()
Call Açılan_Kutu4_AfterUpdate
End Sub