A.S.C Filtre, Grafik ve Raporlama Eklentisi

[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: 17)



  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: 16)

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
  Formdaki Bir Kontrole Değer Atanamaması M_Kemal_Askeri 3 66 02-07-2020, 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 146 17-06-2020, 16:04
Son Mesaj: programmer67
  [VBA] Değişken Atama Yöntemi Gencerx 5 74 25-05-2020, 16:59
Son Mesaj: dsezgin
  [MAKRO] Accesste Kurala Göre Sıralama selimglr 9 211 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 103 12-03-2020, 23:53
Son Mesaj: neco_can
  Sorguda Form Liste kutusundan değer almak Enigmatic 9 7.639 14-02-2020, 15:46
Son Mesaj: mkmugla
  [VBA] Sql Sorguya Sıralama Kodunu Ekleme toprak2349 1 80 14-02-2020, 12:12
Son Mesaj: onur_can

Foruma Git:


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