أحمد العيسى

طبيعة عملى _كمدرس_ هى التى تفترض زيادة الإيضاح و التبسيط فى تناول السؤال أو الجواب شكراً جزيلاً لردك

السلام عليكم بالتطبيق نموذج frm_Section يحتوي على كومبوبوكس cbo_Class ، عند اختيار أحد عناصره يتم فتح تقرير يأخذ محتواه من استعلام طبقاً لسطر المعايير [Forms]![frm_Section]![cbo_Class] التقرير له تسمية توضيحية كما هو موضح بالصورة والتقرير له اسم بالطبع "1_سرى_القاهرة" وعقب إختيار عنصر الإدارة من الكومبوبكس يأتى التقرير بكل بيانات تلك المجموعة وعند النقر على زر الطباعة فى جهازى تطبيق جميل جداً (7-Bullzip PDF Printer) يضيف طابعة افتراضية تحول أى مطبوعة لملف pdf وعند النقر على موافق تجد مثل هذه الصورة والملف الناتج أخد الإسم من التسمية التوضيحية ، وإذا كان لديك الكثير جداً من المجموعات ستجد أنك مضطر فى كل مرة التدخل يدوياً لتنقيح أسم الملف الناتج جربت مسح التسمية التوضيحية تماماً ، فما كان من الملف إلا أن أخذ أسم التقرير "1_سرى_القاهرة" ما رأيكم .. هل يوجد حل آلياً ؟؟

تمام .. الله ينور السؤال هنا : هل يمكن استخراج هذه الصورة منفردة لاستخدامها فى تطبيق آخر

السلام عليكم فى التراث القديم ( وما أروع أعضاءه ) تم عمل هذا التدرج اللونى لخلفية النموذج فى أكسس ومن المتعارف عليه أن هذا التنسيق لا يتواجد إلا فى وورد بالتحديد إذن كيف تم عمل هذا !! Crack-by-zahrah.rar

أشكرك شكراً جزيلاً أخى عمر ضاحى قمت بالتعديل فى الملف عندى طبقاً للأكواد الموضوعة فى توضيحك وكانت النتيجة ممتازة

السلام عليكم بالمثال التالى نموذج بسيط المطلوب فيه عند النقر على أي عنوان فيه ( ملف - اسم الموظف - الوظيفة ) يتم فهرسة محتوى هذا العمود تصاعدياً وبمعاودة النقر عليه يتم الترتيب تنازلياً .. وفيما يلى صورة للنموذج ومرفق مثال للتعديل عليه بالمرفقات db1.mdb

يبدو أن الموضوع صعب !!! بالطبع أستطيع وضع أمر طباعة فى كل تقرير ، لكن ماذا لو كانت التقارير عددها كبير جداً ؟ أو إظهار الواجهة أثناء تشغيل التقرير لأضع بها شريط الأدوات وبه أيقونة أمر الطباعة .. وهذا أيضاً غير مرغوب .

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

السلام عليكم عثرت على كود (سطوره قليلة جداً ) لإخفاء واجهة أكسس ، والأجمل أنه يعمل على جميع الإصدارات بدءاً من 2003 لكن بشرط التقيد بخصائص النموذج الرئيسى أن تكون فى تبويبات( التنسيق ، غير ذلك ) بمعنى تكون الاختيارات كالتالى : ' كود الوحدة النمطية ' Option Compare Database Option Explicit Global Const SW_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function ' كود حدث فتح النموذج Private Sub Form_Open(Cancel As Integer) fSetAccessWindow (SW_HIDE) End Sub لكن ماذا عن تعديل خصائص التقرير المرتبط به وخاصة إذا كان به إضافة شريط طباعة إضافى أعلاه مثل هذا : وهذه هى الخصائص المطلوب التعديل عليها : تحياتى للجميع

شكراً جزيلاً أبو عبدالله

تمام أخى أبو عبدالله يبدو أن التعديل فى هذا النموذج ( OnlyYou1 ) أخذ الكثير من جهد الزملاء (شكراً لهم) ولم يصل للمستوى المطلوب سوف أضيف بالملف المرفق التالى أسلوب أبو هادى فى البحث ( البحث يتم اثناء كتابة كل حرف ولكن سريع جداً) والمطلوب فقط وضع الكود المناسب لزر " حذف سجلات ناتج البحث " والاستغناء عن النموذج "OnlyYou1" db3.mdb

رجاء التعديل على كود البحث فى الملف السابق لأنه بطئ جداً db2.mdb فقد رأيت طرق بحث ممتازة للأخ الحبيب أبو هاجر قديماً لكن لم أستطيع توظيفه فى هذا الملف بدون استخدام نموذج فرعى

تم التعديل على هذا الملف من مشاركة الأخ العزيز / عبدالله بشير عبدالله Private Sub Form_Open(Cancel As Integer) Dim tb As DAO.Recordset ' التأكد من استخدام DAO Recordset Dim Q As Integer Q = DCount("*", "tbl_Student1") If Q > 0 Then Set tb = CurrentDb.OpenRecordset("tbl_student1", dbOpenDynaset) tb.MoveFirst Else MsgBox ("لا يوجد سجلات لعرضها "), vbOKOnly + vbMsgBoxRight, "تنبيه" Exit Sub End If Do While tb.EOF = False tb.Edit ' وضع السجل في وضع التحرير tb.Fields("OnlyYou") = False ' تعديل قيمة الحقل tb.Update ' تحديث السجل في قاعدة البيانات tb.MoveNext ' الانتقال للسجل التالي Loop tb.Close ' إغلاق الكائن بعد الاستخدام Set tb = Nothing ' إلغاء الإشارة إلى الكائن End Sub وإلى الآن التجربة مع المثال تبشر بعمل شبه كامل لكن لماذا عملية البحث بطيئة جداً بهذا الشكل ؟؟؟ db2.mdb

هل طلبي غير واضح ؟؟ مر تقريبا يوم كامل ، ولا يوجد رد سواء بالايجاب أو السلب ..

ما زال المثال يحتاج إلى الكثير من التعديلات ، فمثلاً إذا حذفت كامل السجلات يقطع البرنامج مساره برسالة خطأ وقد استطعت التغلب على هذه الرسالة من خلال التعديل على الكود السابق Private Sub Form_Open(Cancel As Integer) Dim tb As DAO.Recordset Dim Q As Integer Q = DCount("*", "tbl_Student1") If Q > 0 Then Set tb = CurrentDb.OpenRecordset("tbl_student1", dbOpenDynaset) tb.MoveFirst Else MsgBox ("لا يوجد سجلات لعرضها "), vbOKOnly + vbMsgBoxRight, "تنبيه" Exit Sub End If Do While Not tb.EOF tb.Edit tb.Fields("OnlyYou") = False tb.Update tb.MoveNext Loop tb.Close Set tb = Nothing End Sub كذلك لى بعض الملاحظات على عملية الفلترة من خلال تلك الصور أدناه

تمام حصل .. وأصلحت المكتبة المعطلة ( فى أكسس 2003 ) لكن ظهر خطأ آخر

بارك الله فيك أخى موسى ، وأطال الله عمرك ونفع بك تعديلك فى المثال ممتاز للبحث ، والحذف للسجلات المختارة بعد البحث جربته على أكسس 2010 وجدته يعمل بكفاءة لكن عند تجربته على أكسس 2003 وهو الإفتراضى عندى كانت هناك بعض أخطاء التوافق فى المكتبات لكن الغريب عندما أردت إضافة تلك المكتبات وجدت الأمر References باهت ولا يمكن اختياره أما بخصوص كلمة Name لم أجد لها تأثير فى أكسس 2003 .. لكن جاري تغييرها فى أصل التطبيق تحسباً لعدم تسامح البرنامج فى مواضع أخرى لكلماته المحجوزة

تمام كما أسلفت عدد السجلات يتجاوز ٤٠٠ سجل وبالبحث عن بدايات اسماء الحقول سوف يتقلص العدد الى ١٠ سجلات مثلا .. يمكن حينها اختيار ٣ سجلات منهم ، و يمكن حذفهم بالضغط على زر حذف المحدد ، وبالطبع يوجد رسالة تحذير من الحذف .. إذا أمكن هل هذا التعديل متاح ؟؟

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

شكراً لك للأسف ليس هو المطلوب لا أريد نموذج فرعى ، كما أن كلمة name ليست كلمة محجوزة ولا تؤثر فى عمل المثال البحث لم يتم تلقائياً بالحرف الأول ثم الثانى ثم الثالث من كتابة كلمة البحث كما أريد كذلك بعد الاختيار لا يتم حذف السجلات من قاعدة البيانات ، واصبح المثال مهنجاً

السلام عليكم هذا نموذج يحتوي على عدد كبير من الأسماء به حقل اختيار (نعم/لا) المطلوب تكرماً إضافة إمكانية البحث فى حقل الأسم بالحروف الأولى بحيث يجعل الاختيار سهلاً من خلال تقليص المعروض على النموذج دون اللجوء لتحريك الأسماء أعلى وأسفل من خلال مسطرة الإنزلاق وإذا تم حذف كل السجلات لا تخرج رسالة خطأ عقب هذا الحذف ( Debug ) مع جزيل الشكر مقدمأ db1.mdb

وجدت " كود " كنت قد استخدمته فى برنامج أكسل ويعتبر متوافق 100% مع الطريقة التقليدية فى حساب الفرق بين تاريخين بوضعهما يدوياً اسفل بعضهما ويتم الطرح مباشرة أو بالإستلاف Function d_ay(Calculate As Date, birth As Date) As Integer If Day(Calculate) >= Day(birth) Then d_ay = Day(Calculate) - Day(birth) Else d_ay = Day(Calculate) + 30 - Day(birth) End If End Function Function m_on(Calculate As Date, birth As Date) As Integer If Day(Calculate) >= Day(birth) Then If Month(Calculate) >= Month(birth) Then m_on = Month(Calculate) - Month(birth) Else m_on = Month(Calculate) + 12 - Month(birth) End If Else If Month(Calculate) > Month(birth) Then m_on = Month(Calculate) - 1 - Month(birth) Else m_on = Month(Calculate) + 11 - Month(birth) End If End If End Function Function y_er(Calculate As Date, birth As Date) As Integer If Day(Calculate) >= Day(birth) Then If Month(Calculate) >= Month(birth) Then y_er = Year(Calculate) - Year(birth) Else y_er = Year(Calculate) - 1 - Year(birth) End If Else If Month(Calculate) > Month(birth) Then y_er = Year(Calculate) - Year(birth) Else y_er = Year(Calculate) - 1 - Year(birth) End If End If End Function

شكراً على النصيحة لكن أأكد لك أن كل برامجى المصممة على أكسس 2000 وليست 2003 وحدها تعمل على كل الإصدارات التالية إنما كلامك _ أكيد _ أن كل البرامج المصممة على أكسس 2007 وما بعدها من المؤكد أنها لا تعمل على 2003

السلام عليكم الكود التالى هو الذى أستخدمه لإيجاد الفرق بين تاريخ الميلاد وتاريخ اليوم ليخرج عمر الموظف باليوم والشهر والسنة كذلك يتم استخدامه لإيجاد الفرق بين تاريخ الإحالة للمعاش وتاريخ اليوم ليخرج الزمن المتبقى على الخروج باليوم والشهر والسنة لأننى أحياناً أجد فرق يوم بين استخدام هذا الكود وبين الحساب اليدوى كما تعودنا قديماً Function d_ay(Calculate As Date, birth As Date) As Integer Dim m_on As Integer m_on = DateDiff("m", birth, Calculate) d_ay = DateDiff("d", DateAdd("m", m_on, birth), Calculate) If d_ay < 0 Then m_on = m_on - 1 d_ay = DateDiff("d", DateAdd("m", m_on, birth), Calculate) End If End Function Function m_on(Calculate As Date, birth As Date) As Integer Dim d_ay As Integer m_on = DateDiff("m", birth, Calculate) d_ay = DateDiff("d", DateAdd("m", m_on, birth), Calculate) If d_ay < 0 Then m_on = m_on - 1 End If m_on = m_on Mod 12 End Function Function y_er(Calculate As Date, birth As Date) As Integer Dim m_on As Integer, d_ay As Integer m_on = DateDiff("m", birth, Calculate) d_ay = DateDiff("d", DateAdd("m", m_on, birth), Calculate) If d_ay < 0 Then m_on = m_on - 1 End If y_er = m_on \ 12 End Function مرفق ملف مختصر للملف الأصلى به الكود المراد التعقيب عليه db1.mdb