أستعلام وقت

[co2002co]

عملت استعلام وقت بين تاريخين بس متعب نوعا ما خصوصا اذا حابب استخرج المعلومات بشكل يومي

 

الي حاب اعمله هو كود

يستخرج لي المعلومات بتوقيت محدد ثابت وتاريخ متغير بشكل يومي

 

1/1/1438 08/00/00 AM

2/1/1438 08/00/00 AM

اي كل 24 ساعه بشكل يومي

ويحول التقرير الى pdf

بحيث يسمي لي ملف pdf  ب تاريخ يوم امس

 

يعني اذا اليوم التاريخ 5

يسمي الملف ب 4

حصلت هذا الكود

بس ماعرفت كيف اطبقه

 

 

 

Private Sub PrintPatientReport_Click()
On Error GoTo Err_PrintPatientReport_Click
If Me.Dirty Then Me.Dirty = False
RunCommand acCmdSaveRecord
   Dim stDocName As String
   stDocName = "Patient Demographics"
   PatientName = Me.First_Name.Value + " " + Me.Surname.Value
    Dim myPath As String
    myPath = CurrentProject.Path & "\"
   'Automatically save  and open generated reports:
   DoCmd.OutputTo acReport, stDocName, acFormatPDF, myPath + "Patient Report " + PatientName + ".pdf", -1, , , acExportQualityPrint

Exit_PrintPatientReport_Click:
    Exit Sub

Err_PrintPatientReport_Click:
    MsgBox Err.Description
    Resume Exit_PrintPatientReport_Click
    
End Sub
 

[ابو جودي]

في 10/5/2016 at 14:19, co2002co said:

عملت استعلام وقت بين تاريخين بس متعب نوعا ما خصوصا اذا حابب استخرج المعلومات بشكل يومي

 

الي حاب اعمله هو كود

يستخرج لي المعلومات بتوقيت محدد ثابت وتاريخ متغير بشكل يومي

 

1/1/1438 08/00/00 AM

2/1/1438 08/00/00 AM

اي كل 24 ساعه بشكل يومي

ويحول التقرير الى pdf

بحيث يسمي لي ملف pdf  ب تاريخ يوم امس

 

يعني اذا اليوم التاريخ 5

يسمي الملف ب 4

حصلت هذا الكود

بس ماعرفت كيف اطبقه

 

 

 

Private Sub PrintPatientReport_Click()
On Error GoTo Err_PrintPatientReport_Click
If Me.Dirty Then Me.Dirty = False
RunCommand acCmdSaveRecord
   Dim stDocName As String
   stDocName = "Patient Demographics"
   PatientName = Me.First_Name.Value + " " + Me.Surname.Value
    Dim myPath As String
    myPath = CurrentProject.Path & "\"
   'Automatically save  and open generated reports:
   DoCmd.OutputTo acReport, stDocName, acFormatPDF, myPath + "Patient Report " + PatientName + ".pdf", -1, , , acExportQualityPrint

Exit_PrintPatientReport_Click:
    Exit Sub

Err_PrintPatientReport_Click:
    MsgBox Err.Description
    Resume Exit_PrintPatientReport_Click
    
End Sub
 

ممكن مرفق من قاعدة البيانات لو تكرمت حتى يسهل على اساتذتنا الكرام الافاضل او من يريد مد يد العون الامر 

[co2002co]

3 ساعات مضت, ابا جودى said:

ممكن مرفق من قاعدة البيانات لو تكرمت حتى يسهل على اساتذتنا الكرام الافاضل او من يريد مد يد العون الامر 

اشكر لك اهتمامك

Database.rar

[co2002co]

للنقل

للرفع