Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Bir kart kullanımda iken tekrar verilmesin

[FORM] Bir kart kullanımda iken tekrar verilmesin
jon206
Access Takımı

*
Kayıt Tarihi: 19.09.2008
Toplam 18 konu açtı.
Toplam 1.016 yorum yaptı.
Toplam 77 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#7
30-09-2014, 15:37
sayın turgutaydin1;
sizden programın tamamını isteyen kim Wink
yeni vt oluştur dış veri al sekmesinden ilgili tablo(bir kaç sahte veri) ve formu ekleyebilirsin.. veya yeni bir form oluşturup açılan kutunu filan ekleyebilirdin..
böyle resime bakıp sanki okus pokus gibi senin düşündüğünü nasıl anlayacağım..


imza; jon206
www.access-sql.com



  Bul
  Alıntı
Bu mesajı beğenenler:
turgutaydin1
Yeni Üye 15-40

*
Kayıt Tarihi: 04.03.2011
Toplam 7 konu açtı.
Toplam 29 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 0
#8
01-10-2014, 15:33
İlginiz için teşekkürler, Formun fazlalıklarını ve kayıtları silerek boyutunu küçülttüm. Form ektedir.


Eklenti Dosyaları
.rar   Giriş İzni Takip Sistemi - Demo.rar (Boyut: 165,66 KB / İndirilme: 72)



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

*
Kayıt Tarihi: 19.09.2008
Toplam 18 konu açtı.
Toplam 1.016 yorum yaptı.
Toplam 77 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#9
01-10-2014, 17:38
sn:turgut bey;
kart no ve kart veriliş tarihi tarihi girince uyarı verecektir..
kodu formun vba editörüne kopyalayın
Visual Basic
  1. Private Sub Kart_Veriliş_Tarihi_AfterUpdate()
  2. Dim sonuc, id
  3. Dim trh
  4. trh = Me.Kart_Veriliş_Tarihi
  5. trh = Format(trh, "dd\/mm\/yyyy")
  6. id = Me.Ziyaretçi_Kart_Nosu
  7.  
  8.      sonuc = Nz(DCount("*", "[ana tablo]", "[Ziyaretçi Kart Nosu]=" & id & " and [İzin Başlangıç Tarihi]<=#" & trh & "# and [İzin Bitiş Tarihi]>=#" & trh & "#"), 0)
  9.  
  10.     If sonuc > 0 Then
  11.     MsgBox DLookup("'adi Soyadi: ' & [adı] & ' ' & [soyadı] & ' Evrak Nosu: ' & [evrak nosu]", "[ana tablo]", "[Ziyaretçi Kart Nosu]=" & id & " and [İzin Başlangıç Tarihi]<=#" & trh & "# and [İzin Bitiş Tarihi]>=#" & trh & "#")
  12.     Me.Kart_Veriliş_Tarihi = ""
  13.     Me.Ziyaretçi_Kart_Nosu = ""
  14.     Me.Ziyaretçi_Kart_Nosu.SetFocus
  15.     End If
  16. End Sub





Eklenti Dosyaları
.rar   Giriş İzni Takip Sistemi - Demo.rar (Boyut: 172,25 KB / İndirilme: 84)
imza; jon206
www.access-sql.com



  Bul
  Alıntı
Bu mesajı beğenenler:
turgutaydin1
Yeni Üye 15-40

*
Kayıt Tarihi: 04.03.2011
Toplam 7 konu açtı.
Toplam 29 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 0
#10
02-10-2014, 10:22
jon26 ilgi ve alakan için çok teşekkür ederim. Ancak denediğim kadarıyla istediğim olmamış gibi gözüküyor.
İstediğim tam olarak şuydu;
A kişisinin 23.09.2014 - 07.10.2014 tarihleri arasında izni var ve o kişiye 10 nolu kartı verdik.
B kişisininde 25.09.2014 - 29.09.2014 tarihleri (veya aynı tarih) arasında izni var. B kişisine 10 nolu kart vermek istediğimizde o kart kullanımda diye işleme izin vermesin veya uyarı versin.
Zahmet veriyorum kusuruma bakmayın.



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

*
Kayıt Tarihi: 27.03.2010
Toplam 44 konu açtı.
Toplam 326 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2007 TR,
Beğeniler: 0 / 0
#11
02-10-2014, 14:31 (En son düzenleme: 02-10-2014, 14:39 88888888.)
sayın turgutaydin1 siz neden iki tarih arasını sorgulatmak istiyorsunuz anlayamadım size eklenecek olan kart nonun son tarihide yetecektir



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

*
Kayıt Tarihi: 19.09.2008
Toplam 18 konu açtı.
Toplam 1.016 yorum yaptı.
Toplam 77 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#12
02-10-2014, 15:35
sn. turgay bey;
evet dediğinz gibi kod çalışıyor..
resimleri altta;
[img][Resim: 5RLvkD.jpg][/img]

[img][Resim: kYGDLr.jpg][/img]
imza; jon206
www.access-sql.com



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Rapor Alt Formun A4 Sayfası Dolana Kadar Tekrar Tekrar Eklenmesi. tolgahanay8 2 361 01-04-2025, 22:26
Son Mesaj: tolgahanay8
  Ortak Kullanımda Resim Hatası Erbil36 11 917 22-07-2022, 15:00
Son Mesaj: Erbil36
  Access çalışma çıkışında "dosya Zaten Kullanımda" Hatası h2001 2 1.121 06-09-2021, 19:00
Son Mesaj: h2001
access-sql-14 Varolan kaydı tekrar yapmayı engelleme... gmuslu 9 14.364 11-08-2021, 01:55
Son Mesaj: yukselaygut
  Tabloya Kayıt Girerken Aynı Kaydın Tekrar Girişinin Engellenmesi husem 5 784 23-05-2021, 16:18
Son Mesaj: husem
  [VBA] Sql Be Access Fe Iken Net Bağlantısı Yok Ise özel Mesaj Ile Uygulamayı Kapatmak schecter 1 726 09-03-2021, 16:31
Son Mesaj: dsezgin
  [RAPOR] Düzenlenen Rapor Verilerinin Tekrar Etmesi karakule44 7 1.123 14-04-2020, 09:35
Son Mesaj: karakule44
  Aynı Kaydı Tekrar Kaydetmemek M_Kemal_Askeri 5 1.021 06-11-2019, 00:00
Son Mesaj: M_Kemal_Askeri

Foruma Git:


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