[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
  [FORM] Ok Tuşlarıyla Veriyi Sıralama husem 2 39 4 saat önce
Son Mesaj: husem
  Veri Tabanı Değer Saydırma samet vayn 2 73 09-10-2019, 11:21
Son Mesaj: Berkant Öztürk
  [VBA] 1.Açılan Kutudan 2.Açılan Kutudaki (Değer Listesinden) İstenen Değeri Alabilmek Ahmet51 2 78 18-09-2019, 15:53
Son Mesaj: Ahmet51
  Yine yeniden Emlak sorunu M_Kemal_Askeri 2 71 14-09-2019, 00:46
Son Mesaj: M_Kemal_Askeri
  [FORM] Sharepoint Sitesi Tüm Tabloları Yeniden Bağla hatası tolgahanay8 17 1.187 09-08-2019, 11:14
Son Mesaj: tolgahanay8
  yıla göre otomatik sıra numarası verme M_Kemal_Askeri 15 306 06-08-2019, 19:24
Son Mesaj: dsezgin
  Liste kutusunda isteğe bağlı sıralama holyone 9 1.823 03-04-2019, 16:22
Son Mesaj: nekeba
  [VBA] Vba kodlarda satır verme hturkavci03 3 205 05-03-2019, 10:57
Son Mesaj: dsezgin

Foruma Git:


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