06/01/2020, 17:23
adnan
Merhaba,
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:
Forms.Frm_Ana.AltM.SourceObject = "frm_KitapGrişA"
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