Skip to main content

AccessTr.neT


Tabloda Alt Satırlara Mükerrer Girişlerin Pratik Yolu?

Tabloda Alt Satırlara Mükerrer Girişlerin Pratik Yolu?

Çözüldü #13
(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.

Insanlarin birbirini Yanlis Alamalari Icin 9 Ihtimal Vardir.

''Dusundugunuz / Soylemek Istediginiz / Soyledigini Sandiginiz / Soylediginiz / Karsinizdakinin Duymak Istedigi / Duydugu / Anlamak Istedigi / Anladigini sandigi / Anladigi''
Cevapla
Çözüldü #14
selam hakan. formda kodları seçip girebilirsin.yeni kodlar girmeyide dene. geçenki dosyan üzerinde hazırladım.
.rar Hakan2syrup.rar (Dosya Boyutu: 17,14 KB | İndirme Sayısı: 14)
[Resim: image.php?s=df028e861d094075be82dfc55ca1...1225646923][Resim: mousey.gif]
Cevapla
Çözüldü #15
(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.

Insanlarin birbirini Yanlis Alamalari Icin 9 Ihtimal Vardir.

''Dusundugunuz / Soylemek Istediginiz / Soyledigini Sandiginiz / Soylediginiz / Karsinizdakinin Duymak Istedigi / Duydugu / Anlamak Istedigi / Anladigini sandigi / Anladigi''
Cevapla
Çözüldü #16
(27/11/2008, 19:41)Hakan yazdı: Diğer sorumda;

Query de verileri excele verdiğimde 65 000 den fazla olan satırlar söz konusu olduğunda 65 000'e kadar olanı atmakta. Fakat ben Excel 2007 kullanıyorum, 65 000 üstü satırları nasıl Excele verdireceğim?

Şimdiden teşekkür ederim

iyi çalışmalar,

2. sorumu nasıl yapacagım bir fikriniz varmı?

Insanlarin birbirini Yanlis Alamalari Icin 9 Ihtimal Vardir.

''Dusundugunuz / Soylemek Istediginiz / Soyledigini Sandiginiz / Soylediginiz / Karsinizdakinin Duymak Istedigi / Duydugu / Anlamak Istedigi / Anladigini sandigi / Anladigi''
Cevapla
Çözüldü #17
(28/11/2008, 15:07)Hakan yazdı:
(27/11/2008, 19:41)Hakan yazdı: Diğer sorumda;

Query de verileri excele verdiğimde 65 000 den fazla olan satırlar söz konusu olduğunda 65 000'e kadar olanı atmakta. Fakat ben Excel 2007 kullanıyorum, 65 000 üstü satırları nasıl Excele verdireceğim?

Şimdiden teşekkür ederim

iyi çalışmalar,

2. sorumu nasıl yapacagım bir fikriniz varmı?

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
FX-Etopla
Liste Kutusu Oluşturma
Cevapla
Çözüldü #18
(28/11/2008, 15:24)nihatkr yazdı:
(28/11/2008, 15:07)Hakan yazdı:
(27/11/2008, 19:41)Hakan yazdı: Diğer sorumda;

Query de verileri excele verdiğimde 65 000 den fazla olan satırlar söz konusu olduğunda 65 000'e kadar olanı atmakta. Fakat ben Excel 2007 kullanıyorum, 65 000 üstü satırları nasıl Excele verdireceğim?

Şimdiden teşekkür ederim

iyi çalışmalar,

2. sorumu nasıl yapacagım bir fikriniz varmı?

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

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.

Insanlarin birbirini Yanlis Alamalari Icin 9 Ihtimal Vardir.

''Dusundugunuz / Soylemek Istediginiz / Soyledigini Sandiginiz / Soylediginiz / Karsinizdakinin Duymak Istedigi / Duydugu / Anlamak Istedigi / Anladigini sandigi / Anladigi''
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task