Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Iki Değere Göre Kayıt Yapma

[VBA] Iki Değere Göre Kayıt Yapma
ekremer1969
Önemli Üye 200-300

*
Kayıt Tarihi: 17.12.2014
Toplam 49 konu açtı.
Toplam 219 yorum yaptı.
Toplam 52 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#1
12-11-2020, 18:07
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: 42)



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.593 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#2
12-11-2020, 18:44
tablodan servis+tarih Alanlarını seçip 1. anahtar olarak ayarlamayı dener misiniz?



  Bul
  Alıntı
Bu mesajı beğenenler:
ekremer1969
Önemli Üye 200-300

*
Kayıt Tarihi: 17.12.2014
Toplam 49 konu açtı.
Toplam 219 yorum yaptı.
Toplam 52 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#3
12-11-2020, 18:49 (En son düzenleme: 12-11-2020, 18:56 ekremer1969.)
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.



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.593 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#4
12-11-2020, 19:02
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





  Bul
  Alıntı
Bu mesajı beğenenler:
ekremer1969
Önemli Üye 200-300

*
Kayıt Tarihi: 17.12.2014
Toplam 49 konu açtı.
Toplam 219 yorum yaptı.
Toplam 52 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#5
12-11-2020, 19:10 (En son düzenleme: 12-11-2020, 19:40 ekremer1969.)
Hocam çok teşekkürler. İlk yazdığını yanlış uygulamışım işe yaradı sağolasın.



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.593 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#6
12-11-2020, 19:11
rica ederim
iyi çalışmalar)



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Inputbox Kutusuna Girilen Değere Pasword Maske Uygulama orderyazbim 2 141 22-01-2024, 22:12
Son Mesaj: orderyazbim
  [FORM] Metin Kutusundaki Değere Göre Altforma Kayıt Eklensin Yada Eklenmesin ŞabanTR 4 166 17-12-2023, 17:40
Son Mesaj: ŞabanTR
  [SORGU] Iki Tablo Arasında Sorgu Ile Güncelleme Yapma yahyamacit 2 135 10-11-2023, 13:22
Son Mesaj: yahyamacit
  [VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi programmer67 6 305 21-07-2023, 10:40
Son Mesaj: onur_can
  Altformda Hücre Ile Değil Satır Ile Işlem Yapma Hakkında. OGUZTURKYILMAZ 1 158 22-04-2023, 23:48
Son Mesaj: OGUZTURKYILMAZ
  [FORM] Forum Kapandığında Otomatik Tablo Yapma Sorgusunun çalışması Ahmet51 5 211 07-11-2022, 18:58
Son Mesaj: alperalper
access-sql-16 [VBA] Birden çok Değere Izin Verilen Metin Türündeki Veriyi çekmek R.K. 13 582 05-06-2022, 23:04
Son Mesaj: R.K.
  [TABLO] Döviz Cinsine Göre Tablo Yapma blumanx 9 434 08-03-2022, 21:56
Son Mesaj: blumanx

Foruma Git:


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