Kodlarınızı aşağıdaki şekilde değiştirerek dener misiniz?
İyi çalışmalar.
Private Sub Form_Load()
Forms!frm_ANAFORM!Alt1.Form.AllowAdditions = False
Forms!frm_ANAFORM!Alt2.Form.AllowAdditions = False
Me.Alt1.Locked = True
Me.Alt2.Locked = True
End Sub
Private Sub Alt1_Enter()
Me.GECERLIFORM = Me.Alt1.SourceObject
Forms!frm_ANAFORM!Alt1.Form.AllowAdditions = True
Forms!frm_ANAFORM!Alt2.Form.AllowAdditions = False
End Sub
Private Sub Alt2_Enter()
Me.GECERLIFORM = Me.Alt2.SourceObject
Forms!frm_ANAFORM!Alt2.Form.AllowAdditions = True
Forms!frm_ANAFORM!Alt1.Form.AllowAdditions = False
End Sub
Private Sub YENIKAYIT_Click()
If Me.GECERLIFORM = "frm_DISGOREV" Then
Forms!frm_ANAFORM!Alt1.Form.AllowAdditions = True
Me.Alt1.Locked = False
Me.Alt2.Locked = True
Forms!frm_ANAFORM!Alt2.Form.AllowAdditions = False
Forms!frm_ANAFORM!Alt1.Form.KIMLIK.SetFocus
ElseIf Me.GECERLIFORM = "frm_DISGOREVISEMIRLERI" Then
Forms!frm_ANAFORM!Alt2.Form.AllowAdditions = True
Me.Alt2.Locked = False
Me.Alt1.Locked = True
Forms!frm_ANAFORM!Alt1.Form.AllowAdditions = False
Forms!frm_ANAFORM!Alt2.Form.KIMLIK.SetFocus
End If
End Sub