Skip to main content

AccessTr.neT


Aynı anda iki veritabanına kayıt hk.

Aynı anda iki veritabanına kayıt hk.

Çözüldü #18
Merhaba;

Örneği inceledim For a gerek yok altta bulunan kodu yazın ve txt leri b,c,d diye değiştirip çoğatabilirsiniz.

Kolay gelsin.
Kod:
Dim dosya As New Excel.Application
        Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(Application.StartupPath & "\deneme.xls")
        dosya.Visible = True

        Dim sonsatir As Integer

        sonsatir = dosya.WorksheetFunction.CountA(sayfa.Sheets("Sayfa1").Columns("A"))
        sonsatir = sonsatir + 1
        sayfa.Sheets("Sayfa1").Range("A" & sonsatir) = TextBox1.Text

    End Sub


Merhaba;

Çalışan örnek ekte yer almaktadır.

Kolay gelsin.
Ek Dosyalar
 sorum2.rar(416.99 KB)
Son Düzenleme: 14/12/2011, 00:01, Düzenleyen: schworse.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Aynı anda iki veritabanına kayıt hk. - Yazar: schworse - 13/12/2011, 23:58
Task