[
attachment=30988]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