currentide bu şekilde değiştirin


Sub Form_Current()

    On Error Resume Next

    If Err <> 0 Then
        GoTo Form_Current_Exit
    Else
        On Error GoTo Form_Current_Err
       
        If hasParent(Me) Then
            Me.Parent![AltKtgr3].Requery
        End If
       
    End If

Form_Current_Exit:
    Exit Sub

Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit

End Sub