Kritere Göre Form Açmak

06/01/2020, 17:23

adnan

Merhaba,
Kod:
Forms.Frm_Ana.AltM.SourceObject = "frm_KitapGrişA"
Bu Kodla ana form üzerindeki ilişkisiz altM formunun üzerine kitapgirişA formunu aştırıyorum.

Aşağıdaki kritere göre form açan kod var ama altM formunun üzerine açmıyor formu müstakil açıyor. Yukarıdaki kodu aşağıdaki koda uyarlayamadım.

Teşekkür ederim
Saygılarımla.
Kod:
On Error GoTo Err_frm_malzemeAç_Click
If Me![KitapAdiID] <> " " Then

Dim stDocName As String
Dim stLinkCriteria As String
    stDocName = "frm_malzeme"
    stLinkCriteria = "[KitapNo]=" & Me![KitapAdiID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit, acWindowNormal
    Else
MsgBox "Boş kayıt!"
Exit_frm_malzemeAç_Click:
    Exit Sub
Err_frm_malzemeAç_Click:
    MsgBox Err.Description
    Resume Exit_frm_malzemeAç_Click
    End If
07/01/2020, 01:30

berduş

altform ve üst form arasında ilişki tanımladınız mı?
07/01/2020, 10:04

ozanakkaya

(06/01/2020, 17:23)adnan yazdı: Aşağıdaki kritere göre form açan kod var ama altM formunun üzerine açmıyor formu müstakil açıyor


DoCmd.OpenForm stDocName şeklinde kod eklemişsiniz. Bu kod formun üzerinde açar. Form üzerindeki alt formun kaynak nesnesini değiştirmek istiyorsanız kodunuz ilk eklediğiniz koda benzer olmalı. 

Forms.Frm_Ana.AltM.SourceObject = "frm_malzeme"

Alt formun, "Üst Alanları Bağla", "Alt Alanları Bağla" özelliği ile üst form ile bağlantısını yapmalısınız.
07/01/2020, 23:09

adnan

Merhaba,
sn.berduş ve ozanakkaya teşekkürederim.
Saygılarımla