أبو هادي

السلام عليكم إلصق عبارة SQL في استعلام جديد وجرب : PARAMETERS [من تاريخ] DateTime, [إلى تاريخ] DateTime, [من يوم] Short, [إلى يوم] Short; SELECT متابعة.الرقم, [بيانات الافراد].الاسم, [من تاريخ] AS من, [إلى تاريخ] AS إلى, Count(متابعة.[تاريخ الاستلام]) AS [أيام الغياب], [بيانات الافراد].الرتبه, [بيانات الافراد].[كود الرتبة], [بيانات الافراد].[رمز الملاك], [بيانات الافراد].الملاك, [بيانات الافراد].الملاحظات FROM [بيانات الافراد] INNER JOIN متابعة ON [بيانات الافراد].الرقم = متابعة.الرقم WHERE (((متابعة.[تاريخ الاستلام]) Between [من تاريخ] And [إلى تاريخ])) GROUP BY متابعة.الرقم, [بيانات الافراد].الاسم, [من تاريخ], [إلى تاريخ], [بيانات الافراد].الرتبه, [بيانات الافراد].[كود الرتبة], [بيانات الافراد].[رمز الملاك], [بيانات الافراد].الملاك, [بيانات الافراد].الملاحظات HAVING (((Count(متابعة.[تاريخ الاستلام])) Between [من يوم] And [إلى يوم])); تحياتي .

السلام عليكم شكرا للتوضيح أختي زهرة . لقد بحثت كثيرا عن تجنب طبع صفحة بيضاء ولكني لم أستطع التوصل إلى حل . فقط قمت بحذف الماكرو ووضع الشرط بالكود واختصاره . هناك فكرة تراودني وهي عمل فلترة للمعلومات وتطبيقها ليس بالصعب فإن رغبتم في ذلك قمنا بالمحاولة وبالله التوفيق . تحياتي . zahrah_Report_20051125.rar

السلام عليكم للأسف لا يمكن منع استيراد الجداول والإستعلامات . تحياتي .

السلام عليكم يمكنكم كذلك مشاهدة هذه المشاركة فقد يكون فيها ما تريد : http://www.officena.net/ib/index.php?showt...indpost&p=10736 تحياتي .

السلام عليكم شكرا للأخت زهرة .. لقد اطلعت على المثال وفكرته ذكية وسؤالي هل الطابعة ستظهر صفحة بيضاء أم سيتابع طباعة الصفحات المطلوبة والمحتوية على بيانات فقط ؟. ولي استفسار عن جدوى ترك صفحات وطباعة آخرى . كما تأملت في فكرة الشرط في الماكرو وظهر لي إمكانية اختصاره وذلك بجعل قيمة الـ Combo Box هي قيمة باقي القسمة على 2 بأن تكون الفردية 0 والزوجية 1 . تحياتي .

السلام عليكم مرفق مثال . تحياتي . Absence.rar

السلام عليكم قد يكون الحل بتحويل البرنامج إلى mde وتطبيق الفكرة الموجودة بهذا الموضوع : كيفية منع نسخ الملفات وحذفها تحياتي .

السلام عليكم نعم كما قال أخي التقني قد يكون الجدول يتكرر فيه الحقل المطلوب ، عليه تستطيع عمل مصدر جديد بعمل استعلام "مجماميع" وتختار فيه فقط الحقل المطلوب وليس كل الحقول الموجودة بالجدول . ونصل للمجاميع عن طريق قائمة View ثم Totals . جرب واخبرنا بالنتيجة وبالتوفيق . تحياتي .

السلام عليكم هل تقوم بحفظ الحضور اليومي أم الغياب فقط ؟ حيث الحل يختلف بين الطريقتين . ففي الثانية الأمر سهل جدا وذلك باستخدام دالة Count لتاريخ أيام الغياب ، أما في الأولى فهي أصعب وتحتاج إلى حساب جملة أيام المدة المطلوبة وجملة أيام الحضور وجملة أيام العطل الأسبوعة حتى نصل للنتيجة :( . تحياتي .

السلام عليكم أشكر لطفك أخي على السحيب وأنا في خدمتك والأعضاء الكرام . تحياتي .

السلام عليكم الأخ علي السحيب .. لقد رددت عليك ولم تقم بالتعقيب .. عسى المانع خير ؟!. تحياتي .

السلام عليكم مرفق مثال يحتوي على دالتين للتحويل بين الهجري والميلادي . آمل تجربتها وإعلامنا بالنتيجة . دالة التحويل من الهجري إلى الميلادي : Function Hijri2Greg(ByVal Hijri As Variant, _ Optional ByVal DateFormat As Variant) As Variant Dim CurrCal As Byte CurrCal = Calendar Calendar = vbCalHijri If VarType(Hijri) <> vbString Then Hijri = Format(Hijri, "dd/mm/yyyy") If IsMissing(DateFormat) Then Hijri2Greg = CDate(Hijri) Else Hijri = CDate(Hijri) Calendar = vbCalGreg Hijri2Greg = Format(Hijri, DateFormat) End If Calendar = CurrCal End Function دالة التحويل من الميلادي إلى الهجري : Function Greg2Hijri(ByVal Greg As Variant, _ Optional ByVal DateFormat As Variant) As Variant Dim CurrCal As Byte CurrCal = Calendar Calendar = vbCalGreg If VarType(Greg) <> vbString Then Greg = Format(Greg, "dd/mm/yyyy") If IsMissing(DateFormat) Then Greg2Hijri = CDate(Greg) Else Greg = CDate(Greg) Calendar = vbCalHijri Greg2Hijri = Format(Greg, DateFormat) End If Calendar = CurrCal End Function تحياتي . DateConverter_20051122.rar

السلام عليكم أسف أخي علي السحيب على التأخير . الكود بعد التعديل ، وهو الآن يقبل التواريخ بنوع نص أو تاريخ . Public Function vbDATEDIF(ByVal Interval As String, _ ByVal DATE1 As Variant, _ ByVal DATE2 As Variant, _ Optional FirstDayOfWeek As VbDayOfWeek, _ Optional FirstWeekOfYear As VbFirstWeekOfYear, _ Optional Cal As Byte) As Long Dim CurrCal As Byte Dim yy As Long Dim mm As Integer Dim dd As Integer On Error Resume Next CurrCal = Calendar Calendar = IIf(IsMissing(Cal), Calendar, IIf(Cal > 1, Calendar, Cal)) DATE1 = CDate(DATE1) DATE2 = CDate(DATE2) If DATE2 < DATE1 Then GoTo ExitFunction Select Case Interval Case "y", "ym", "md", "yd" yy = Year(DATE2) - Year(DATE1) mm = Month(DATE2) - Month(DATE1) dd = Day(DATE2) - Day(DATE1) If dd < 0 Then dd = dd + Day(DATE2 - Day(DATE2)) mm = mm - 1 End If If mm < 0 Then mm = mm + 12 yy = yy - 1 End If End Select Select Case Interval Case "y": vbDATEDIF = yy Case "ym": vbDATEDIF = mm Case "md": vbDATEDIF = dd Case "yd": vbDATEDIF = DateDiff("d", DATE1, DATE2) - _ DateDiff("d", DATE1, DateSerial(Year(DATE2), Month(DATE2) - mm, Day(DATE2) - dd)) Case Else vbDATEDIF = DateDiff(Interval, DATE1, DATE2, FirstDayOfWeek, FirstWeekOfYear) End Select ExitFunction: Calendar = CurrCal End Function تحياتي .

السلام عليكم أخي أحمد العيسى .. الحقيقة لم أفهم ما تقصد بشكل واضح وعلى ضوء مافهمته أنا وهو عدم استعمال عبارة SQL لمصدر المعلومات فقد عدلت على المثال واقتصرت على عمل فلترة باستخدام خاصية Filter . بعد إضافة المشاركة فهمت على ما تقصد :d الحقيقة تستطيع أن ترى المصدر بعرض التصميم كما ذكرت وذلك بالضغط على الزر المربع الصغير الذي يحتوي على ثلاث نقاط متجاورة "..." ومكان على يمين خاصية Record Source . كما أن من فوائد استخدام عبارة SQL فى النماذج تقليل مكونات البرنامج ومنع استيراد الإستعلامات وعدم ترك استعلامات لا حاجة لها عند حذف نموذج ما صمم لأجله فقط . تحياتي . AutoTypeSearch_20051117.rar

السلام عليكم المثال بعد التعديل باستخدام خاصية الفلترة . سأقوم بحذف مشاركتكم من موضوع البحث التلقائي بمجرد الكتابه في مربع البحث حتى لا يتسبب في إرباك منزلي الأمثلة . تحياتي . Wared_20051117.rar

السلام عليكم المثال بعد عمل دالة للبيسك بإسم vbDATEDIF شبيهة بدالة DATEDIF للأكسل . Public Function vbDATEDIF(ByVal Interval As String, _ ByVal DATE1 As Date, _ ByVal DATE2 As Date, _ Optional FirstDayOfWeek As VbDayOfWeek, _ Optional FirstWeekOfYear As VbFirstWeekOfYear, _ Optional Cal As Byte) As Long Dim CurrCal As Byte Dim yy As Long Dim mm As Integer Dim dd As Integer On Error Resume Next If DATE2 < DATE1 Then Exit Function CurrCal = Calendar Calendar = IIf(IsMissing(Cal), Calendar, IIf(Cal > 1, Calendar, Cal)) Select Case Interval Case "y", "ym", "md", "yd" yy = Year(DATE2) - Year(DATE1) mm = Month(DATE2) - Month(DATE1) dd = Day(DATE2) - Day(DATE1) If dd < 0 Then dd = dd + Day(DATE2 - Day(DATE2)) mm = mm - 1 End If If mm < 0 Then mm = mm + 12 yy = yy - 1 End If End Select Select Case Interval Case "y": vbDATEDIF = yy Case "ym": vbDATEDIF = mm Case "md": vbDATEDIF = dd Case "yd": vbDATEDIF = DateDiff("d", DATE1, DATE2) - _ DateDiff("d", DATE1, DateSerial(Year(DATE2), Month(DATE2) - mm, Day(DATE2) - dd)) Case Else vbDATEDIF = DateDiff(Interval, DATE1, DATE2, FirstDayOfWeek, FirstWeekOfYear) End Select Calendar = CurrCal End Function تحياتي . vbDATEDIF_20051117.rar

السلام عليكم أخي علي السحيب .. سأدرس الموضوع وأوافيك بما توصلت إليه إن شاء الله . كما أود أن أعرف هل ما طلبته للهجري القياسي كالمستخدم في برامج مايكروسوفت أو تقصد تقويم أم القرى الهجري الفلكي ؟. تحياتي .

السلام عليكم مثال الأخ yasser_sf بعد التعديل . تحياتي . search_20051116.rar

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

السلام عليكم أشكرك أخي التقني على تثبيت الموضوع والشكر موصول لأخي رضوان لوضعه هذا المثال . لقد قمت بتنقيحه مرة أخرى وبشكل مركز وقد قمت بالإحتفاظ بالمسافات آخر النص في صندوق نص البحث عند الخروج منه ثم العودة إليه حيث كان سابقا يفقدها . تحياتي . الملفات المرفقة AutoTypeSearch_20051115_2.rar ( 25.19ك ) عدد مرات التنزيل: 10

السلام عليكم لقد قمت بتعديل وتنقيح الأكواد للمثال والآن أصبح أكثر متانة . تحياتي . الملفات المرفقة AutoTypeSearch_20051115.rar ( 30.71ك ) عدد مرات التنزيل: 13

السلام عليكم ممتاز جدا أخي علي السحيب فالحل الآن هو الأفضل على الإطلاق للحصول على المدد فلقد تعلمت منك شيئا جديدا اليوم بما يخص دالة DATEDIF للأكسل كما أعتقد أنك تعلمتها حديثا أيضا :( اجتهاد حسب المعلومات المتوفرة لدي ، فكما تعلم أنا مختص بالأكسس أكثر منه في الأكسل ومع ذلك حاولت أن أقرأ عن الدالة في عن طريق العون/Help في الأكسل ولم أجدها موجودة ضمن الدوال ، عليه اعتمدت على معلوماتي لدالة DateDiff للأكسس والتي لا تحتوي على التنسيقات التي استخدمتها أنت في المثال الأخير . وهنا هي أنواع التنسيقات المتاحة لنفس الدالة بالأكسس : Setting Description yyyy Year q Quarter m Month y Day of year d Day w Weekday ww Week h Hour n Minute s Second تحياتي .

السلام عليكم أشكر لطفك أخي علي السحيب . أرجو تحميل الملف مرة أخرى حيث جرى عليه بعض التعديل . تحياتي .

السلام عليكم بعد إذن الأخ علي السحيب ، مرفق نفس المثال وبه طريقتين لحساب المدة بشكل دقيق . مع ملاحظة أني لم أقم باختبارهما بشكل قوي حيث اقتصر الإختبار على السجلات الموجودة بالمثال فقط . تحياتي . DateDiff.rar

السلام عليكم المثال مرفق بعد إضافة التحكم بالسرعة . تحياتي . TextToSpeech_20051025.rar