eğer metin alanları sıralı ise belki tag özelliği işinize yarayabilir
önce değerlerin olduğu metin kutularını seçip im/tag="ekle" yada istediğiniz bir şey yapın
aşağıdaki koda benzer bir şeyler deneyebilirsiniz
formdaki tum nesneleri kontrol edip im/tag="ekle" olanları txtstring ekler
Dim kutu As Control
dim txtdeger as string
txtdeger=""
For Each kutu In Me
If kutu.Tag = "ekle" Then txtdeger= iif(isnull(txtdeger);kutu;"," & kutu)
Next
DoCmd.RunSQL "INSERT INTO tablo2 (Daire,Mahalle,....) VALUES ('" & txtstring & "')"
Update Hatası
Bu Konudaki Yorumlar |
Update Hatası - Yazar: zaferlacin - 17/01/2019, 17:31
Cvp: Update Hatası - Yazar: ozanakkaya - 17/01/2019, 18:46
Cvp: Update Hatası - Yazar: zaferlacin - 17/01/2019, 19:44
Cvp: Update Hatası - Yazar: ozanakkaya - 17/01/2019, 21:46
Cvp: Update Hatası - Yazar: zaferlacin - 19/01/2019, 01:02
Cvp: Update Hatası - Yazar: zaferlacin - 20/01/2019, 00:13
Cvp: Update Hatası - Yazar: berduş - 20/01/2019, 00:37
Cvp: Update Hatası - Yazar: zaferlacin - 20/01/2019, 02:54
Cvp: Update Hatası - Yazar: berduş - 20/01/2019, 10:51
Cvp: Update Hatası - Yazar: zaferlacin - 20/01/2019, 16:44
Cvp: Update Hatası - Yazar: berduş - 20/01/2019, 21:30
Cvp: Update Hatası - Yazar: zaferlacin - 21/01/2019, 00:56
|
Konuyu Okuyanlar: 1 Ziyaretçi