[FONKSiYON] Kayıt Sayısı Atama Yeniden Değer verme ve Sıralama
#1
Ekteki vt de yaşlılarımızın kayıtları tutulmaktadır.Örnekte 9 kayıt var.Bu kayıtlardan 1-5 kadar olanı kabulü yapılmış yaşlı.6-9 kadar olanıda Misafir yaşlı Misafir yaşlıların Kütük No alanına kayıt yapılırken 0 değeri atanmaktadır. Daha sonra da kabülü yapılıncada SNO değerinin değeri ile eşitlenmektedir. Örneğin 9. kayıttaki kişinin kabulü yapılınca bu kaydı kabulü yapılı olan 5. kaydın arkasına taşıyan ve SNO- 6, KÜTÜK NO- 6 değeri verdirip takip eden misafir kayıtlarınada 7-8-9 olarak yeniden değer verip sıralayan bir koda ihtiyaç duyulmaktadır. Access ile bayağı haşır neşir birisi olmama rağmen bu konu beni aşmaktadır.Saygı değer Üstadlarımdan bu konuda yardım bekliyorum.

Teşekkür ederim


.rar   YAŞLI-ENGELLİ UYGULAMA.rar (Boyut: 455,87 KB / İndirilme: 5)



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1. Private Sub MSF_afterupdate()
  2. Me.KUTUKNO = IIf(Me.MSF = True, DMax("KUTUK_NO", "Yaşlı") + 1, 0)
  3. End Sub



Kaydet butonu ile kayit yapilabilir. VBA ile proje acilamiyor.



  Alıntı
Bu mesajı beğenenler:
#3
(10-09-2019, 15:20)dsezgin demiş ki:
Visual Basic
  1. Private Sub MSF_afterupdate()
  2. Me.KUTUKNO = IIf(Me.MSF = True, DMax("KUTUK_NO", "Yaşlı") + 1, 0)
  3. End Sub



Kaydet butonu ile kayit yapilabilir. VBA ile proje acilamiyor.

Sezgin Hocam Teşekkür ederim.
Verdiğin kodu bir butonun Tıklandığı olayına yazdım, KUTUKNO  alanını dediğiniz gibi son kayda alıyor. Fakat ben Hem kütükno alanını hemde SNO alanını aynı değere eiştlemesini diğer Misafir kayıtlarınıda tekrar yeni duruma göre SNO alanı sayılarınıda güncellemesini istemiştim.

Projede bir sorun yok açılıyor (Office 2013)



  Alıntı
Bu mesajı beğenenler:
#4
neden hem "kütükno" hem de "Sno" var  ikisi de aynı ise ikisinden biri silinebilir?
misafirse açılır kutuya "odano" tablosunu bağlamama rağmen odano seçilemiyor odano seçilmeden de kayıt yapılamıyor.



  Alıntı
Bu mesajı beğenenler:
#5
(11-09-2019, 12:10)halily demiş ki: neden hem "kütükno" hem de "Sno" var  ikisi de aynı ise ikisinden biri silinebilir?
misafirse açılır kutuya "odano" tablosunu bağlamama rağmen odano seçilemiyor odano seçilmeden de kayıt yapılamıyor.

Üstadım  SNO yu İd gibi düşünün
BLOK alanına(MİSAFİR) tekrar tıklamanız gerekiyor "ili seçilince ilçeyi getiren kod gibi düşünün"



  Alıntı
Bu mesajı beğenenler:
#6
(11-09-2019, 15:48)Ahmet51 demiş ki:
(11-09-2019, 12:10)halily demiş ki: neden hem "kütükno" hem de "Sno" var  ikisi de aynı ise ikisinden biri silinebilir?
misafirse açılır kutuya "odano" tablosunu bağlamama rağmen odano seçilemiyor odano seçilmeden de kayıt yapılamıyor.

Üstadım  SNO yu İd gibi düşünün
BLOK alanına(MİSAFİR) tekrar tıklamanız gerekiyor "ili seçilince ilçeyi getiren kod gibi düşünün"

Kendimce birşeyler yapmaya çalıştım. Pekte içime sinmedi(Buton kullanmadan otomatik olmasını istiyordum."Misafir Kesin Kabul") ama siz üstadların fikrine sunuyorum. Vt ekdedir.


.rar   YAŞLI-ENGELLİ UYGULAMA.rar (Boyut: 499,33 KB / İndirilme: 6)

Birde "ÇIKIŞ" butonuna tıklandığı olayında kayıtlardan herhangi biri boşsa yada tamamı boşsa çıkan mesajda evete basılınca form kapanıyor. Oysa Hayır' a basılınca Form kapanmalı Evet'e basınca form boşsa kapanmamalı.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] 1.Açılan Kutudan 2.Açılan Kutudaki (Değer Listesinden) İstenen Değeri Alabilmek Ahmet51 2 40 18-09-2019, 15:53
Son Mesaj: Ahmet51
  Yine yeniden Emlak sorunu M_Kemal_Askeri 2 51 14-09-2019, 00:46
Son Mesaj: M_Kemal_Askeri
  [FORM] Sharepoint Sitesi Tüm Tabloları Yeniden Bağla hatası tolgahanay8 17 1.147 09-08-2019, 11:14
Son Mesaj: tolgahanay8
  yıla göre otomatik sıra numarası verme M_Kemal_Askeri 15 281 06-08-2019, 19:24
Son Mesaj: dsezgin
  Liste kutusunda isteğe bağlı sıralama holyone 9 1.794 03-04-2019, 16:22
Son Mesaj: nekeba
  [VBA] Vba kodlarda satır verme hturkavci03 3 183 05-03-2019, 10:57
Son Mesaj: dsezgin
access-sql-18 [RAPOR] Raporda metin kutusuna gelen değer sorunu ernac5858 3 152 28-02-2019, 21:03
Son Mesaj: userx53
  [SORGU] Veri Siralama SBNS 2 248 13-12-2018, 09:51
Son Mesaj: SBNS

Foruma Git:


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