Skip to main content

AccessTr.neT


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

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

Çözüldü #13
(13/12/2011, 22:20)alpeki99 yazdı: Sadece bu işi yapan formlarınızı ekleyin o şekilde kontrol edelim. Benim yazdığımı kafadan hızlıca yazdığım için eksik var. For döngüsü içinde B sütunundan sonraki sayı 1 artacağı için ben orada katmayı unutmuşum. Schworse hocamın yazdığı kodda ki gibi döngüde sütun yanındaki sayıyı arttıracak bir sayı gelecek. Schworse hocam For'un parametresini vermiş o şekilde kullanabilirsiniz.

Örnek dosya ekledim.
Sorumu tekrarlıyorum: Kaydet butonuna bastığımda hem Access verileri kaydedecek hemde "deneme.xls" ye "Sayfa1" e Textbox1 deki "B2" den başıyarak veriyi alt alta ekliyecek

Ek Dosyalar
 sorum2.rar(294.64 KB)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #14
Değişen bir şey olmamış yukarıdaki dosyanızın aynısını koymuşsunuz. Biz yazınca üyelerimiz alınıyor ancak bir türlü derdimizi anlatamıyoruz. Programı çalıştırıyorum hatalar veriyor önce onları temizleyip düzeltmeye çalışıyorum. Daha sonra konuyu okuyorum hangi formda hangi buton olduğunu yazmamışsınız onu arıyorum. Bulduktan sonra süreci anlamak için yeni bir kayıt yapayım diyorum formunuzun tasarımını kendi çözünürlüğünüze göre yapmışsınız Scroll konulmamış onları düzeltiyorum. Sorunuz için örnek oluşturmayıp projenizi koyduğunuz için bir sürü mecburi alan dolduruyorum Kaydet diyorum bu defada bir programda asla olmaması gereken bir MessageBox penceresi görüyorum güç bela onu da hallediyorum. Kodları inceliyorum Excel ile ilgili hiç bir şey yazmamışsınız. Siz yazmış olsanız belki de hatanızı görüp hemen düzelteceğiz ancak baştan uğraşmak zorunda kalıyoruz.

Diğer arkadaşları bilmiyorum ancak benden çok farklı durumda değillerdir. Ne kadar problemsiz soru sorarsanız o kadar çabuk yanıt alabilirsiniz. Ben düzeltilmiş hali ile ekleyeyim müsait bir arkadaş ilgilenir.

Ek Dosyalar
 excelde_alt_satira_kaydet.rar(567.48 KB)
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ü #15
(13/12/2011, 23:35)alpeki99 yazdı: Değişen bir şey olmamış yukarıdaki dosyanızın aynısını koymuşsunuz. Biz yazınca üyelerimiz alınıyor ancak bir türlü derdimizi anlatamıyoruz. Programı çalıştırıyorum hatalar veriyor önce onları temizleyip düzeltmeye çalışıyorum. Daha sonra konuyu okuyorum hangi formda hangi buton olduğunu yazmamışsınız onu arıyorum. Bulduktan sonra süreci anlamak için yeni bir kayıt yapayım diyorum formunuzun tasarımını kendi çözünürlüğünüze göre yapmışsınız Scroll konulmamış onları düzeltiyorum. Sorunuz için örnek oluşturmayıp projenizi koyduğunuz için bir sürü mecburi alan dolduruyorum Kaydet diyorum bu defada bir programda asla olmaması gereken bir MessageBox penceresi görüyorum güç bela onu da hallediyorum. Kodları inceliyorum Excel ile ilgili hiç bir şey yazmamışsınız. Siz yazmış olsanız belki de hatanızı görüp hemen düzelteceğiz ancak baştan uğraşmak zorunda kalıyoruz.

Diğer arkadaşları bilmiyorum ancak benden çok farklı durumda değillerdir. Ne kadar problemsiz soru sorarsanız o kadar çabuk yanıt alabilirsiniz. Ben düzeltilmiş hali ile ekleyeyim müsait bir arkadaş ilgilenir.

Ek Dosyalar
 excelde_alt_satira_kaydet.rar(567.48 KB)

Aynısı değil dostum. En sade hali ve herhangi bir uyarı vermedi. Denedim öyle rarladım. Bir yanlışın olmasın. Şu anda tekrar kontrol ettim. 1 form var içinde ve herşey sade. Yanılıyorsun bence
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #16
İlginç tekrar indirdim aynen dediğiniz gibi çıktı. Son bir enerji bir daha bakacağım soruya.
Excel kodlarınızı hangi prosedüre yazdınız?
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ü #17
İşte benim tepede duran "% 50" uyarı yazısı aynen böyle oluşmuştu. Önemli olmasada hakkımın yendiğini düşünüyorum. Sade ve açıklayıcı yazmaya çalışıyorum, ama unutmamalıki bizler işi bilmeyen veya az bileniz. Yüz sefer bile hata yapsak sıfırmala konumundakiler sizlersiniz. Amaç bu zaten saçma sorular veya akıllı sorular sorulsun cevap verelim Img-grin Ya sabır konumunda olduğunuza vallahi üzülüyorum....
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 13/12/2011, 23:48, Düzenleyen: drummers.
Cevapla
Çö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
Task