rudwan

استخدم الدوال التالية للتحويل 1- من الميلادي للهجري Function ConvertDateString(ByRef stringin As String) Dim SavedCal As Integer Dim d As Date Dim s As String SavedCal = Calendar VBA.Calendar = 0 d = CDate(stringin) VBA.Calendar = 1 s = CStr(d) ConvertDateString = Format(s, "dd/mm/yyyy") VBA.Calendar = SavedCal End Function 2- من الهجري الى الميلادي Function ConvertDate(ByRef stringin As String) As String Dim SavedCal As Integer Dim d As Date Dim s As String SavedCal = Calendar VBA.Calendar = 1 d = CDate(stringin) VBA.Calendar = 0 s = CStr(d) ConvertDate = Format(s, "dd/mm/yyyy") VBA.Calendar = SavedCal End Function و طبعا هنا لاداع لاستخدام زر التحويل , ماعليك الا أن تضع مصدر بيانات حقل النص عبارة عن دالة كما يلي dh=convertdatestring([التاريخ])

في تصميم الجدول , و بعد اختيار نوع الحقل مزدوج اختر تنسيق قياسي

اضافة الشرح في الرد فيه فائدة لبقية الأعضاء لمعرفة الاجابة مباشرة دون الغوص في كامل الملف عموما هذا ملفك بعد التعديل TimeAttendance.rar

بارك الله فيك يا أخ كما و فعلا برنامج جميل جدا و جهد متميز و ان كان يمكنك اضافة الملاحظة التالية 1- في شاشة فيود اليومية لايصح اختيار حسابات اجمالية كأطراف في قيود اليومية . 2- يمكنك اضافة زر التقويم في لاختيار تاريخ القيد 3-يمكنك اضافة حقل نصي لحساب رصيد الحساب بعد كل حركة سجل يومية 4- يمكنك اضافة فقرات سندات القبض و الدفع 5-يمكنك الارتقاء به لاضافة نظام المستودعات

هذا ملفك بعد التعديل CrossTabParameter.rar

اجعل خاصية الرقم مزدوج في تصميم الجدول بدلا من رقم صحيح

الأخ الكريم أرجو الكف عن ارسال المزيد من الأسئلة حول هذا الموضوع و عدم فتح اي موضوع آخر بهذا الخصوص لقد تم ارفاق الملف لك جاهزا لتستفيد منه كما يحلو لك , تستطيع نسخ النموذج كما هو و المتابعة على برنامجك أما التعديل على ملفك فهذا عائد لك , و مهمتنا انتهت عند هذا الحد

مشكور يا أخ كمال و بارك الله فيك

راجع هذا الموضوع ففيه ماترغب http://www.officena.net/ib/index.php?showtopic=10102

أضف الدالة التالية الى الوحدة النمطية للنموذج Function DateDif(F As Date, E As Date) As Date Const F1 = #11:59:59 PM# If Hour(F) <= Hour(E) Then DateDif = E - F Else DateDif = DateAdd("n", 1, (F1 - F)) + E End If End Function ثم قم بتعديل معادلة حساب الفرق في الوقت لتصبح =datedif([EndTime],[timeout])

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

شكرا للأخ براء على مجهوده , لكن يمكن اختصار تلك العملية باستخدام المتغيرات في الاستعلام الجدولي نفسه على الشكل التالي قم بفتح الاستعلام الجدولي - وضع التصميم - من قائمة View , و اختر Sql View احذف الكود الموجود فيه , و انسخ الكود التالي كما هو PARAMETERS [StartingDate] DateTime, [Ending Date] DateTime; TRANSFORM Count(daily_data.mobily_no) AS Countمنmobily_no SELECT daily_data.PF, imp_data.imp_name, Count(daily_data.mobily_no) AS [إجمالي mobily_no] FROM bandles INNER JOIN (daily_data INNER JOIN imp_data ON daily_data.PF = imp_data.PF) ON bandles.bandle_no = daily_data.bandle_kind WHERE (((daily_data.date) Between [StartingDate] And [Ending Date])) GROUP BY daily_data.PF, imp_data.imp_name PIVOT bandles!bandle_kind; قم بتشغيل الاستعلام و اختر تاريخ بداية و نهاية

الحقيقة أنه ليس من المنطقي دمج تقارير الموردين و العملاء في تقرير واحد لكن لو أردت ذلك يمكنك عمل استعلام اتحاد بين جدولي الموردين و العملاء و ذلك يتم باختيار نفس عدد الحقول المطلوبة من كلا الجدولين و بشرط أن تكون لهما نفس الخاصية أي تختار مثلا حقول : تاريخ - اسم المورد - مدين -دائن من جدول العملاء ثم تضع اشارة union all ثم اختيار نفس الحقول الموافقة من جدول الموردين أي تاريخ - اسم المورد - مدين - دائن

أضف حقل التاريخ الى الاستعلام الجدولي , و اجعل خاصيته where between 01-01-2008 and 31-12-2008

راجع الموضوع التالي http://www.officena.net/ib/index.php?showtopic=23060

راجع الموضوع التالي http://www.officena.net/ib/index.php?showtopic=23060

يمكنك الاستفادة من هذا النموذج _______.rar

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

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

قم بتحميل الملف بشكل سليم و تجنب فتح مواضيع متكررة

اجعل كلا من حقل السجين و جزء الاختبار مفتاح رئيسي حتى لايتكرر رقم الجزء للسجين و في تصميم الجدول اجعل القيمة الافتراضية لحقل رقم الجزء كما يلي Between 1 and 30

يمكنك الاطلاع على شرح تصميم قاعدة NorthWind من مواضيعي المرفقة في مشاركتي و الاطلاع على كيفية عمل هذا الأمر

قيمة الحقل لاتتغير لأنها ليست رقم و انما صح أو خطأ لكن يمكنك في هذه الحالة استخدام دالة الشرط كما يلي في الاستعلام بفرض أن حقل الصح و الخطأ اسمه mytest NewNo:iif([MyTest]=true,100,99)

تم حل مشكلة المرفقات يمكنك تحميل الملف ثم تفضل بطرح اي سؤال توضيحي حول هذا الموضوع

أهلا بك الادارة مهتمة بهذا الموضوع و العمل جاري على حلها باذن الله