+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Girilince Tarih At (/konu-veri-girilince-tarih-at.html)
Sayfalar:
1
2
Veri Girilince Tarih At - Bora34 - 18/10/2019
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
Cvp: Veri Girilince Tarih At - Bora34 - 18/10/2019
Arkadaşlar Vinrar Yüklenmemiş Sanırım Örenek Yükledim Teşekkürler
Cvp: Veri Girilince Tarih At - berduş - 18/10/2019
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 = DateCvp: Veri Girilince Tarih At - Bora34 - 18/10/2019
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
Cvp: Veri Girilince Tarih At - Bora34 - 18/10/2019
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
Cvp: Veri Girilince Tarih At - berduş - 18/10/2019
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 Otomatikdemişsiniz
(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
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
Veri Girilince Tarih At_hy.rar
(Dosya Boyutu: 26,08 KB | İndirme Sayısı: 4)