Access XP

اضغط هنا

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

تم تعديل الكود db2.rar

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

تدلل يا أبو فراس إليك الملف بعد التعديل db2.rar

أخي الكريم : الحل الذي تطلبه موجود في سؤالك ، فبكل بساطة ضع العملية الحسابية التي ترغب بها في مصدر عنصر التحكم لمربع النص الذي ترغب باظهار النتيجة فيه مثلا : أنت تريد إظهار نتيجة قسمة SiteA على SiteB في مربع نص اسمه Result إذن : في مصدر عنصر التحكم لمربu النص المسمى Result أكتب : =[SiteA]/[SiteB]

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

تم التعديل حسب طلبك db2.rar

أرجو أن يكون هذا ما تريد db2.rar

أخي الكريم قم بعمل استعلام مشروط يتضمن البيانات التي تريد اظهارها بشرط تاريخ معين سأفترض بأن لديك نموذج اسمه ( Search ) وبه حقل التاريخ الذي تقوم انت بادخاله للاستعلام واسمه ( MyDate ) إذن في الاستعلام وفي حقل التاريخ في صف معايير اكتب : Like[Forms]![Search]![MyDate]

استخدم الكود التالي Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ' for more information, see the Access Help topic: KeyPress Event ' values 8, 9, 10, and 13 convert to backspace, tab, linefeed, and carriage return characters, respectively. Select Case KeyCode Case 33, 34 'If KeyCode is PAGEUP or PAGEDOWN then nullify them KeyCode = 0 End Select End Sub Private Sub Form_Load() Me.KeyPreview = True End Sub

قم بتعطيل Mouse wheel كما في هذا المثال http://www.lebans.com/DownloadFiles/A2KMouseWheelHook.zip

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

في الخصائص اختر التبويب ( تنسيق ) ثم حقل تنسيق اكتب : yyyy/mm/dd

http://www.7lem.com/vb/showthread.php?t=62724

الأخ / أبو عبد الرحمن لقد قمت بتنزيل وتجربة المثال المرفق ولم أصادف أى مشكلة فيه ... أنا أستخدم Office 2003 .... أعتقد أن المشكلة في الأوفيس لديك ... حاول تحميله مرة أخرى .

أضف شرطا لفتح التقرير ... ليكن مثلا رقم السجل مثال 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, , "SerialNo = forms!MyForm!SerialNo" 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

الأخ العزيز / مهند عبادي هذا الحل لم يجد نفعا حيث أن مربع النص الذي قمت باستحداثه لم يأخذ خاصية الضبط الكلي من الأداة . تحياتي لك :)

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

الأخ العزيز / مهند عبادي لقد قمت بتجربة الأداة يعد تعديلها وكانت رائعة الأداء ضمن التعديلات التي أجريتها عليها . ولكن بقيت بعض الملاحظات : خاصية ( قابلة للنمو ) لا تعمل رغم إضافتها . عند القيام بأية تعديلات على النص كإضافة حرف أو حذف حرف في الفورم فإن النص الذي يلي ذلك التعديل يتحول إلى المحاذاة اليمنى في حين يبقى النص السابق له على المحاذاة في حالة ضبط . عدم إضافة أشرطة تمرير للأداة . خاصية الضبط لا تعمل بشكل جيد مع بعض الخطوط العربية . أخيرا كل الشكر لك نيابة عن بقية الزملاء وأصالة عن نفسي مع أمنياتي لك بالتوفيق

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

أخي العزيز / مهند عبادي كل الشكر لك لسرعة تجاوبك وسعيك لمساعدة زملائك ولدى ملاحظة أخرى (( أرجو أن تكون الأخيرة )) هل يمكن جعل الأداة قابلة للنمو كما في مربع النص العادي ( أي أنها تتوسع عموديا حسب النص ) . وتقبل تحياتي وأمنياتي لك بالتوفيق

الأخ / مهند عبادي السلام عليكم ورحمة الله وبركاته لقد قمت بتجربة الأداة التي قمت بصنعها وهي فعالة في أداء عملها ولكن هناك بعض الملاحظات التي أتمنى عليك محاولة علاجها لأنني بحاجة ماسة لهذه الأداة : 1 - عند تغيير الخط و اللون في الأداة يتوقف الأكسس عن الاستجابة خصوصا في التقرير . (( يعلق )) . 2 - لا يمكن تغيير تأثيرات الشكل أي أنها دائما بشكل محفور . 3 - لا يمكن التحكم بالهوامش داخلها لمن يرغب بترك مسافة بين حافة مربع النص وبداية السطر . 4 - عدم وجود أشرطة تمرير في الأداة للنصوص الكبيرة . ملاحظة ( 1 ) : لقد قمت باتباع جميع الخطوات التي ذكرتها في ردودك السابقة على بقية الأخوة . ملاحظة ( 2 ) : أنا أستخدم Windows XP مع Access2003