• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Vba kodu yanyana yazma

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
tukayf

tukayf

Yeni Üye
Katılım
19 Eyl 2022
Mesajlar
528
Çözümler
19
Aldığı beğeni
143
Excel V
Office 2019 TR
Konu Sahibi
RS("TC_No") = TC_No
RS("Ad") = Ad
RS("Tel_No") = Tel_No
RS("kan") = Kan
RS("boy") = boy
RS("kilo") = kilo
RS("ten") = Ten
RS("goz") = goz
RS("sac") = sac

Bu şekilde 100 e yakın alan var. Bunları alt alta yazınca iş çığrından çıkıyor yan yana yazabilmenin yolu nedir acaba.
Ya da bunları kısaltabilecek bir yol var mıdır? Yardımlar için teşekkürler.
 
Tarihe göre sırala Oylara göre sırala
Amacınız tam olarak ne?
Yeni kayıt eklerken tek satır halinde eklemek mi?
Veriler nereden alınacak? Diziden mi, sayfadan mi metin kutularından mi?
Keşke üyeler sordukları sorulara biraz daha sahip çıkıp daha ayrıntılı açıklamalar yapsalar, keşke dosya ekleseler.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Merhabalar. Yanıtlar için teşekkürler.
RS("TC_No") = TC_No RS("Ad") = Ad RS("Tel_No") = Tel_No;RS("kan") = Kan
Bu şekilde yazabilmemin yolu var mıdır.

Kusura Bakmayınız örnek dosya için. Örnek dosyada kişisel veri çok fazla. Olabildiğince düzeltip eklemeye çalışacağım. Verileri Acces ten çekiyorum.
Userformdan ekle bul sil güncelle yapıyorum. Daha sonra Word e çıktı olarak alıyorum.
 
Olumlu oy 0 Negatif oyla
tukayf' Alıntı:
Merhabalar. Yanıtlar için teşekkürler.
RS("TC_No") = TC_No RS("Ad") = Ad RS("Tel_No") = Tel_No;RS("kan") = Kan
Bu şekilde yazabilmemin yolu var mıdır.

Kusura Bakmayınız örnek dosya için. Örnek dosyada kişisel veri çok fazla. Olabildiğince düzeltip eklemeye çalışacağım. Verileri Acces ten çekiyorum.
Userformdan ekle bul sil güncelle yapıyorum. Daha sonra Word e çıktı olarak alıyorum.
Genişletmek için tıkla...
iki nokta üst üste yaparsan olur
örnek:

RS("TC_No") = TC_No: RS("Ad") = Ad: RS("Tel_No") = Tel_No:RS("kan") = Kan
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
OmaR' Alıntı:
iki nokta üst üste yaparsan olur
örnek:
RS("TC_No") = TC_No: RS("Ad") = Ad: RS("Tel_No") = Tel_No:RS("kan") = Kan
Genişletmek için tıkla...
Onu denemiştim ama başka bir şey için kullanılmadığından emin olamadım. Şimdilik bu şekilde kısaltalım o zaman. Teşekkür ederim.
 
Olumlu oy 0 Negatif oyla
tukayf' Alıntı:
Onu denemiştim ama başka bir şey için kullanılmadığından emin olamadım. Şimdilik bu şekilde kısaltalım o zaman. Teşekkür ederim.
Genişletmek için tıkla...
Eğer alanları kısaltmak istiyorsanız.
Excelde zor olur. çünkü textbox 'ları diziye dönüşmüyor.
başka programlarda
textbox1(0).text
textbox1(1).text gibi kullanabiliyorsunuz.
 
Olumlu oy 0 Negatif oyla
RS("TC_No") = TC_No burada TC_No ne? metin kutusu mu? eğer metin kutusuysa ve metin kutularının adı tablodaki alan adlarıyla aynı ise
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
benzeri bir kod da kullanılabilir
denemedim teorik yazdım, yazım hataları olabilir
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
anladığım kadarıyla rs. yanyana yazılsın istiyorsunuz
"Tc No ="& RS("TC_No") &" " & "Ad ="& RS("Ad") &" "& "Soyad=" & RS("SoyAd") gibi olabilir
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
halily' Alıntı:
RS("TC_No") = TC_No burada TC_No ne? metin kutusu mu? eğer metin kutusuysa ve metin kutularının adı tablodaki alan adlarıyla aynı ise
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
benzeri bir kod da kullanılabilir
denemedim teorik yazdım, yazım hataları olabilir
Genişletmek için tıkla...
Sn. Hocam. textbox ve comboboxlardan oluşuyor.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
anladığım kadarıyla rs. yanyana yazılsın istiyorsunuz
"Tc No ="& RS("TC_No") &" " & "Ad ="& RS("Ad") &" "& "Soyad=" & RS("SoyAd") gibi olabilir
Genişletmek için tıkla...
Merhabalar Adnan Bey. Aslında kodları kısaltmak istiyorum. Her buton için bu şekilde 100lerce satır oluşturmak zorunda kaldım ve buton sayısı 8-10 ama arttıkça artıyor.
 
Olumlu oy 0 Negatif oyla
Dosyanızda gördüğüm kadarı ile Access'deki alan isimleri ile Formunuzdaki kontrol isimleri aynı aşağıdaki gibi kodlarınızın tümünü HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
aşağıdaki kod ile halledebilirsiniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi
Alicimri' Alıntı:
Dosyanızda gördüğüm kadarı ile Access'deki alan isimleri ile Formunuzdaki kontrol isimleri aynı aşağıdaki gibi kodlarınızın tümünü HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
aşağıdaki kod ile halledebilirsiniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Yeni başlayan biri olarak kargaşayı en aza indirgeyebilme açısından böyle yapayım dedim ama iyi mi yaptım bilemedim.
Yanıt için teşekkürler deniyorum hemen.
Diğerleri için bir çözümünüz var mıydı hocam.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Bul butonuna sizin çözümü yazmaya çalıştım ama sanırım hatalı yazdım. Nereye yazılacağını söyleyebilmeniz mümkün müdür?
 
Olumlu oy 0 Negatif oyla
aşağıdaki kodlar RS.Open satırının altına yazılabilirHTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
yada
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
bu kod işinizi görür
2 kodda da ID alanı da hesaba katılır
eğer ID hesaba katılmayacaksa :
İlkinde RS(fld.Name) = Controls(fld.Name) yerineHTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
ikincide ise for x=0 to rs.fields.count-1 yerine HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
rs(x) yerine rs(0) yazmıştım kodu düzelttim
 
Olumlu oy 0 Negatif oyla
Alicimri hocam ilk mesajda recordsete veri yazma sorulduğu için ben doğrudan recordseteye veri yazmayı yazdım
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst