AccessTr.neT

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.Text

Bu 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

Ek Dosyalar

sorum.rar(573.51 KB)

drummers