السلام عليكم ورحمة الله
FORM حبيت في اول مشاركة لي في هذا المنتدى الرائع وضع هذا الكود والذي كثرت الاسئلة بخصوصة والذي يمكن من خلالة تمرير قيم متعددة من
واظهار النتيجة في التقرير
Crystal Report control انشئ فورم جديد واضف الية الاداة
الاداة موجودة في المرفقات وهي لاتتوفر الا في الاصدار 8 من الكريستال ريبورت
DTPicker1 ,DTPicker2,Text1 ثم اضف
dao360.dll قم باضافة المكتبة الموجودة في المرفقات الى المشروع
الكود:
:للفورم ضع هذا الكودLOAD في حدث
Private Sub Form_Load()
DTPicker1.Value = Format$(Date, "dd/mm/yyyy")
DTPicker2.Value = Format$(Date, "dd/mm/yyyy")
END SUB
وفي حدث النقر على زر طباعة التقرير ضع الكود التالي
Private Sub cmdPrint_Click()
On Error GoTo Err
Dim DTR as String
Dim DRR as String
d= Mid(DTPicker1, 1, 2)
m = Mid(DTPicker1, 4, 2)
Y = Mid(DTPicker1, 7, 4)
DTR = m & "/" & d & "/" & Y
DTR = Format(DTR, "dd/mm/yyyy")
d = Mid(DTPicker2, 1, 2)
m = Mid(DTPicker2, 4, 2)
Y = Mid(DTPicker2, 7, 4)
DRR = m & "/" & d & "/" & Y
DRR = Format(DRR, "dd/mm/yyyy")
With CrystalReport1
.ReportFileName = App.Path & "\Report.rpt" 'Report File Name
.DataFiles(0) = App.Path & "\MyData.mdb" ' Set Table Path in Report
txtFormula = "{internal_trans.tdate}>=#" & DTR & "# and {internal_trans.tdate}<=#" & DRR & "# AND {internal_trans.destination_branch}= '" & combo1 & "'and {internal_trans.M_curr} = '" & combo2 & "' and {internal_trans.branch}= '" & combo3 & "'and {internal_trans.typ_no} = " & Text1 & ""
.SelectionFormula = txtFormula
.WindowState = crptMaximized ' Show Maximized Report
.PrintReport ' Show Report
End With
End If
Exit Sub
Err:
MsgBox Err.Description
End Sub
ارجوا ان اكون قد وفقت واذا كان هناك اخطاء ف للة الكمال وحدة
