Merhaba,

Örneğimde hangi altform etkin ise anaform üzerindeki kayıt ekle butonuna basınca o altformda yeni kayıt satırı açılsın ve o altformda kayıt ekleme satırı etkin olsun.

Yardımcı olursanız sevinirim.

Teşekkürler.

Merhaba;
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

direnist, ilginize teşekkür ederim.
kimlik.setfocus ile imleç seçilen altformun ilk satırında oluyor; ben bunun kayıt satırında olmasını istiyorum.

Me.GECERLIFORM = Me.Alt1.SourceObject --yerine-->Me.GECERLIFORM = "Alt1"
Me.GECERLIFORM = Me.Alt2.SourceObject --yerine-->Me.GECERLIFORM = "Alt2"
yeni kayıt butonunun kodunu da aşağıdaki kodla değiştirip dener misiniz?

Me.Alt1.Form.AllowAdditions = False

Me.Alt2.Form.AllowAdditions = False

Controls(Me.GECERLIFORM).SetFocus

Controls(Me.GECERLIFORM).Form.AllowAdditions = True

    DoCmd.GoToRecord , , acNewRec

Teşekkür ederim 

İyi çalışmalar)