Sn.@berduş bu fonksiyon sayfanın en sonunda imiş gözümden kaçmış onuda ekledim ama aynı hata devam ediyor. İncelemeye devam ediyorum. Kodu aynı formda kullandım başka bir fark şimdilik göremedim incelemeye devam ediyorum.

Public Function AcikMi()



CikanRS.Close

Set CikanRS = Nothing

Dim CikanSql As String

Dim X As Integer

Dim Gveri As Integer

Dim fat As Control



    

    CikanSql = "Select * from T_AyniYardim where CikanMiktar>0"

    CikanRS.Open CikanSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    

    If CikanRS.RecordCount <> 0 Then

       CikanRS.MoveFirst

    

    AlanDoldur

    Else

       For Each fat In Me.Form.Controls

        Select Case fat.ControlType

           Case acTextBox

           fat.Value = ""

           Case acComboBox

           fat.Value = ""

           Case acCheckBox

           fat.Value = "0"

                               

         End Select

        Next



    End If

End Function