الدكتور خضر الرجبي

السلام عليكم اخي الدكتور جابر الشيمي ، بارك الله فيك لم استطيع القيام بما تطلب مني ، لانك في برنامجك ترجع للقاعدة وهي ليست متوفرة لدي Set db = Workspace(0).OpenDatabase("i:\gaber\gs.MDB") بالنسبة للمراجع فجيد أنك وجدتها وحتى المرجع (microsoft access 10.0 object library) يجب أن يعمل، ولكني أود التنويه مرة اخرى الى أن ترتيبها أيضا مهم لكي يعمل البرنامج بالشكل الصحيح راجع الترتيب اعلاه (في التعقيبات السابقة) وتأكد أنه نفس الترتيب الذي عندك وان لم يكن فاستخدم الاسهم بجانب Priorty (الاولوية) للترتيب الصحيح. اتمنى أن ينجح الامر وان لم ينجح فارجو اعلامي . مع الاحترام

السلام عليكم أخي سهل ، بارك الله فيك إقتراح صائب ، مع أني اعتقدُ أنه بوجود القاعدة عندكَ ووجودها على السيرفر تستطيع الدخول والتسجيل وذلك ما أفعلهُ انا وأنجح، فلا حاجة لوجودنا جميعا online. وبالرغم من ذلك فسأكون online اليوم (إن شاء الله) بتوقيت فلسطين الساعة 6 مساءً . مع الاحترام

السلام عليكم اخي aameranan ، بارك الله فيك أداة ActiveX وهي تقوم بالمطلوب . الطريقة : انزل البرنامج على حاسوبك من هـنــا. ادخل الى تصميم النموذج وسجل الاداة عن طريق tools ، ActiveX ، Registraion وبعدها يمكنك استخدامه لعرض أي رسم متحرك بطرق مختلفة وجميلة عن طريق Insert، ActiveX أيضا في النموذج. مع الاحترام

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

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

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

السلام عليكم اخي mohammed55 ، بارك الله فيك جهد مشكور ، رائع جدا ، كنت أول المبتدئين بالعمل وأول المنهين له. بارك الله في همتك وجعل عملكم في موازين حسناتكم. طبعا العمل الذي انجزته ، كامل ، ودقيق ، ستسمع مني قريبا بإذن الله بشأن البرنامج وتطوراته. وشكرا لك على محاولاتك الرائعة. بإنتظار أن اسمع قريبا من أخوي الباشق و mzaki . مع الاحترام

السلام عليكم أخي bash20000 ، بارك الله فيك ان كان رقم المشكلة هو 256986 فالحل موجود هنـــا وأن لم يكن نفس الرقم فأرجو تزويدنا بالرقم أو بنص المشكلة كاملا. في كل الاحوال انصحك أن تكون حذرا في محاولة حل هذه المشكلة لأنه يبدو لي أنها حساسة بعض الشيء. مع الاحترام

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

السلام عليكم اخي gs7581 ، بارك الله فيك خطوتين وتحل المشكلة ان شاء الله وهي : وبالمناسبة ، ما هي نتيجة اعادة التجزئة ، ارجو اعلامي ، وبالتوفيق . مع الاحترام

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

السلام عليكم اخي aameranan ، بارك الله فيك بما أن AnimatedGif ليس من العناصر القياسية التي تتعامل معها النماذج في أكسس ، فلا بد من أن توفر أداة (برنامج) خارجي ، يتعامل مع عرض هذا النوع من الرسوم. ثم من داخل النموذج تضيف إطار كائن غير منضم وتختار في ذلك الكائن اسم الرسم الذي تريده. مع الاحترام

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

السلام عليكم أخي أبا هادي ، بارك الله فيك أولاً: أشكرك على تثبيت الموضوع. ثانياً : أشكرك على تفاعلك مع الموضوع . ثالثاً : أعدك بأنني سأدرس كل ملاحظاتك واقتراحاتك بعناية فائقة. أود الاشارة هنا أخي أبا هادي، أن الموضوع كبير والافكار التي تدور في رأسي كثيرة وكبيرة ولكني أحببت بمثالي الاولي الذي رفعته أن اشارك اخواني الاعضاء بما افكر به، راجيا من الله أن نصل معا الى ما ينفعنا ويسهل أمورنا. مع الاحترام

السلام عليكم اخي mwak14 ، بارك الله فيك أرفق ملفك هنا وان شاء ستجد من يساعدك مع الاحترام

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

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

السلام عليكم إخواني الاعضاء ، بارك الله فيكم كيف نستطيع استثمار المعلومات الموجودة في منتدى اوفيسنا بأسهل وأسرع وأحسن الطرق وتكون في متناول أيدينا كمرجعنا الأساسي في تطبيقات أوفيس. هذا ما كان يشغل بالي في الفترة الأخيرة حيث بدأت مع أخوة من الأعضاء في مشروع استغلال وتنظيم الأمثلة وفي نفس الوقت كنت أفكر بالمعلومات في المشاركات في كل المواضيع. أخواني الأعضاء كما وعدت سابقا أنه سيكون الكثير من المشاريع الرائدة في هذا المنتدى وهذا منها. ما هو المشروع ؟ هذا المشروع يقوم تلقائيا بتصنيف أي موضوع يختاره الشخص ويستعرضه بطريقة مريحة وسهلة وسريعة. فوائد المشروع : 1. تكوين مرجع محلي على الهارد ديسك للموضوعات ذوات الاهتمام للأعضاء كل حسب رغبته طبعا. 2. يتعامل هذا المشروع مع كل المنتديات في اوفيسنا بدون استثناء. 3. يمكن من خلال هذا الموضوع طباعة ملخصات ورقية عن موضوع ما أو حتى كتب . التطلعات المستقبلية القريبة: 1. تطوير أداة للبحث بعدة طرق مفيدة جدا للوصول إلى المطلوب بسرعة. 2. ربط هذا المشروع بطريقة أو أخرى بمشروع الأمثلة. 3. تطوير إجراءات الطباعة. 4. معالجة احتياجات وملاحظات الأعضاء. أرجو من إخواني الأعضاء التفاعل لإنجاح هذا المشروع وذلك من خلال ملاحظاتكم واقتراحاتكم . أرجو تجربة المشروع قبل التفاعل وإبداء الآراء وهو شبه جاهز. مع احترامي وتقديري لكم

السلام عليكم أخي أبا هادي ، بارك الله فيك ، لروعة الحل، يعجز لساني عن شكرك ، لم أغير حرفا في الكود ، واشتغل 100% في الوضع القياسي الذي أريده. أخي أبا هادي ، ماذا حدث بمشروع اوقات الصلاة لماذا لا اراه في الاعلى ؟! مع الاحترام

السلام عليكم إخواني الاعضاء ، بارك الله فيكم أرجو مساعدتي في حل هذه المسألة وإليكم تفاصيلها ، يوجد عندي ملف من نوع text وأود نسخ محتويات هذا الملف برمجيا ووضعها في حقل أو جدول في قاعدة البيانات. أرجو ملاحظة ما يلي : 1. أنني احاول في المثال المرفق عمل ذلك بواسطة Docmd.TransferText ولكني لم أنجح حتى الان. 2. إذا اردتم تجريب المثال المرفق (تشغيله) يجب أن يكون الملف OfficenaTempText على جهاز التخزين الصلب \:C وفي الدليل الرئيسي. 3. يفضل بالنسبة لي نقل محتويات هذا الملف إلى الحقل Text في الجدول ImpTexts بحيث يكون نوع الحقل مذكرة (Memo) طبعا هذا الوضع القياسي الذي احتاجه وهو ليس شرطا. وتفضلوا بقبول فائق الاحترام والتقدير Copying.rar

السلام عليكم اخي ابافيصل ، بارك الله فيك بالاضافة الى استخدامات هذا الاقتران التي سأتتطرق لها هنا ، وبرأيي الشخصي أن هذا الاقتران موجود في الاكسس للتعويض عن مشكلة موجودة في الاكسس. للنظر للمثال التالي : R = IIf(Mark >= 50, "Pass", "Fail") واضح من خلال هذه المسألة أنه اذا كانت قيم المتغير Mark أكبر من أو تساوي 50 فإن نتيجة R ستكون Pass أي ناجح والا Fail أي راسب. المشكلة في المثال السابق تكمن عندما لا يكون هناك قيمة في Mark (يعني في هذه الحالة تكون Mark = Null) وفي هذه الحالة يحدث خطأ في الجملة السابقة. لحل الخطأ نضع الكود بالطريقة التالية: R = IIf(Nz(Mark) >= 50, "Pass", "Fail") وما عنيته بالتعابير التي سألت عنها فهو ما يلي : Nz(me.txtin,"") أي أذا لم يكن في txtin قيمة فأرجع قيمة فارغة والا يرجع القيمة الموجودة في txtin ويمكن استخدامه بالشكل التالي على سبيل المثال Nz(me.x,10) أي اذا كانت x ليس فيها قيمة أو Null أو 0 فأرجع الرقم 10 والا يرجع x طبعا. ويمكن استخدامه هكذا أيضا Nz(me.y,"not good") أي اذا كانت قيمة y ليس فيها قيمة أو Null أو 0 فأنه يرجع Not good والا يرجع قيمة y ويمكن استخدامه كما يلي : Nz(DCount("CustId","Customers"),0) وهنا اخي أبا فيصل ، لو تم استخدام الامر DCount بدون Nz وكان الجدول Customers خاليا من السجلات لحدث مشكلة ولكن بفضل Nz يرجع لنا 0 في حالة عدم وجود سجلات في Customers . كما قلت لك سابقا فإن هذا الاقتران يعوض المشكلة السابقة المعروضة. واستطيع أن اقول لك أنه يكاد لا يخلو برنامج من استخدام لهذا الامر المهم جدا ويحل المشكلة المطروحة. أرجو أن أكون قد وفقت في إيصال المعلومة المطلوبة في سؤالك. مع الاحترام

السلام عليكم اخي فتى الوادي ، بارك الله فيك هذه مداخلة فقط ، وليست محاولة لمتابعة الموضوع، وعذرا لأنني لست خبيرا في الموضوع. ميكروسوفت تنصح باستخدام ما يسمى منطقة الشبكة التخزينية (Storage Area Network SAN) عند استخدام قواعد البيانات على السيرفير وهو ما لا يكون مفعلا بشكل تلقائي في SQL Server . لمعرفة كيفية عمل ذلك يرجى الضغط هنا وتعتبر هذه الطريقة حسب رأي ميكروسوفت (وهم الاكثر خبرة في هذا المجال) أحسن طريقة للتعامل مع السيرفير وأحسن طريقة لأستغلال طاقاته وبالتالي تسريع القاعدة وهو المطلوب في المسألة. مع الاحترام

السلام عليكم أخي mzaki ، أخي الوحيد ، بارك الله في جهودكما . المسألة المطروحة ليست بالبساطة التي تتوقعانها ، فقد أخذت وقت وجهد كبيرين من اخينا محمد طاهر لحلها وإليكم حله مقتبسا من برنامجه لمعالجة موضوع الترقيم التلقائي على الشبكات. Function checkid() As Long Dim formid As Long, Tblmax As Long formid = Me.id Tblmax = Nz(DMax("[id]", "names")) If formid <= Tblmax Then checkid = Tblmax + 1 Else checkid = formid End If End Function Sub GetNewID() Dim LastID As Long, NewID As Long On Error Resume Next If Nz(Me!name) = "" Then MsgBox "you must Enter a name" Me!name.SetFocus Exit Sub End If LastID = Me.id Do Err.Clear If Me.NewRecord Then Me.id = checkid() NewID = Me.id End If DoCmd.GoToRecord , , acNewRec Loop Until Err.Number <> 2105 If NewID > 0 And NewID <> LastID Then MsgBox "The new ID is " & NewID End Sub وطبعا اذا واجهتكم اي صعوبات في فهم الطريقة والكود ارجو عدم مراجعتي في الموضوع لأن القاعدة الشرعية تقول " إذا حضر الماء بطل التيمم" لذلك عليكم بالاخ محمد طاهر أو الاخ ابا هادي فهما ابطال هذا الموضوع. مع الاحترام

السلام عليكم أخي gs7581 ، حياك الله من الصعب علي ترجمة كل شيء ، ولكن على الاقل أود أن انصحك ابتداءً أن تقوم بإعادة التجزئة على الهارد ديسك الذي فيه القاعدة وأنا شبه متأكد أن مشكلة السرعة سوف تحل وإليك الخطوات وهي بسيطة جدا: والخطوة الثانية بعدما يفتح البرنامج هي مع ملاحظة أن هذه العملية تأخذ وقت طويل فأرجو عملها بعد انتهاء عملك على الحاسوب في الليل مثلا ويجب عدم استخدام الحاسوب خلال تنقيذ هذه العملية. أتمنى أن تحل المشكلة ، والا سنتابعها بطريقة اخرى ان شاء الله. اجمالا، الجهاز الذي لديك حسب المواصفات المذكورة يعتبر سريع نسبيا ويفضل أيضا وجود ذاكرة RAM فيه لا تقل عن 512KB . مع الاحترام

السلام عليكم أخي الوحيد ، بارك الله فيك إذا كنت في وضع التصميم للإستعلام ، لجعل عنوان الحقل في استعلام يختلف عن اسم الحقل من الجدول ، فالامر بسيط ، قبل اسم الحقل ضع الاسم الذي تريده وبعدها (أين بين الحقل والعنوان) ضع : بالشكل التالي : name : الاسم إذا كنت في وضع عرض SQL ، فإنك تدخل التسمية السابقة بعد الحقل كما يلي: الاسم name AS مع ملاحظة أنك اذا كنت قد ادخلت عنوان (caption) للحقل في الجدول فإنه يعتمده في الاستعلام ولا يأخذ بالتسمية أعلاه. مع الاحترام