A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FONKSiYON] Kayıt Sayısı Atama Yeniden Değer verme ve Sıralama
#37
Ahmet bey maalesef misafir sıralama kodlarında sorgunun boş olabilme ihtimalini -misafir bulunmama durumunu- göz ardı etmişim o kodların düzeltilmesi gerekiyor
Visual Basic
  1. 'Hy misafirlerin sıralamasını düzenle________________________
  2. '...…………………..
  3. ' Öncesi aynı
  4.        With RsGuncelle '<--Aynı
  5.            .Open SnoGuncelle, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '<--Aynı
  6.        If .RecordCount = 0 Then GoTo 10 '<--Eklenen: misafir var mı yok mu denetleme kodu
  7.            .MoveLast '<--Aynı
  8.            .MoveFirst '<--Aynı
  9.                          
  10. '.
  11. '.
  12. '. öncesi aynı
  13. 10 '<--- Eklenen 'Sonrası aynı
  14.            .Close: Set RsGuncelle = Nothing
  15.        End With
  16. 'Hy misafirlerin sıralamasını düzenle_________Bitti





  Alıntı
Bu mesajı beğenenler:
#38
(19-09-2019, 12:42)halily demiş ki: Ahmet bey maalesef misafir sıralama kodlarında sorgunun boş olabilme ihtimalini -misafir bulunmama durumunu- göz ardı etmişim o kodların düzeltilmesi gerekiyor
Visual Basic
  1. 'Hy misafirlerin sıralamasını düzenle________________________
  2. '...…………………..
  3. ' Öncesi aynı
  4.        With RsGuncelle '<--Aynı
  5.            .Open SnoGuncelle, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '<--Aynı
  6.        If .RecordCount = 0 Then GoTo 10 '<--Eklenen: misafir var mı yok mu denetleme kodu
  7.            .MoveLast '<--Aynı
  8.            .MoveFirst '<--Aynı
  9.                          
  10. '.
  11. '.
  12. '. öncesi aynı
  13. 10 '<--- Eklenen  'Sonrası aynı
  14.            .Close: Set RsGuncelle = Nothing
  15.        End With
  16. 'Hy misafirlerin sıralamasını düzenle_________Bitti


Teşekkür ederim üstadım ilgili yerlere kodu kaydettim



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Formdaki Bir Kontrole Değer Atanamaması M_Kemal_Askeri 3 59 Dün, 03:36
Son Mesaj: M_Kemal_Askeri
access-sql-4 [SORGU] Hücre Içinde Virgül Ile Ayrılan Verileri Alt Alta Sıralama alperalper 4 145 17-06-2020, 16:04
Son Mesaj: programmer67
  [VBA] Değişken Atama Yöntemi Gencerx 5 73 25-05-2020, 16:59
Son Mesaj: dsezgin
  [MAKRO] Accesste Kurala Göre Sıralama selimglr 9 208 21-05-2020, 20:11
Son Mesaj: selimglr
  Klasör Içindeki Evraklara Numara Verme, Büro Içi Kullanım Yrdm. comand0 3 93 15-05-2020, 03:57
Son Mesaj: userx53
  Ifade Oluşturucu Alanları Alt Alta Sıralama neco_can 1 102 12-03-2020, 23:53
Son Mesaj: neco_can
  Sorguda Form Liste kutusundan değer almak Enigmatic 9 7.638 14-02-2020, 15:46
Son Mesaj: mkmugla
  [VBA] Sql Sorguya Sıralama Kodunu Ekleme toprak2349 1 78 14-02-2020, 12:12
Son Mesaj: onur_can

Foruma Git:


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