Private Sub Form_Load()

Dim CikanSql As String
Dim X As Integer
Dim Gveri As Integer

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

   CikanRS.Open CikanSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
    If CikanRS.RecordCount <> 0 Then
       CikanRS.MoveFirst
    
    AlanDoldur
    
    End If

Dim fat As Control

   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

If Me.OpenArgs <> 0 Then
    
    Tarih_TXT.SetFocus
    
    CikanRS.MoveFirst
    
    For Gveri = 0 To CikanRS.RecordCount - 1

        AlanDoldur
        CikanRS.MoveNext

            If Me.YardimNo_TXT = Me.OpenArgs Then
                Exit For
            End If
    Next Gveri
    
Me.KeyPreview = True

End If

Tarih_TXT = Date

End Sub

If CurrentProject.AllForms("F_AyniYardimCikis").IsLoaded = True Then
    DoCmd.Close acForm, "F_AyniYardimCikis"
End If
DoCmd.OpenForm "F_AyniYardimCikis", , , , , , Me.YardimNo_TXT