+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: VB 2010 da şartlı ve değere bağlı veri aktarımı (/konu-vb-2010-da-sartli-ve-degere-bagli-veri-aktarimi.html)
VB 2010 da şartlı ve değere bağlı veri aktarımı - drummers - 30/11/2011
Kod:
Dim xls As New Excel.Application
Dim w As Workbook = xls.Workbooks.Open("C:\Documents and Settings\drm\Desktop\sorum\drmkayit\bin\Debug\deneme.xls")
xls.Visible = True
w.Sheets("Sayfa1").range("A1") = TextBox1.Text
w.Sheets("Sayfa1").range("D5") = TextBox2.Text
w.Sheets("Sayfa1").range("E5") = TextBox3.TextBu kod ile "Kayitformu.vb" isimli formumdaki textbox verilerini Excel dosyasına aktarabiliyorum. Birkaç sorum olacaktı.
Sorum 1-) 2 ayrı formdan aynı anda tek Excel dosyasına textbox verilerini aktarmak istiyorum; şöyleki
Üsteki koda ilaveten combobox11 de seçili müşavirinde formundaki verileri aynı Excel dosyasına aktaracak
Örnek vereyim:
"Kayitformu.vb" daki textbox verilerini "Sayfa1" deki alanlara aktardık
w.Sheets("Sayfa1").range("A1") = TextBox1.Text
w.Sheets("Sayfa1").range("D5") = TextBox2.Text
w.Sheets("Sayfa1").range("E5") = TextBox3.Text
Combobox11 den müşavirimizi seçtik ve "Musavir.vb" deki textbox lardaki verileride şöyle aktaracak
w.Sheets("Sayfa1").range("G1") = TextBox1.Text
w.Sheets("Sayfa1").range("K5") = TextBox2.Text
w.Sheets("Sayfa1").range("J5") = TextBox3.Text
Şeklinde.
Sorum 2-) "Musavir.vb" de müşaviri kaydettikten hemen sonra datayı güncellemesi ve programı açıp kapatmama gerekmemesini ve bu müşavir isminin "Kayitformu.vb" da hemen görünmesini istiyorum.
Biraz uzun oldu farkındayım. İlgileneceklere teşekkürler