[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
  Tabloya Değer Kümesinden Veri Seçerek Veri Girişi Saglanması sevincili 2 31 26-03-2024, 20:07
Son Mesaj: sevincili
  Açılır Kutu Değerine Göre Tablo2'ye Değer Yazsın Veya Satır Eklesin. ŞabanTR 11 285 24-12-2023, 14:38
Son Mesaj: dsezgin
  Formda Otomatik Sıra No Verme Nasil Olur? mart02 2 139 15-09-2023, 09:21
Son Mesaj: akd27
  [VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi programmer67 6 299 21-07-2023, 10:40
Son Mesaj: onur_can
  Sorgu Işlemi Sonunda Veri Yoksa Bulunduğu Hücreye 0 Olarak Otomatik Değer Verme ofbayoglu61 12 378 21-07-2023, 10:09
Son Mesaj: onur_can
  Kısayol atama işlemi nasıl yapılır? algoritma 24 14.819 21-06-2023, 09:14
Son Mesaj: ates2014
  Metin Kutusu Boş Sa Diğer Metin Kutusundan Değer Alması özgülapt 4 246 29-05-2023, 18:01
Son Mesaj: feraz
  [VBA] Yıl Ay Sayı Sıralama Kodu Hakkında Ahmet51 6 293 29-05-2023, 09:31
Son Mesaj: halily

Foruma Git:


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