A.S.C Filtre, Grafik ve Raporlama Eklentisi

Formda Sonraki Kayıta Ve Ilk Kayıda Gitmek
#1
Merhabalar,
Bir Form tasarladım. Bir buton koyup,
- Sonraki kayıda gidecek ve 5 saniye bekleyecek, sonraki kayda gidecek. Bu işlem son kayıda gelene dek sürecek.
- Eğer son kayıda gelmişse 5 saniye bekleyip ilk kayıda gidecek.
kesene kadar bu döngü sürecek.

Desteklerinizi beklerim.



  Alıntı
Bu mesajı beğenenler: feraz
#2
sn mfgxxx,
aşağıdaki kod ile istediğiniz şekilde çalışır.
Visual Basic
  1. On Error GoTo Hata
  2.  
  3. Dim i As Long
  4.  
  5. For i = 1 To 500000000: Next i
  6. DoCmd.GoToRecord acDataForm, "F_Form", acNext
  7. Exit Sub
  8.  
  9. Hata:
  10. If Err.Number = 2105 Then
  11. For i = 1 To 500000000: Next i
  12. DoCmd.GoToRecord acDataForm, "F_Form", acFirst
  13. End If





  Alıntı
Bu mesajı beğenenler:
#3
Kıymetli Onur Can,
Cevabınız için çok teşekkür ederim, göndermiş olduğunuz çözümü uyguladım. 
ilk kayıttan sonra 5 saniye bekleyip 2. kayıda gitti. Fakat sonrasında 3 kayıda gitmedi. Acaba bir çözümü var mıdır?
Yani;
1. kayıt- 5 saniye- 2.kayıt- 5 saniye- 3.kayıt- 5saniye........ son kayıt - 5 saniye- ilk kayıt- vs.


Tekrar teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#4
Normalde gitmesi gerekiyor, fkat sistem olaylarından dolayı gecikmeler olabilir. onun önüne geçebilmek için şöyle değiştirebiliriz.
Visual Basic
  1. On Error GoTo Hata
  2.  
  3. Dim i As Long
  4.  
  5. For i = 1 To 500000000: Next i
  6.    If i Mod 100000 = 0 Then
  7.        DoEvents
  8.    End If
  9. DoCmd.GoToRecord acDataForm, "F_Form", acNext
  10. Exit Sub
  11.  
  12. Hata:
  13. If Err.Number = 2105 Then
  14. For i = 1 To 500000000: Next i
  15.    If i Mod 100000 = 0 Then
  16.        DoEvents
  17.    End If
  18. DoCmd.GoToRecord acDataForm, "F_Form", acFirst
  19. End If





  Alıntı
Bu mesajı beğenenler:
#5
(19-03-2020, 21:54)mfgxxx demiş ki: Merhabalar,
Bir Form tasarladım. Bir buton koyup,
- Sonraki kayıda gidecek ve 5 saniye bekleyecek, sonraki kayda gidecek. Bu işlem son kayıda gelene dek sürecek.
- Eğer son kayıda gelmişse 5 saniye bekleyip ilk kayıda gidecek.
kesene kadar bu döngü sürecek.

Desteklerinizi beklerim.

Ekteki dosyayı inceleyiniz. Bu da ayrı bir yöntem olabilir size.


Eklenti Dosyaları
.rar   Test_sürekli.rar (Boyut: 60,49 KB / İndirilme: 7)



  Alıntı
Bu mesajı beğenenler:
#6
öncelikle süre ölçer değeri olarak 5000 yazıp sonrada süre dolduğunda /form_timer olayına aşağıdaki kodu ekleyin
Visual Basic
  1. If Me.Recordset.AbsolutePosition = Me.Recordset.RecordCount - 1 Then DoCmd.GoToRecord , , acFirst Else DoCmd.GoToRecord , , acNext


dilerim işinize yarar

sayın @alperalper haddim olmayarak eğer next döngüsünde Next ids satırından önce
Visual Basic
  1. If ids = id_bitis Then ids = id_basla - 1


kodu eklenirse ilk kayda gidilip döngünün devam etmesi sağlanabilir


Eklenti Dosyaları
.rar   SureOlcel_hy.rar (Boyut: 24,21 KB / İndirilme: 1)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Sağdan Belirli Bir Alandan Sonraki Değerleri Almak husem 2 155 21-09-2019, 00:06
Son Mesaj: husem
  [VBA] Sonraki Kayıt evren89 3 641 05-11-2017, 21:43
Son Mesaj: dsezgin
access-sql-18 [FORM] Form üzerinde sonraki kayıt hatası serkanoz 12 1.612 18-09-2017, 09:32
Son Mesaj: serkanoz
  [FORM] güncel durumu görme ve bir sonraki işlem kaydı husem 4 1.614 27-11-2016, 12:36
Son Mesaj: husem
  Taksitlendermede virgülden sonraki basamak sayısı sonerdursun 18 9.246 06-09-2016, 16:14
Son Mesaj: goldennapoleon
  [FORM] Access Form da önceki çıkış sayısının bir sonraki giriş sayısına otomatik gelmesi aydlk 2 1.524 23-03-2016, 22:44
Son Mesaj: aydlk
access-sql-9 [MAKRO] Altformdan Anaformdaki kayıda gitmek denizpulsar77 2 1.099 27-08-2015, 17:44
Son Mesaj: denizpulsar77
  [FORM] Kayıta Ait Butonu Pasif Yap KYSKYS 3 2.678 17-08-2015, 12:54
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi