Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
17/01/2019 17:31
Konu Sahibi
zaferlacin
Yorumlar
11
Okunma
474
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
halily

halily

Uzman
65596
ha....
 26
 1.283
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,17:16
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 & "')"




zaferlacin

zaferlacin

Aktif Üye
56243
Za.... La....
 50
 18
 70
 11/08/2013
0
 Balıkesir
 Emekli
 Ofis 2016 64 Bit
 19/07/2019,21:14
If kutu.Tag = "ekle" Then txtdeger= iif(isnull(txtdeger);kutu;"," & kutu)
kırmızı syntx hatası veriyor 
;kutu; değerinin işaretlerini , yapınca syntx hatası gidiyor
If kutu.Tag = "ekle" Then txtdeger= iif(isnull(txtdeger),kutu,"," & kutu)

bu sefer de sorgu değerleri ile hedef alanlarının sayısı aynı değil
hatası alıyorum



...........
halily

halily

Uzman
65596
ha....
 26
 1.283
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,17:16

Visual Basic Code
1
2
3
4
5
6
7
8
9
Private Sub Komut62_Click()
Dim kutu As Control
Dim txtDeger As String
txtDeger = ""
For Each kutu In Me
   If kutu.Tag = "ekle" Then txtDeger = txtDeger & IIf(txtDeger = "", kutu, "','" & kutu)
Next
DoCmd.RunSQL "INSERT INTO tablo2 (adı,soyadı,tc) VALUES ('" & txtDeger & "')"
End Sub

kodu düzelttim 
2. yöntem olarak eğer alanlar sıralı ise
1. alan= metin1 
2. alan =metin2
…….
125alan =metin125

biçimimde ise ve aynı formd ise

Visual Basic Code
for i=1 to metin kutusu sayısı
txtdeger=txtDeger & iif(txtdeger="",controls("metin" & i),"','" & controls("metin" & i))
next
DoCmd.RunSQL "INSERT INTO tablo2 (adı,soyadı,tc) VALUES ('" & txtstring & "')"


farklıformda ise mesela form2 de ise forms("form2")

Visual Basic Code
for i=1 to metin kutusu sayısı
txtdeger=txtDeger & iif(txtdeger="",forms("form2").controls("metin" & i),"','" & forms("form2").controls("metin" & i))
next
DoCmd.RunSQL "INSERT INTO tablo2 (adı,soyadı,tc) VALUES ('" & txtstring & "')"



zaferlacin

zaferlacin

Aktif Üye
56243
Za.... La....
 50
 18
 70
 11/08/2013
0
 Balıkesir
 Emekli
 Ofis 2016 64 Bit
 19/07/2019,21:14
olmadı hocam ya
sorgu değerleri ile hedef alanlarının sayısı aynı değil
hatası yada
syntx hatası veriyor
ya da
beceremedim
teşekkür ederim




...........
halily

halily

Uzman
65596
ha....
 26
 1.283
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,17:16
Zafer bey 9. Mesajdaki kodu kendimde denedigimde hata vermedi
 Noktalama işaretlerini iyice kontrol edip tekrar dener misiniz

Visual Basic Code
1
2
3
4
5
6
7
8
9
Private Sub Komut62_Click() 
Dim kutu As Control 
Dim txtDeger As String 
txtDeger = "" 
For Each kutu In Me   
 If kutu.Tag = "ekle" Then txtDeger = txtDeger & IIf(txtDeger = "", kutu, "','" & kutu)
 Next 
DoCmd.RunSQL "INSERT INTO tablo2 (adı,soyadı,tc) VALUES ('" & txtDeger & "')"
 End Sub



zaferlacin

zaferlacin

Aktif Üye
56243
Za.... La....
 50
 18
 70
 11/08/2013
0
 Balıkesir
 Emekli
 Ofis 2016 64 Bit
 19/07/2019,21:14
doğrudur çalıştı
kodları tekrar kontrol ettim 
aynı nerede hata yaptım anlamadım

ama çalışıyor teşekkür ederim Haliliyas hocam sizden kaçmayacağını biliyordum



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Açılır Kurularda 3101 Hatası Veriyor haziran4 11 291 24/05/2019, 16:22
Son Yorum: haziran4
Çözüldü Access Hatası FulyaTekin 4 161 01/05/2019, 15:06
Son Yorum: FulyaTekin
Çözüldü İlişkisiz Form Da Listenin Filtrelenen Alanını İlişkisiz Metin Kutusu İle Update ask200075 4 172 29/04/2019, 11:27
Son Yorum: ask200075
Çözüldü Locked Fonksiyonu Yok Hatası okumas 3 142 26/04/2019, 11:31
Son Yorum: halily
Çözüldü İfade Başvuru Hatası U.ALTUN 7 478 18/04/2019, 12:27
Son Yorum: halily

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.