Skip to main content

AccessTr.neT


Aktif Forma Kayıt Ekle

Aktif Forma Kayıt Ekle

Çözüldü #1
.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.
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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
Cevapla
#3
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.
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
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
Cevapla
#5
Teşekkür ederim Img-grin
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
İyi çalışmalar)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da