AccessTr.neT
Aktif Forma Kayıt Ekle - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Aktif Forma Kayıt Ekle (/konu-aktif-forma-kayit-ekle.html)

Aktif Forma Kayıt Ekle - temre - 15/12/2019

.rar Aktif forma kayıt ekle.rar (Dosya Boyutu: 22,61 KB | İndirme Sayısı: 6)
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.

Cvp: Aktif Forma Kayıt Ekle - direnist - 15/12/2019

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


Cvp: Aktif Forma Kayıt Ekle - temre - 15/12/2019

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.

Cvp: Aktif Forma Kayıt Ekle - berduş - 16/12/2019

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


Cvp: Aktif Forma Kayıt Ekle - temre - 16/12/2019

Teşekkür ederim Img-grin

Cvp: Aktif Forma Kayıt Ekle - berduş - 16/12/2019

İyi çalışmalar)