biskra

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

بالنسبة لاٍخفاء حقل و الليبل في حالة عدم وجد البيانات بالحقل جرب الكود التالي: Me("ControlName").Visible = Not IsNull(Me("ControlName")) Me("LabelName").Visible = Me("ControlName").Visible أما بالنسبة لمجموعة من الحقول جرب الكود التالي: dim ctl as control for each ctl in me.controls if typeof ctl is textbox then ctl.visible=not isnull(ctl.value) end if next ctl الكود أعلاه يصلح للحقول التي خصائصها نص, أما اذا كانت نصية ,أرقام , شيك بوكس... جرب الكود التالي: dim ctl as control for each ctl in me.controls if typeof ctl is textbox or typeof ctl is combobox then if isnull(ctl.value) then ctl.visible=false elseif isnumeric(ctl.value) then ctl.visible=ctl.value<>0 else ctl.visible=true end if end if if typeof ctl is checkbox then ctl.visible=ctl.value end if next ctl هذه الأكواد يجب أن يتم وضعها في حدث عند التنشيط للتقرير في المقطع الذي توجد به الحقول المعنية. الكود الأول يجب تغيير اسم الليبل و اسم الحقل.

كمساهمة في الموضوع أرفق لكم هذه الداة لعدة وظائف اضافية و ما أعجبني فيها هو امكانية تصميم رسائل تنبيه جميلة و عربية و تمكنك من تجربة الرسالة قبل اعتمادها في البرنامج. طبعا يجب تسجيل الداة كوظيفة اضافية و تسجيلها في مراجع الفيجوال بيسك لتشتغل بصفة جيدة. UtilitiesAdd_In.rar

جربوا الكود التالي في حدث عند الصفحة للتقرير ميزته أنه يعطي عدد الصفحات و لن يفتح التقرير الا بعد الضغط على موافق If MsgBox("هذا التقرير يتضمن " & Me.Pages & " صفحة." & vbNewLine & _ "هل تريد بدأ الطباعة؟ ", vbOKCancel) = vbOK Then DoCmd.PrintOut End If DoCmd.Close acReport, Me.Name

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

أخي أمجد وقعت يدي على مثال من موقع أجنبي يشبه كثير المثال الذي قمت بتصميمه و هو جد رائع قد يعطيك افكار كثيرة عن الغاية المرجوة خاصة أن الكود الذي يعتمده سهل للفهم, أضعه في المنتدى ربما يسهل عليك تصميم مثال آخر يمكن استغلااه بسهولة. reminders_2000.zip

و الله يا أخي أمجد فكرة ADO لم تدخل دماغي الى اليوم كوني جد مبتدىء . قم بالتجربة على مثال و استخلص النتيجة.

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

جربت طريقة لاٍخفاء الجداول عن طريق تغيير مسمياتها باٍضافة كلمة usys عند بداية كل جدول, وأشتغلت القاعدة عاديا و استعملت الضغط و الاصلاح و لم تتأثر, رغم أن الجداول مخفية. توضيح: مثلا عندي جدول اسمه units نغير التسمية اٍلى usysunits فاْن الجدول يختفي تلقائيا دون الحاجة الى وضع كود.

الفكرة ممتازة جدا و يمكن اْستغلالها في اكثر من مجال, ها يمكن مثلا عمل زر لطباعة تقرير بالنسبة للموظفين الذين تخرج أسماءهم في رسالة التنبيه, ؟

أخ أمجد نزلت المثال و جربته و لكن لا تظهر أي رسالة تنبيه؟؟؟

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

أطلب رقم التسجيل للمشاركة في الوضوع: الرقم الذي ظهر هو55510 944

شكرا لكم جميعا تمكنت من ايجاد الحل لهذه المشكلة و نجحت العملية.

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

تم التنزيل و الملف يعمل عاديا, أعد تنزيل الملف , رسالة التنبيه التي تحدثت عنها تحدث عادة عندما لا ينزل الملف بشكل عادي.

اخي العزيز ربما بداية الحل و ليس الحل النهائي من هنا, الكود و الطريقة لتصميم الاتصال بالموديم بواسطة الأسس ي الرابط التالي: http://www.fabalou.com/Access/General/dialing_modem.asp

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

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

حتى بعد التصحيحات التي قام بها الأستاذ فهد ما زالت المشكلة قائمة خاصة بالنسبة للطباعة مباشرة أي دون معاينة, خاصة بعد الضغط على زر الطباعة أكثر من مرة لطباعة نفس التقرير, أتذر أنني شاهدت أحد الاٍخوة يتحدث عن المشكلة هذه و قال أنه وجد الحل عن طريق الكود التالي و قد قمت بتجربته لكن دون نتيجة و مع ذلك أضعه للمناقشة لأنه يتضمن بعض الأخطاء و لكن ذوي الخبرة ربما يسيتجون حلا منه. Sub PrintInvoice_Click() Dim strDocName As String strDocName = "Invoice" Dim I As Integer I = MsgBox("هل تريد معاينة التقرير ?", vbYesNo, strlbl) If I = vbYes Then DoCmd.OpenReport strDocName, acViewPreview, "Invoices Filter" Else DoCmd.OpenReport strDocName, acViewPreview, "Invoices Filter" DoCmd.PrintOut acPrintAll SendKeys "%{F4}", True End If End Sub

أرجو من الاٍخوة الذين يستعملون office xp تجربة الملف لنتأكد من المشكلة, office 2003 أنه لا مشكلة به.

أخي الكريم لقد جربت الملف المرفق و لاحظت ما يلي: باستعمال الأكسس 2003 فرنسي أي أنه عند الاطلاع على الأكواد فاٍن الأسماء المكتوبة بالعربية لا تقرأ أي تظهر علامات اٍستفهام عوض الحروف العربية, و مع ذلك اٍستغل الربنامج بصفة عادية رغم تكرار الطباعة أكثر من مرة لمحاولة اٍظهار الخطأ, و عليه الخلاصة المبدئية أنه يعمل عاديا على أكسس 2003 باٍستعمال أكسس xp يدعم العربية, ا{شتغل البرنامج عاديا في البداية و لكن مع تكرار الطباعة أكثر من مرة ظهرت المشكلة التي تحدثت عنها و يغلق التطبيق مباشرة بعد الطباعة. حسب رأيي فاٍن السبب يعود اٍلى اٍستعمالك اللغة العربية في تسمية الحقول, ليس هذا فقط بل أنك تركت مسافات أكثر من مرة في التسميات, و هذا يخالف قواعد تصميم قواعد البيانات, فالمتفق عليه أنه عند تصميم قواعد البيانات فيجب اٍستعمال اللغة الأجنبية في تسمية الحقول و الجداول و لو بنطق عربي مثلا مدير يمكن أن نسمي ذلك ب: moudir و في حلة استعمال اٍسم مركب في التسمية مثلا نريد أن نسمي حقلا ما text name فالطريقة السليمة هي text_name أي عدم ترك أي فراغ بين التسميات و هذا لكي لا تعترض مشاكل عند تنفيذ الأكواد من طرف البرنامج. اٍذا جرب اٍعادة تسمية الجداول و حقولها بالطريقة التي شرحتها لك و سوف لن تعترضك اٍن شاء الله أية مشكلة, و أستعمل خاصية تسمية توضيحية لاٍستعمال التسميات العربية. أرجو أن أكون قد وضحت.

في خاصية تصميم النموذج, التنسيق قابل للنقل لا , هذا هو الحل

هذا مثال عن المشكلة db16.rar

Private Sub cmdPrint5_Click() On Error Resume Next DoCmd.RunCommand acCmdSaveRecord Dim stDocName As String Dim intResponseToMsgBox As Integer intResponseToMsgBox = MsgBox("تأكد من أن الطابعة جاهزة ", vbOKCancel) If intResponseToMsgBox = vbOK Then DoCmd.OpenReport "affichage", acViewPreview, WhereCondition:=" PrintYesNo = False and notification=false " DoCmd.SetWarnings False DoCmd.SelectObject acReport, "affichage" DoCmd.PrintOut acPages, , , , 2 DoCmd.Close acReport, "affichage" DoCmd.RunSQL "Update tbl1 set PrintYesNo = true where PrintYesNo = false " DoCmd.SetWarnings True End If End Sub هذا الكود أستعمله بواسطة زر أمر للطباعة على نموذج, فهو يطبع التقريرaffichage متى توفرت الشروط المرتبطة, أضفت له خاصية طباعة التقارير على نسختين بواسطة الأمر DoCmd.PrintOut acPages, , , , 2, الأمر الى حد الآن سليم, فكلما أدخلت البيانات ثم عند الضغط على الزر للطباعة ينفذ الأمر لكن المشكلة تظهر عند الضغط على هذا الزر في حالة عدم وجود البيانات, فعوض أن ينفذ الأمر المرتبط بعدم وجود البيانات في التقرير فاٍنه يقوم بطباعة النموذج بعدد السجلات الموجودة مضروبة في 2 !!!!! هل من مساعدة لتجاوز هذه المشكلة.