Metin87'nin denetim kaynağındaki kodu aşağıdaki ile değiştir
=DLookUp("[FIRMAKISIADI]";"tbl_Fırma";"[FIRKISID]=" & Nz([mtn_firmaid];0))
silme mevzusu için ise, silme butonunda bulunan
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
kodlarını sil, yerine aşağıdakileri ekle.
If MsgBox("Firma ve firmaya ait işlemlere ait veriler silinecektir", vbCritical + vbYesNo, "Silme Uyarısı") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE firmaid FROM tbl_odemebilgi WHERE ((firmaid)=" & Me.mtn_firmaid & ")"
Me.Requery
DoCmd.SetWarnings True
End If
Farklı bir sorunuz var ise yeni konu açınız, bu konuyu taşıyalım.
Altformda kayıttan önce boş satır sorunu
Konuyu Okuyanlar: 1 Ziyaretçi