bahsettiğiniz talebinize yönelik olarak;
1)
İLÇE bilgisini aktarmamasının nedeni,
frm_dkkr_alanlar adlı formun üzerindeki cb_ilceler adlı denetimin İLİŞKİLİ SÜTUN değeri 1 olarak ayarlanmış.bu da,ID değerine denk gelmektedir.bu değeri 3 olarak değiştiriniz.
ayrıca,
frm_gelen_evrak adlı formun içeriğindeki txt.T_tutarı adlı butonun TIKLANDIĞINDA olay yordamı içerisindeki
Kod:
Forms!frm_dkkr_alanlar!cb_ilceler = Me.cb_ilce
Kod:
Forms!frm_dkkr_alanlar!cb_ilceler = Me.cb_ilce.Column(2) '.Column(2) KOD SATIRI DAHİL EDİLMİŞTİR.
2)
kaydetme işleminde de soruna maruz kalmanızın nedeni,
frm_dkkr_alanlar adlı formun üzerindeki btn_kaydet adlı butonun TIKLANDIĞINDA olay yordamı içerisinde
a)
End If kod satırının bir altına
Kod:
Me.Requery
b)
aynı kodlar içerisindeki gizlemek istediğiniz nesneler için kaydetme akabinde odaklanma uyarısı vermesini engellemek için,
ilgili olay yordamının içeriğini
Kod:
If IsNull(d_tesistur) Or IsNull(d_tesisadi) Then
MsgBox "Lütfen Tesis türü, tesis adını yazınız", vbExclamation + vbOKOnly, "bilgi mesajı"
d_tesistur.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Değişiklikler başarı ile kaydedildi.", vbInformation + vbOKOnly, "bilgi mesajı"
'ATOZ112
'AŞAĞIDAKİ KOD SATIRI DAHİL EDİLMİŞTİR.
Me.btn_once.SetFocus
btn_kaydet.Enabled = False
btn_vazgeç.Enabled = False
btn_yenikayıt.Enabled = True
btn_duzenle.Enabled = True
btn_kayitsil.Enabled = True
End If
'ATOZ112
'AŞAĞIDAKİ KOD SATIRI DAHİL EDİLMİŞTİR.
Me.Requery
bilginize...iyi çalışmalar,saygılar.