اذهب الي المحتوي
أوفيسنا

شرط وقت


co2002co

الردود الموصى بها

    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 ساعه من اخر مره اخذ فيها اجازه

 

 

الكود من عمل المبدع الأخ محمد ايمن

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information