Skip to main content

AccessTr.neT


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

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

Çözüldü #19
(13/12/2011, 23:58)schworse yazdı: 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)

Teşekkürler. Tamamdır
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #20
Merhaba;

Yukarıda yazıları şimdi okudum üzüldüm Alpeki99 hocamız haklı kısaca sorununuzu anlatan özet bir örnek ile dönüş yapınız sorunların çözüm süresini kısaltacaktır.

Alpeki hocamıza teşekkür etmelisiniz ki size yardımcı olmaya çalışıyor hiçbir karşılık beklemeden.

Neyse sorunuz çözüldü geçmiş olsun size kolay gelsin.
Cevapla
Çözüldü #21
Ben soruya bakarken bir baktım Emin hocam çözmüşte eklemiş bile Lol Allah razı olsun senin gibi değerli hocalarımız desteklerini esirgemiyor.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #22
Alpeki99 hocam;

Sayenizde bu durumdayız sizin hakkınız ödenmez ne kadar yardımcı olsak azdır.

İyi akşamlar.
Cevapla
Çözüldü #23
(14/12/2011, 00:16)schworse yazdı: Merhaba;

Yukarıda yazıları şimdi okudum üzüldüm Alpeki99 hocamız haklı kısaca sorununuzu anlatan özet bir örnek ile dönüş yapınız sorunların çözüm süresini kısaltacaktır.

Alpeki hocamıza teşekkür etmelisiniz ki size yardımcı olmaya çalışıyor hiçbir karşılık beklemeden.

Neyse sorunuz çözüldü geçmiş olsun size kolay gelsin.

Sanırım yanlış anlaşıldı. Ben tabiki onun(alpeki) ve onların (ve diğerlerinin) haklarını ve yardımlarını küsümsiyemem bu hak yemek olur, ne kadar teşekkür etsek(m) inanın ki azdır. Sadece vurgulamak istediğim, bizler bu konu dalında az bilgiliyiz konuyu uzatabilir, saçmalıyabilir, hatta hatta yanlış(LAR) yapabiliriz. Demek istedim ki ; mademki amaç yardım... müsama üst düzey olmalı. Bu demek değilki, sizler makinasınız; tabiki hayır. emekleriniz, cevaplarınızın karşılığıda şudur gözümde : "Allah işinizi gücünüzü ras getirsin, Allah razı olsu hemide cümlenizden". Teşekkürler.... O yukardaki %50 uyarıyıda silelim lütfen artık Img-grin

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task