Merhebalar;
Ben zirai ilaç yani yazdığımız reçeteleri 2.birkez vermemek amacıyla takip programı düzenlemeye çalıştım ancak mükerrer kayıtları yapılmasını istemiyorum ve beni uyarmasını istiyorum.bunu bir türlü beceremedim.Birkaç yerden kod indirmeme rağmen olmadı.Bu sadece TC kimlik numarasına göre olursa sevinirim ilginize teşekkürler.
Zirai İlaç Takip Formu
1- VERİ GİRİŞİ formunuzdaki TC Kimlik No metin kutusunun olayındaki kodları silin.
2- Tarih metin kutusunun girildiğinde olayına aşağıdaki kodları yapıştırın.
Bu kod kontrolü yapar, varsa uyarır ve sorar. Evet de deseniz Hayır da deseniz bu döngüden çıkamazsınız. TC Kimlik Numarası değiştirilmediği sürece aynı yere döner durur.
Sanırım istediğiniz bu...
Bir de sayın kanola, size şiddetle şu konuyu okumanızı öneririm. Siz daha çok problem yaşarsınız bu veritabanı tasarımıyla...
Bence hatanın neresinden dönseniz kârdır...
https://accesstr.net/yapilmamasi-gereken...t-151.html
Tablo tasarımınızdan formlara varıncaya kadar hepsinin elden geçirilmesi lazım... Yoksa siz yarın birgün sorgulara geçeceksiniz, başka başka şeyler yapmak isteyeceksiniz. Ama bi bakacaksınız ki tablo tasarımınız yüzünden sorunlar yaşıyorsunuz...
Siz bu konuyu okuyun ve orda belirtilenleri bire bir uygulayın...
Kolay gelsin...
2- Tarih metin kutusunun girildiğinde olayına aşağıdaki kodları yapıştırın.
Kod:
Private Sub Tarih_Enter()
Dim SD1, C As String
Dim stLinkCriteria1 As String
SD1 = Me.TC_Kimlik_No.Value
stLinkCriteria1 = "[TC Kimlik No]=" & "'" & SD1 & "'"
If DCount("*", "VERİ GİRİŞİ", "TC_Kimlik_No='" & Me.TC_Kimlik_No & "'") > 0 Then
C = MsgBox("D İ K K A T" _
& SD1 & "TC Kimlik Numarası daha önce girilmiş..." & vbCr & vbCr & " Devam etmek istiyor musunuz???", vbYesNo + vbQuestion, "D İ K K A T")
If C = vbYes Then
MsgBox ("Aynı TC Kimlik Numarasını kullanamazsınız. Lütfen TC Kimlik Numarasını kontrol edin...")
DoCmd.GoToControl "TC Kimlik No"
ElseIf vbNo Then
DoCmd.GoToControl "TC Kimlik No"
End If
End If
End Sub
Sanırım istediğiniz bu...
Bir de sayın kanola, size şiddetle şu konuyu okumanızı öneririm. Siz daha çok problem yaşarsınız bu veritabanı tasarımıyla...
Bence hatanın neresinden dönseniz kârdır...
https://accesstr.net/yapilmamasi-gereken...t-151.html
Tablo tasarımınızdan formlara varıncaya kadar hepsinin elden geçirilmesi lazım... Yoksa siz yarın birgün sorgulara geçeceksiniz, başka başka şeyler yapmak isteyeceksiniz. Ama bi bakacaksınız ki tablo tasarımınız yüzünden sorunlar yaşıyorsunuz...
Siz bu konuyu okuyun ve orda belirtilenleri bire bir uygulayın...
Kolay gelsin...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Son Düzenleme: 11/03/2009, 10:26, Düzenleyen: tdsharun.
Harun hocam, belirttiğiniz linki bende okudum. Vay dedim halime. Ama accessle sadece 1 haftadır uğraşıyor olmak belki affettirir kendimi bana. çok faydalı oldu benim için hemen sayfadaki bilgileri arşivime ekliyorum. Teşekkür ederim.
Son Düzenleme: 11/03/2009, 10:37, Düzenleyen: donepezil.
Access ile 1 haftadır uğraşan biri için çok çok iyisiniz siz Sayın Donepezil...
Siz 1 haftada böyleyseniz, 1 aya kalmaz sitemizin dinamolarından biri olursunuz...
Kolay gelsin...
Siz 1 haftada böyleyseniz, 1 aya kalmaz sitemizin dinamolarından biri olursunuz...
Kolay gelsin...
Teşekkür ederim. Ne yapıyorsam hepsini burdan öğrendim. Kitaplardan öğrenmek çok zor bu işi.Kolay gelsin.
gönderdiğiniz kod işime yaradı öncelikle teşekkürler.Gönderdiğiniz uyarıyıda okudum tabiiki yeni olduğumuz için bu işler sizlerin desteği ile olacaktır.İnşallah ellerine sağlık görüşmek üzere kolaylıklar
Konuyu Okuyanlar: 1 Ziyaretçi