Skip to main content

AccessTr.neT


Veri Girilince Tarih At

Veri Girilince Tarih At

Çözüldü #1
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
Cevapla
#2
Arkadaşlar Vinrar Yüklenmemiş Sanırım Örenek Yükledim Teşekkürler
.rar Veri Girilince Tarih At.rar (Dosya Boyutu: 28,75 KB | İndirme Sayısı: 2)
Cevapla
#3
metin kutularının çıkıldığında olayına aşağıdaki kodu yazarak dener misiniz?
Visual Basic Code
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
Cevapla
#4
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
Cevapla
#5
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
Cevapla
#6
açıkçası kafam karıştı ilk mesajınızda
(18/10/2019 21:47)Bora34 Adlı Kullanıcıdan Alıntı: (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
.rar Veri Girilince Tarih At_hy.rar (Dosya Boyutu: 26,08 KB | İndirme Sayısı: 4)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da