طريقة لعمل تصفية بالتاريخ والوقت

[rey360]

السلام عليكم أريد طريقة لعمل تصفية في جدول عن طريق vba بشرط أن تكون بالتريخ والوقت مثلا في التاريخ الاول 28/12/2020 12:55:30 وفي التاريخ الثاني 02/01/2021 10:23:44 فيقوم بالتصفية عن طريق sql في ريكودست المشكلة تكمل في أنه لا يقوم بعمل فلترة 

Nouveau Microsoft Access Base de données.rar

[rey360]

تم بفضل حل المشكل شكرا لكل من حاولة في حله كما أريد أن أرى حلول أخرى

 

Nouveau Microsoft Access Base de données.rar

تم تعديل يناير 8, 2021 بواسطه rey360

[rey360]

10 ساعات مضت, rey360 said:

تم بفضل الله حل المشكل شكرا لكل من حاولة في حله كما أريد أن أرى حلول أخرى

أرد تعديل على المنشورة ولكن الموقع لم يظهر لي خاصية التعديل لا أعلم ان كان له علاقة بأرشفة أم بوقت وضع المنشورة

[ابوبسمله]

12 ساعات مضت, rey360 said:

تم بفضل حل المشكل شكرا لكل من حاولة في حله كما أريد أن أرى حلول أخرى

Nouveau Microsoft Access Base de données.rar 28.41 kB · 2 downloads

جميل منك ان تضع الحل الذى توصلت اليه لتشارك اخوانك جزاك الله خيرا

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

Public Function sii(e As Date, s As Date) As Integer
Dim rs As Recordset
Dim ss As Integer
Set rs = CurrentDb.OpenRecordset("select * from ts WHERE typ=1 and datemou>=" & CDbl(e) & " and datemou<" & CDbl(s) & "")
rs.MoveLast: rs.MoveFirst
Do While Not rs.EOF
ss = ss + rs!summ

rs.MoveNext
Loop
MsgBox ss
End Function

 

منذ ساعه, rey360 said:

أرد تعديل على المنشورة ولكن الموقع لم يظهر لي خاصية التعديل لا أعلم ان كان له علاقة بأرشفة أم بوقت وضع المنشورة

؟؟؟ 

يمكنك ارسال تقرير للاداره وتوضح به التعديل الذى تريده من الزر ذو الثلاث نقاط على يسار المشاركه

بالتوفيق

Nouveau Microsoft Access Base de données.rar

[rey360]

في ٨‏/١‏/٢٠٢١ at 10:41, احمد الفلاحجي said:

Public Function sii(e As Date, s As Date) As Integer Dim rs As Recordset Dim ss As Integer Set rs = CurrentDb.OpenRecordset("select * from ts WHERE typ=1 and datemou>=" & CDbl(e) & " and datemou<" & CDbl(s) & "") rs.MoveLast: rs.MoveFirst Do While Not rs.EOF ss = ss + rs!summ rs.MoveNext Loop MsgBox ss End Function

شكرا لك أخ احمد الفلاحجي لكن بما أن datmou عبار عن تاريخ فستظهر رسالة الخطأ 3075 وهو عدم تطابق المعطيات حتى وان وضعت cdbl(datemou) تبق رسالة الخطأ

[ابوبسمله]

36 دقائق مضت, rey360 said:

شكرا لك أخ احمد الفلاحجي لكن بما أن datmou عبار عن تاريخ فستظهر رسالة الخطأ 3075 وهو عدم تطابق المعطيات حتى وان وضعت cdbl(datemou) تبق رسالة الخطأ

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

انا لم يظهر لى اى خطأ ومع ذلك

جرب التعديل ده وكذلك لم يظهر اى خطأ وان شاء الله ننتظر تجارب اخواننا واساتذتنا جزاهم الله خيرا

Public Function sii(e As Date, s As Date) As Integer
Dim rs As Recordset
Dim ss As Integer
Set rs = CurrentDb.OpenRecordset("select * from ts WHERE typ=1 and CDbl([datemou])>=" & CDbl(e) & " and CDbl([datemou])<" & CDbl(s) & "")
rs.MoveLast: rs.MoveFirst
Do While Not rs.EOF
ss = ss + rs!summ

rs.MoveNext
Loop
MsgBox ss
End Function

 

[rey360]

Public Function sii(e As Date, s As Date) As Integer
Dim rs As Recordset
Dim ss As Integer
Set rs = CurrentDb.OpenRecordset("select * from ts WHERE typ=1 and CDbl([datemou])>=" & Replace(CDbl(e), ",", ".") & " and CDbl([datemou])<" & Replace(CDbl(s), ",", ".") & "")
rs.MoveLast: rs.MoveFirst
Do While Not rs.EOF
ss = ss + rs!summ

rs.MoveNext
Loop
MsgBox ss
End Function

بفضل الله تم التخلص من مشكل الخطىء 3075 و سبب كان الفاصلة بحيث في النسخة الفرنسية تكون الفاصلة على هذا الشكل , و sql لا يفهمها بحيث يجب وضعها على شكل نقطة وهنا نستعين بالدالة replace شكرا لك أستاذ احمد الفلاحجي  

[ابوبسمله]

12 دقائق مضت, rey360 said:

Public Function sii(e As Date, s As Date) As Integer
Dim rs As Recordset
Dim ss As Integer
Set rs = CurrentDb.OpenRecordset("select * from ts WHERE typ=1 and CDbl([datemou])>=" & Replace(CDbl(e), ",", ".") & " and CDbl([datemou])<" & Replace(CDbl(s), ",", ".") & "")
rs.MoveLast: rs.MoveFirst
Do While Not rs.EOF
ss = ss + rs!summ

rs.MoveNext
Loop
MsgBox ss
End Function

بفضل الله تم التخلص من مشكل الخطىء 3075 و سبب كان الفاصلة بحيث في النسخة الفرنسية تكون الفاصلة على هذا الشكل , و sql لا يفهمها بحيث يجب وضعها على شكل نقطة وهنا نستعين بالدالة replace شكرا لك أستاذ احمد الفلاحجي  

الحمد لله الذى بنعمته تتم الصالحات

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خير

بالتوفيق