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
