Mükerrer Kayıt Engelleme

1 2
28/02/2024, 17:05

te-kin

(28/02/2024, 16:31)atoykan yazdı: Sayın @simendifer 'in yaptığı çalışma zaten bunu sağlıyor. Barkod numarasını değiştirirseniz yeni kayıt yaparsınız, aynı barkod numarası ile mükerrer kayıt işlemi yapmıyor uygulama. Sorun nedir anlamış değilim.

Burada sadece barkod numarasını değil tarihi de kontrol etmesini istiyorum. örneğin 0712345678901 barkod no ile 28/02/2024 tarihinde giriş yapan kişi aynı gün tekrar giriş yapmasın ama bir sonraki gün giriş yapabilsin.
28/02/2024, 18:15

atoykan

M1 textboxının afterupdate olayını aşağıdaki gibi değiştirin
Private Sub M1_AfterUpdate()
If Dlookup ("BRKD", "KONTROL", "BRKD='" & M1 & "' And g_tarih=#" & Format(Date, "yyyy-mm-dd") & "#") = True Then
MsgBox "Bugün giriş yapmış durumdasınız", vbOKOnly, "GİRİŞ KAYDI MEVCUT"
End If

Dim vSearchString As String
vSearchString = Me.M1.Text
Me.M7.Value = vSearchString
Me.L2.Requery
Me.L2.Selected(0) = True
Me.L3.Requery
Me.L3.Selected(0) = True
End Sub
29/02/2024, 09:57

te-kin

teşekkür ederim istediğim gibi olmuş.
29/02/2024, 10:55

te-kin

sizden bir ricam daha var. çıkış tarihi ve saati için nasıl bir güncelleme kodu yazabiliriz.
29/02/2024, 10:59

atoykan

Aynı mantıkla yazın
29/02/2024, 11:04

te-kin

.AddNew yerine .edit komutu ile mi başlamam gerekiyor.
1 2