AccessTr.neT

Bul · 13/12/2011, 22:31

(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)

Bul · 13/12/2011, 23:35

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)

Bul · 13/12/2011, 23:41

(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

Bul · 13/12/2011, 23:45

İ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?

Bul · 13/12/2011, 23:47

İş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....

Bul · 13/12/2011, 23:58

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)

AccessTr.neT

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

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

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

Giriş yap

Hesap oluştur

Konu Linkleri