A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Iki Değere Göre Kayıt Yapma
#1
Selam;

Visual Basic
  1. Private Sub Komut0_Click()
  2.  
  3. If DLookup("servis", "[Günlük Çalışma Programı]", "[Tarih]=clng(int(now()))") = "Ölçü Kontrol" Then
  4.  
  5. Exit Sub
  6. Else
  7. Dim SqlEkle As String
  8. SqlEkle = "INSERT INTO [Günlük Çalışma Programı] ( Tarih,Servis, Personel ) " & _
  9.          "SELECT Clng(int(now())),Birim, Personel " & _
  10.          "FROM [Tanımlamalar-Personel] where [Birim]='" & "Ölçü Kontrol" & "'"
  11. CurrentDb.Execute SqlEkle
  12.      
  13. Refresh
  14. End If
  15. End Sub



Selam

Yukarıda kodunu verdiğim şöyle bir problemim var. Form1 deki butona her bastığımda günlük Çalışma Programı tablosuna veri kaydediyorum. Ancak tekrarlı veri olmaması için aynı tarihli servis isminin olmamasını istiyorum. Sadece tarih veya sadece servis olunca kodu yazabiliyorum ancak hem tarih hem servis ismi mevcut ise kayıt yapmasını engelleyemiyorum. Ekte verdiğim programda Form1 deki butona bastığımda Günlük Çalışma Programında verilerini çoğaltmaması lazım zira çoğaltacağı veri zaten tabloda var. Yardım edecek arkadaşlara şimdiden teşekkürler.


Eklenti Dosyaları
.rar   Örnek.rar (Boyut: 24,35 KB / İndirilme: 8)



  Alıntı
Bu mesajı beğenenler:
#2
tablodan servis+tarih Alanlarını seçip 1. anahtar olarak ayarlamayı dener misiniz?



  Alıntı
Bu mesajı beğenenler:
#3
Hocam butona ilk kez tıkladığımda aynı tarih aynı servis isimli 5 kayıt olabilir, ikinci defa tıklandığında çoğaltmasın istiyorum. Bu tabloya Personel ismine göre iş dağıtacağım. Ancak butona yanlışlıkla tekrar basılırsa diye ekleme işlemine izin vermesin istiyorum. Bir bakıma buton her gün bir kez kullanılsın sonra işlemesin istiyorum. Tekrarlı kayıt olmasın diye.



  Alıntı
Bu mesajı beğenenler:
#4
IF kontrol satırını aşağıdaki gibi düzenleyerek dener misiniz?
önceki mesajımdaki değişiklik de işe yarardı aslında.
Visual Basic
  1. If DCount("*", "[Günlük Çalışma Programı]", "[Tarih]=clng(date()) and [servis] = 'Ölçü Kontrol'") > 0 Then





  Alıntı
Bu mesajı beğenenler:
#5
Hocam çok teşekkürler. İlk yazdığını yanlış uygulamışım işe yaradı sağolasın.



  Alıntı
Bu mesajı beğenenler:
#6
rica ederim
iyi çalışmalar)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Metin Içerisindeki Kelimeler Ile Arama Yapma ekremer1969 2 83 25-11-2020, 07:31
Son Mesaj: ekremer1969
  [FORM] Kayıt Sayısına Göre Alt Form Yüksekliğinin Değişmesi ÜmitSamlı 7 209 06-11-2020, 18:11
Son Mesaj: halily
  [VBA] Metin Kutusu Içinde Hesaplama Yapma hedefkaya 4 178 26-09-2020, 09:18
Son Mesaj: halily
  [FORM] Girilen Değere Göre Otomatik Hesaplama averdi 5 329 18-05-2020, 12:26
Son Mesaj: averdi
  [VBA] Kurum Sistemlerine Giriş Yetkilerini Gösterme/yeni Yetki Başvurusu Yapma Bastürk E. 1 173 08-05-2020, 15:28
Son Mesaj: celalll
access-sql-5 Her Ayın 15'inden 15'ine Işlem Yapma alperalper 1 197 18-02-2020, 16:03
Son Mesaj: dsezgin
  [VBA] Liste Den Kayıt Seçme Ve Yazdırma Yada Listeden Kayıt Seçim Buton Ile Yazdırma Ahmet51 6 389 10-02-2020, 16:24
Son Mesaj: Ahmet51
access-sql-18 [VBA] Kayıt Butonuna Tıklamadan Kayıt Etme Sorunu mkmugla 2 276 20-01-2020, 08:27
Son Mesaj: mkmugla

Foruma Git:


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