Skip to main content

AccessTr.neT


Zirai İlaç Takip Formu

Zirai İlaç Takip Formu

Çözüldü #1
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.
.rar zirai ilaç kontrol.rar (Dosya Boyutu: 1,87 MB | İndirme Sayısı: 74)
Cevapla
Çözüldü #2
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.

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

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...
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...
Son Düzenleme: 11/03/2009, 10:26, Düzenleyen: tdsharun.
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
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... Img-grin

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...
Cevapla
Çözüldü #5
Teşekkür ederim. Ne yapıyorsam hepsini burdan öğrendim. Kitaplardan öğrenmek çok zor bu işi.Kolay gelsin.
Cevapla
Çözüldü #6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da