Bağlı excel tablosudan kayıt listesini gruplandırma
Tarih
03/12/2013 14:53
Konu Sahibi
QATLET
Yorumlar
3
Okunma
1662
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



QATLET
sevelim & sevilelim
Kullanici Avatari
Aktif Üye
Z....
102
02/02/2012
20
Eskişehir
Ofis 97
06/10/2016,11:20
Çözüldü 
Merhabalar;

Bağlı Excel tablosundan yararlanarak bir form kullanıyorum. Excel tablosundaki satır sayısı belirsizdir. 10 satırda 1000 satırda olabilir.

Bu form ilk açıldığında bağlı Excel tablosundaki ilk 20 kaydın görünmesini daha sonra 1 dakika bekleyip sonraki 20 kaydın görünmesini ve bu sıra ile tüm kayıtların 20 şerli gruplar halinde 1 dakikalık beklemelerle listelenmesini istiyorum. bu işlem için sonraki sayfa gibi bir buton kullanmak istemiyorum.


yardımlarınız için teşekkür ederim.

Örnek ilişiktedir.


Ek Dosyalar
.rar   Yeni klasör.rar (Dosya Boyutu: 577,9 KB / İndirme Sayısı: 11)
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 
Ben bir örnek hazırladım. Öncelikle 20lim adında bir ekleme sorgusu ile 20li tablosuna Excel sayfasından verileri çekiyoruz.
Sonra en başa dönerken yeniden tablodaki verileri güncelliyoruz.
Sonra 20 şerli olarak gösteriliyor.
Kolay Gelsin.


Ek Dosyalar
.zip   ado sayfalara böl.zip (Dosya Boyutu: 47,65 KB / İndirme Sayısı: 17)
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla


QATLET
sevelim & sevilelim
Kullanici Avatari
Aktif Üye
Z....
102
02/02/2012
20
Eskişehir
Ofis 97
06/10/2016,11:20
Çözüldü 
Sayın hocam;

Elinize, emeğinize sağlık harika olmuş.

Ancak bu döngü sonsuza kadar devam ediyor.

Bir tur döndükten sonra bitmesi için ne yapmalıyım.

Çok teşekkürler.
Cevapla


QATLET
sevelim & sevilelim
Kullanici Avatari
Aktif Üye
Z....
102
02/02/2012
20
Eskişehir
Ofis 97
06/10/2016,11:20
Çözüldü 
Forum form_Timer bölümünü aşağıdaki eklemeyi yapınca sorun halledildi. Çok ama çok teşekkürler.


Private Sub Form_Timer()
'On Error Resume Next

If basla = 1 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from 20li"
DoCmd.OpenQuery "20lim"
End If

Dim kseti As ADODB.Recordset
Dim Sql As String
sql = "select * from 20li where sno between " & basla & " And " & bitir
Set kseti = New ADODB.Recordset
kseti.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Do While Not kseti.EOF


kseti.MoveNext
Loop

DoEvents
If basla <> 1 Then
Set Me.Recordset = kseti
Else
DoCmd.Close
End If


kseti.Close

If bitir > DCount("sno", "20li") Then
basla = 1
bitir = 20

Else
basla = basla + 20
bitir = bitir + 20
End If

End Sub
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Mükerrer Kayıt Hk. Serkan Çevik 2 70 01/12/2016, 22:37 Serkan Çevik
  Aynı Kişi adı ile Yeni Kayıt eklemek Mesut Kaytan 6 219 29/11/2016, 13:49 Mesut Kaytan
  Güncelleştirme Sorgusu Çalıştırınca Kayıt Kilit Hatası Hakkında shalala 2 51 23/11/2016, 00:39 shalala
  Seçime Bağlı Form Açma-Açılan Formda Seçilenleri Raporda Gösterme Nasıl Yapılır? mehami 8 199 14/11/2016, 18:43 mehami
Çözüldü seçime bağlı metin kutusunu tabloda aktif veya pasif yapma EROLAKSAKAL 13 4.005 12/11/2016, 11:48 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya