AccessTr.neT
hasta takip te randevu mükerrer kayıt - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: hasta takip te randevu mükerrer kayıt (/konu-hasta-takip-te-randevu-mukerrer-kayit.html)

Sayfalar: 1 2


hasta takip te randevu mükerrer kayıt - simendifer - 22/07/2010

Degerli hocalarım hepinize kolay gelsin
hasta takip programın da hastaya randevu verirken aynı hastaya aynı gün ve aynı saatte randevu verirken bir şekilde bizi uyarmasını istiyorum mükerrer kayıt örnegini uygulamak istedim ama başaramadım programa iki ayrı randevu kayıt formu ekledim birbirinden bagımsız olarak ikisindede mükerrer kaydı engellemeyi yapamadım
1. RANDEVUBILGILERI formunda randevu saatinin güncelleştirme öncesine mükerrer kayıt kodunu yazdım ama kod yazmayı bilmediğim için kopyala yapıştırla örnekten alarak uyguladım ama doktor adını yazdıgımda bu kayıt daha önce girilmiş diyor ama taploya kaydediyor her seferinde doktor adını girmessen uyarı vermiyor sadece saati girince daha önce o tarihte o saate giriş yapıldı ise uyarı vermesini istiyorum
2 RANDEVU formunda (bu da RANDEVUBILGILERI nden bagımsız ayrı bir form) 23.07.2010 tarihinde randevu verdigimizde cıkan NOT formunda O saate not yazıldıgında altta randevuya geldi gelmedi evet/hayırla rengini degiştirebiliyorum ama form ado ile TBLAJANDA taplosuna kayıt yapıyor tabi formun denetimi ilişkisiz oldugundan randevuya geldi gelmedi yi taploya yazdıramıyorum
sizlerden istegim ya RANDEVUBILGILERI formunda yada RANDEVU formundaki sorunu çözmeniz resimlede anlatımımı pekiştirmek için iki adet resim ekledim ilgi ve alakanıza şimdiden teşekkür ederim.


Cvp: hasta takip te randevu mükerrer kayıt - Kur@l - 23/07/2010

Sayın simendifer;
Ekte istedikleriniz yapılmıştır. İncelerken "Her yiğidin bir yoğurt yiyişi vardır." atasözünü gözönünde bulundurun.
Aynı hasta aynı anda birden fazla randevu alamasın:
Bunun için saatler adında bir tablo ile günün saatlerini 15 dakikalık parçalar halinde kaydettim. Eğer bir kişinin aynı günde mesela saat 10:00 da randevusu varsa listede saat 10:00 görünmüyor. Buda aynı anda birden fazla randevu almasını engelliyor.
Randevuya geldi gelmedi kısmıda randevu detay alt formunda düzeltilmiştir.


Cvp: hasta takip te randevu mükerrer kayıt - assenucler - 23/07/2010

Günaydın...

Öncelikle verdiğiniz büyük emek ve paylaşımınız dolayısıyla sizi tebrik eder ve kutların sayın Simendifer...

Katkınız için sağolun sayın KUR@AL hocam..

Her şey gönlünüzce olsun...

Sevgi ve saygılar...


Cvp: hasta takip te randevu mükerrer kayıt - simendifer - 23/07/2010

öncelikle ilginizden dolayı teşekkür ederim ugraşverdiniz hakkınızı helal ediniz hocam
vardiyeli çalıştıgım için ancak 16 dan sonra bakabildim inceledim ama bende resimdeki gibi bir hata veriyor saatı alanına girdiğimde hata veriyor sizde de aynı hatayı veriyormu nedendir bilemedim

hocam kusura bakma özür dilerim resmi eklemeyi unutmuşum


Cvp: hasta takip te randevu mükerrer kayıt - Kur@l - 23/07/2010

Sayın simendifer;
Hangi resimden bahsediyorusunuz son mesajınızda herhangi bir resim yok. Gece eklediğim bilgisayarımda herhangi bir sorun olmadan çalışıyordu.
Tam olarak verdiği hatayı bildirirseniz incelem şansımız olur.
Kolay Gelsin.


Cvp: hasta takip te randevu mükerrer kayıt - simendifer - 23/07/2010

hocam kusura bakma resmi ekledim özür dlerim
sanırım bu kodda fazladan bir imlec hatası var diyor
Private Sub RANDEVU_SAATİ_GotFocus()
Me.RANDEVU_SAATİ.RowSource = "SELECT SAATLER.SAAT FROM SAATLER WHERE (((SAATLER.[SAAT]) Not In (SELECT [RANDEVU SAATİ] FROM [RANDEVU BİLGİLERİ] WHERE [RANDEVU TARİHİ] = #" & Format(Me.RANTARIH.Value, "DD/MM/YYYY") & "# AND MNO=" & Me.MNO.Value & ")));"Debug.Print "SELECT SAAT FROM SAATLER WHERE SAAT Not In (SELECT [RANDEVU SAATİ] FROM [RANDEVU BİLGİLERİ] WHERE [RANDEVU TARİHİ] = #" & Me.RANTARIH.Value & "# AND MNO=2);"
End Sub