Alt Formun Kayıt Kaynağını Kod İle Ayarlamak

1 2 3 4 5 6
28/03/2019, 10:36

programmer67

Herkese günaydın,

Formumda ki bir alt formun kayıt kaynağını açılan liste kutusunun kimlik alanı ile eşleştirmek istiyorum. Açılan kutudan seçim yapıldığında alt formdaki bilgilerin ilgili kaydı getirmesini istiyorum. Ben kodu aşağıdaki şekilde düzenledim fakat hata var. 


Private Sub ak_inctar_AfterUpdate()

'Formlar![incelemekayitlari]![kararlar_alt_form].Form.RecordSource = "SELECT kararlar_inctar.*, kararlar_inctar.Kimlik FROM kararlar_inctar WHERE (((kararlar_inctar.Kimlik)=[Formlar]![incelemekayitlari]![mk_inctarihi]));"

End Sub


[mk_inctar] diye bir metin kutusu ekledim. Buraya açılan kutudaki kimlik değerini alıyorum.
28/03/2019, 10:52

berduş

(28/03/2019, 10:36)programmer67 yazdı: SELECT kararlar_inctar.*, kararlar_inctar.Kimlik
hem "*" hem de "kararlar_inctar.Kimlik" alan adı beraber kullanılmış sorun ondan olabilir
aşağıdaki kodu dener misiniz?
[kararlar_alt_form].Form.RecordSource = "SELECT * FROM kararlar_inctar WHERE (((kararlar_inctar.Kimlik)=[Formlar]![incelemekayitlari]![mk_inctarihi]));"
[incelemekayitlari].requery
28/03/2019, 10:58

berduş

dikkatimden kaçmış olabilir siz hangi aşamada "ak_inctar" açılır kutusunun değerini "[mk_inctarihi]" metin kutusuna atıyorsunuz?
28/03/2019, 11:03

programmer67

(28/03/2019, 10:58)haliliyas yazdı: dikkatimden kaçmış olabilir siz hangi aşamada "ak_inctar" açılır kutusunun değerini "[mk_inctarihi]" metin kutusuna atıyorsunuz?

formda mk_inctar ın denetim kaynağına mk_inctar =[ak_inctar].[column](0) bu kodu yazdım.
28/03/2019, 11:30

programmer67

(28/03/2019, 11:03)programmer67 yazdı:
(28/03/2019, 10:58)haliliyas yazdı: dikkatimden kaçmış olabilir siz hangi aşamada "ak_inctar" açılır kutusunun değerini "[mk_inctarihi]" metin kutusuna atıyorsunuz?

formda mk_inctar ın denetim kaynağına mk_inctar =[ak_inctar].[column](0) bu kodu yazdım.

Hata olarak "Object Required" hatası veriyor !
28/03/2019, 11:32

berduş

dosyanızı eklerseniz çözümü bulmak kolaylaşır?
1 2 3 4 5 6