منع تكرار ادخال نفس القيمه

[co2002co]

اريد ان امنع تكرار ادخال نفي الدواء مرتين

 

298.2.Medication.accdb.zip

[عبدالرحمن هاشم]

الامثلة كثيرة في المنتدى.. انظر مثلا هذه المشاركة

[co2002co]

اشكرك اخي الفاضل

لكم الكود لا يعمل بالشكل الي انا ابغاه

[jjafferr]

بعد الاعتذار من اخي عبدالرحمن ،

الكود يتطلب فحص التاريخ ورقم الملف ورقم الدواء ،

وانا اشتغل عليه الان 

 

 

جعفر

[co2002co]

شكرك سيد جعفر

والشكر موصول للاخ  عبدالرحمن

[jjafferr]

تفضل 

 

وهذا هو كود التأكد:

    
    'check if this medicine is already in the prescription for this patient
    myCriteria = "[File_No] = '" & Forms!frm_Patient_Drugs!cmb_Patient_Name & "'"
    myCriteria = myCriteria & " And [Visit_Date] = #" & Forms!frm_Patient_Drugs!iDate & "#"
    myCriteria = myCriteria & " And [DoseID] = " & Me.ListDosing.Column(7)
    Is_It_Used = DCount("*", "tbl_Prescription", myCriteria)
        If Is_It_Used > 0 Then
            MsgBox "This medicine is already in the Prescription"
            Exit Sub
        End If
    
   

 

جعفر

298.3.Medication.accdb.zip

[co2002co]

اشكر لك سرعه تجاوبك

[jjafferr]

[عبدالرحمن هاشم]

جزاك الله خيرا أستاذنا وأخونا الكريم جعفر

وبارك الله فيك أخونا co2002co

 

 

جزاك الله خيرا أستاذنا وأخونا الكريم جعفر

وبارك الله فيك أخونا co2002co

 

 

[co2002co]

مساء الخير

كيفهكم

في مشكله بالكود

يرفض اعادة ادخال نفس الدواء لمريض ثاني

 

[jjafferr]

وعليكم السلام 

 

انا جربته مرة ثانية الآن ، ولم يعطني اي رفض!!

لوسمحت تخبرنا الخطوات التي اتبعتها واعطتك الرفض.

 

جعفر

[co2002co]

السلام

مساء الخير

لما اختار نفس الدواء وبنفس التركيز بوصفه ثانيهتظهر الرساله

[jjafferr]

وعليكم السلام 

 

الظاهر ان البرنامج الذي تستعمله يختلف عن البرنامج الذي ارفقته انت في اول مشاركاتك ، وعن البرنامج الذي عملت تعديل عليه وارفقته لك سابقا 

 

هذه نتيجة البرنامج اعلاه (وقد ارفقت لك البرنامج بعد تعديل بسيط عليه ، والتعديل لا علاقة له برسالة الخطأ الذي تشير انت عليه):

 

 

جعفر

298.3.Medication.accdb.zip

[co2002co]

استخدم نفس قاعدة البيانات

لكن وضعتها في قاعده ثانيه ل تحديد صلاحيات المستخدمين

اسم مستخدم ورقم سري فقط

[jjafferr]

وعليكم السلام 

 

الله يطول في عمرك ، انا اثبت لك الموجود من البرنامج 

لذا ، عليك ان تضع برنامجك الجديد ، لمعرفة التغيير الذي طرأ عليه والذي يسبب هذا الخطأ 

 

 

جعفر

[co2002co]

الله لا يحرمنا من علمكم