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


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

Kaydet butonu ile kayit yapilabilir. VBA ile proje acilamiyor.

(10-09-2019, 15:20)dsezgin demiş ki:

Visual Basic

Private Sub MSF_afterupdate()
Me.KUTUKNO = IIf(Me.MSF = True, DMax("KUTUK_NO", "Yaşlı") + 1, 0)
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)

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.

(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"

(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.


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

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ı.