co2002co قام بنشر نوفمبر 11, 2016 مشاركة قام بنشر نوفمبر 11, 2016 myCriteria = "[File_No] = '" & Forms!frm_Patient_Drugs!text1 & "'" Is_It_Used = DCount("*", "tbl_MedicalReport", myCriteria) If Is_It_Used > 0 Then ulast = DLast("Visit_Date", "tbl_MedicalReport", myCriteria) unow = Form_frm_Patient_Drugs.iDate udiff = DateDiff("d", ulast, unow) If MsgBox("تم اعطاءه اجازه مرضيه بتاريخ" & ulast & vbCrLf & "هل ترغب بأعطائه اجازه مرضية اخرى ؟", vbExclamation + vbYesNo) = vbYes Then Forms!frm_Patient_Drugs!sfrm_Patient_Drugs.SetFocus DoCmd.GoToRecord , , acNewRec End If End If ارجو التعديل على هذا الكود بحيث ان لطبيب ل يستطيع إعطاء المريض اجازه مرضيه الا بعد مضي 48 ساعه من اخر مره اخذ فيها اجازه الكود من عمل المبدع الأخ محمد ايمن رابط هذا التعليق شارك More sharing options...
co2002co قام بنشر نوفمبر 11, 2016 الكاتب مشاركة قام بنشر نوفمبر 11, 2016 Pedia2.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان