Tabloda Alt Satırlara Mükerrer Girişlerin Pratik Yolu? - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Tabloda Alt Satırlara Mükerrer Girişlerin Pratik Yolu? (/konu-tabloda-alt-satirlara-mukerrer-girislerin-pratik-yolu.html) |
Cvp: Tabloda Alt Satırlara Mükerrer Girişlerin Pratik Yolu? - Hakan - 28/11/2008 (28/11/2008, 13:29)nihatkr yazdı: hangisinin senin için faydalı olacağ derken. accessın özelliği formlar üzerinden kolay ve pratik giriş sağlamak. yoksa excelden bir farkı kalmayacaktır. Accessi Vt oluşturmak için kullanıorum. Küpler oluşturup Excel üzerinden OLAP çalışarak aylar haftalar süren raporlarımı bir günde tamamlıyorum. Cvp: Tabloda Alt Satırlara Mükerrer Girişlerin Pratik Yolu? - syrup - 28/11/2008 selam hakan. formda kodları seçip girebilirsin.yeni kodlar girmeyide dene. geçenki dosyan üzerinde hazırladım. Cvp: Tabloda Alt Satırlara Mükerrer Girişlerin Pratik Yolu? - Hakan - 28/11/2008 (28/11/2008, 14:52)syrup yazdı: selam hakan. formda kodları seçip girebilirsin.yeni kodlar girmeyide dene. geçenki dosyan üzerinde hazırladım. Sayın syrup, Tek kelime ile harikaa... Çok teşekkür ederim. Cvp: Tabloda Alt Satırlara Mükerrer Girişlerin Pratik Yolu? - Hakan - 28/11/2008 (27/11/2008, 19:41)Hakan yazdı: Diğer sorumda; 2. sorumu nasıl yapacagım bir fikriniz varmı? Cvp: Tabloda Alt Satırlara Mükerrer Girişlerin Pratik Yolu? - nihatkr - 28/11/2008 (28/11/2008, 15:07)Hakan yazdı:(27/11/2008, 19:41)Hakan yazdı: Diğer sorumda; bu soru aslında hep sorulan bir soru. ama excelde satırlar ve sutunlar sınırlandırılmıştır. ancak 65536 satırdan sonrasını daha öce excel.web de verilmiş olana aşağıdaki kodla bir sonraki sayfaya aktararak çözmeniz mümkün olabilir. Sub GetTxtData2() 'Raider ® Dim MyFile As String MyFile = "C:\Test.txt" j = 0 Set NewSh = Worksheets.Add j = j + 1 NewSh.Name = "TextSheet-" & j Open MyFile For Input As #1 Do While Not EOF(1) i = i + 1 Line Input #1, InputData Cells(i, 1) = InputData If i > 65535 Then Set NewSh = Worksheets.Add j = j + 1 NewSh.Name = "TextSheet-" & j i = 0 End If Loop Close #1 Set NewSh = Nothing End Sub Cvp: Tabloda Alt Satırlara Mükerrer Girişlerin Pratik Yolu? - Hakan - 28/11/2008 (28/11/2008, 15:24)nihatkr yazdı:(28/11/2008, 15:07)Hakan yazdı:(27/11/2008, 19:41)Hakan yazdı: Diğer sorumda; Sayın Nihat, Bu farklı bişey, Access de Excele ver dediğim zaman olan bir durum bu. Excel 2007 kullanmama rağmen 65 000 üstü veri gönderemiyorum. |