شرط وقت

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

 

 

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

[co2002co]

Pedia2.rar