Veri Girilince Tarih At

1 2
18/10/2019, 21:47

Bora34

Arkadaşlar Kolay Gelsin

Benim Sizlerden Bir Ricam Olacak
Access Veritabanında Yapmak İstediğim

Market Adlı Tabloda Market Çalışanlarının İş Dağılımı var ve buda günlük yerleri değişmekte bazende aynı çalıştıkları bölümde bir iki gün
devam etmekte. Diğer calışanları ise yer değişikliği olduğu zaman hangi reyonda görevlendirildiyse ismin karşılığına hangi reyonda
görevlendirildiyse ilgili sütuna herhangi bir rakam yazıyoruz

Örneğin
(frm_Market) üzerinden 8. Sıradaki Aynur Can İsimli Personelin Kasa 'da Görevlendirildiğinde Kasa Sütununa 5 yazdığımda (Market) adlı tabloda Tarih Kısmına O Günün Tarihini Atmasını İstiyorum Otomatik
(frm_Market) üzerinden 3. Sıradaki Fırat Camcı İsimli Personelin Kasap Reyonunda 'da Görevlendirildiğinde Kasap Sütununa 4 yazdığımda (Market) adlı tabloda Tarih Kısmına O Günün Tarihini Atmasını İstiyorum Otomatik
(frm_Market) üzerinden 6. Sıradaki Ahmet Halıcı İsimli Personelin Şarküteri 'de Görevlendirildiğinde Şarküteri Sütununa 1 yazdığımda (Market) adlı tabloda Tarih Kısmına O Günün Tarihini Atmasını İstiyorum Otomatik

Burda benim sizlerden istediğim Gröev Dağılım Reyonlarına Rakam Yazıldığında Tarih Kısmına Otomatik İşlem Yapıldığı Tarih Atması. Form Üzerinde Tarih Gözükmeyecek
Arka Planda Tarih Atacak

İlginiz İçin Teşekkürler
18/10/2019, 21:54

Bora34

Arkadaşlar Vinrar Yüklenmemiş Sanırım Örenek Yükledim Teşekkürler
18/10/2019, 22:41

berduş

metin kutularının çıkıldığında olayına aşağıdaki kodu yazarak dener misiniz?
Dim x As Long
x = Nz(Me.Manav, 0) + Nz(Me.Şarküteri, 0) + Nz(Me.Kuruyemiş) + Nz(Me.Kasa, 0) + Nz(Me.Unlu_Mamüller, 0) + Nz(Me.Kasap, 0)
If IsNumeric(x) And x <> 0 Then Me.Tarih = Date
18/10/2019, 23:09

Bora34

Sayın berduş hocam oldu Teşekkürler

Yalnız Şöyle Bir sıkıntı oluyor
Bu Göndermiş Olduğunuz Kodu


Sadece Metin Kutusu Kasa Olan Olay Çıkıldığında Bölümüne Kodu Şu Şekil Yazdığımda

Private Sub Kasa_Exit(Cancel As Integer)

Dim x As Long

x = Nz(Me.Kasa, 0)

If IsNumeric(x) And x <> 0 Then Me.Tarih = Date


End Sub

Kasa sütununa rakam girdiğimde yeni satıra veya bir sonraki satıra geçmiyor 
Diğer Manav, Şarküteri, Kuruyemiş, Kasap, Unlu_Mamüller Sütunlarını Hiç Görmesini İstemiyorum
Sadece Kasa Sütununda Tarih Atmasını İstiyorum
18/10/2019, 23:17

Bora34

Sayın Berduş Hocam 

İlk Konuyu Açtığımda Tüm Sütunlarda Olmasını İstemiştim Aslında Fakat Ama 
Sadece Kasa sütununda işlem yapınca tarih sütunununa tarih atsa yeterli olacak benm için teşekkürler
18/10/2019, 23:22

berduş

açıkçası kafam karıştı ilk mesajınızda
(18/10/2019, 21:47)Bora34 yazdı: (frm_Market) üzerinden 8. Sıradaki Aynur Can İsimli Personelin Kasa 'da Görevlendirildiğinde Kasa Sütununa 5 yazdığımda (Market) adlı tabloda Tarih Kısmına O Günün Tarihini Atmasını İstiyorum Otomatik
(frm_Market) üzerinden 3. Sıradaki Fırat Camcı İsimli Personelin Kasap Reyonunda 'da Görevlendirildiğinde Kasap Sütununa 4 yazdığımda (Market) adlı tabloda Tarih Kısmına O Günün Tarihini Atmasını İstiyorum Otomatik
(frm_Market) üzerinden 6. Sıradaki Ahmet Halıcı İsimli Personelin Şarküteri 'de Görevlendirildiğinde Şarküteri Sütununa 1 yazdığımda (Market) adlı tabloda Tarih Kısmına O Günün Tarihini Atmasını İstiyorum Otomatik
demişsiniz
yani hangi bölüme rakam girsem tarihi atmasını istemişsiniz şimdiyse sadece kasa dediniz, yanlış mı anladım?
süreci biraz daha ayrıntılı anlatır mısınız?
Bu arada anladığım kadarıyla her hangi bir personele belli bir tarihe ait bir görev tek veriliyor galiba
bu durum da görevini açılır kutudan seçse tabloda boş alanlara gerek kalmaz. Bu mantığa uygun örneği ekliyorum[attachment=30721]
1 2