Public Sub AltFrm_Kayit_islem(formadi As String, altformadi As String)
Dim ctl As Control
For Each ctl In Forms(formadi).Controls
With ctl
On Error Resume Next
   Select Case .ControlType
        Case acCommandButton
            If Mid(.Name, 9, 20) = "previous" Then
                MsgBox "neler oluyor"
                [Forms]![formadi]![altformadi].SetFocus
                 [Forms]![formadi].Caption = "lksldklsk"
                
                DoCmd.GoToRecord , , acPrevious
                 [Forms]![formadi]![altformadi]![Metin14] = "lksldklsk"
              [Forms]![formadi]![TxtHesapAktifKayit] = [Forms]![formadi]![altformadi].Form.CurrentRecord
  
              [Forms]![formadi]![TxtHesapToplamKayit] = [Forms]![formadi]![altformadi].Form.RecordsetClone.RecordCount
                    MsgBox "valla bilemedim"
            End If
            
       End Select
 
End With
 
Next ctl
 
End Sub

Public Function SonrakiKayit()
    On Error GoTo SonrakiKayit_Err
 
    With CodeContextObject
        On Error Resume Next
        DoCmd.GoToRecord , "", acNext
        If (Err.Number <> 0) Then
            Beep
            MsgBox "Kayıt Sonuna Geldiniz!...", vbInformation, "Dikkat"
        End If
    End With
 
 
SonrakiKayit_Exit:
    Exit Function
 
SonrakiKayit_Err:
    MsgBox "Kayıt Sonuna Geldiniz!...", vbInformation, "Dikkat"
    Resume SonrakiKayit_Exit
 
End Function

Call SonrakiKayit

if AktifButon.Enabled = True Then