سؤال ياشباب يصدع في الرأس ؟؟

الداتا ريبورت والدجاتا انفيرمنت تكون الشروط فيهم باستعمال جملة SQL هات شكل الشروط التي وضعهتها في برنامج حتى نحاول مساعدتك ونغيرها الي صيغه sql

لك تحياتي

اخي طارق هذه العمليات

Dim q As String

Dim y As String

Dim z As String

Dim x As String

Calendar = vbCalHijri

Do Until Data1.Recordset.EOF

Let q = (Format(Now, "mm") - (Data1.Recordset!Month))

Let y = (Format(Now, "yyyy") - (Data1.Recordset!Year))

Let z = y * 12

Let x = Val(q) + Val(z)

If x = 6 Or x = 12 Or x = 18 Or x = 24 Or x = 30 Or x = 36 Or x = 42 Or x = 48 Or x = 54 Or x = 60 Or x = 66 Then

List1.AddItem Data1.Recordset!Name & "------" & Data1.Recordset!malk

End If

Data1.Recordset.MoveNext

Loop

اخ طارق كذلك قمت بربط بعض التقارير عن طريق الكونكشن في الداتا انفيرتمنت ولم عملت تحزيم للبرنامج ماهي راضيه تشتغل

علشان مكان القاعدة طبعاً تغير ,,,,,,,,,,,,,,,,فماهو الحل تكفى تراني مستعجل على البرنامج

السلام عليكم ورحمة الله وبركاته

الاخ الكريم/

dataenvironment1.connection1.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "YourFileName.mdb;"

وتقبل تحياتي

اشكرك اخي محمد

مازلت انتظرك ياخ طارق