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

السلام عليكم أخي باران ، بارك الله فيك الطريقة هي بإنشاء ما يسمى بماكرو AutoKeys 1. قم بإنشاء ماكرو جديد 2. من عرض view قم بإختيار Macro Names سيظهر عمود جديد 3. ضع بالعمود الجديد الإختار مثلا {f4} 4. إليك صورة عن طريقة الاختصارات 5. ضع ما تريد عمله في عمود action 6. من الضروري تخزين الماكرو بأسم autokeys يمكن عمل ماكروات لعدة أزار بتكرار الخطوات في نفس الماكرو السابق مع الاحترام والتقدير

السلام عليكم لا داعي لموضوع جديد ، فكما تلاحظ أنني قمت بتثبيت موضوعك الأساس لإهتمام الجميع مع الاحترام والتقدير

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

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

السلام عليكم نفرض أن زر الخيار اسمه option1 وأن مربع النص اسمه c في حدث بعد التحديث لزر الخيار تضع الكود التالي : Private Sub Option1_AfterUpdate() If Me.Option1 = True Then c = 500 Else c = 1000 End If End Sub مع الاحترام

السلام عليكم مبروك وصولك للحل .. أشكرك نيابة عن أخي رضوان حيث هو في إجازة حتى 15-8-2005 . مع الاحترام والتقدير

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

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

السلام عليكم ما تقوله صحيح ، تضع الكود التالي في وحدة نمطية Option Compare Database Option Explicit Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 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 On Error Resume Next Set loForm = Screen.ActiveForm If Err <> 0 Then loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then MsgBox "Cannot minimize Access with " _ & (loForm.Caption + " ") _ & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then MsgBox "Cannot hide Access with " _ & (loForm.Caption + " ") _ & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If fSetAccessWindow = (loX <> 0) End Function في النموذج المنبثق تصمم أزرار حسب الذي تريده تضع في حدث عن النقر له واحد من الأكواد التالية : fsetaccesswindow(1) fsetaccesswindow(2) fsetaccesswindow(3) حيث 0 للإخفاء ، 1 عرض عادي ، 2 للتصغير ، 3 للتكبير . مع الاحترام والتقدير

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

الجواب = نعم

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

السلام عليكم في المعيار للقيمة التي تريد ادخالها تضع الرسالة بين قوسين من النوع [ ] مع الاحترام

السلام عليكم أخي نورش ، حياك الله هذا مثال لما تطلبه أرجو تكييفه يما يناسب مسألتك =Format(Date(),"dddd"", ""mmm d yyyy") بالنسبة لباقي اللأمور ، ارجو منك رفع الملف وسنتعاون بإذن الله لتحقيق ما تطلبه. مع الاحترام والتقدير

السلام عليكم الأن وضحت الصورة السؤال لقسم الأكسل وليس للأكسيس تم تحويل موضوعك لقسم الأكسل مع الاحترام

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

السلام عليكم الأخ RAKABAWY ، بارك الله فيك في المرفق تجد طرقتين لحل المشكلة التي تطرحها الحل الأول : كما طلبت في مشاركتك . الحل الثاني : عندما نكون عند السجل الأول يجب أن يكون زر السابق غير مفعل ولا نستطيع الضغط عليه مع الاحترام والتقدير Navigation.rar

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

السلام عليكم نور ، بارك الله فيك السؤال يحتاج لمزيد من التفاصيل ، يرجى فضلا الإيضاح أكثر. مع الاحترام

السلام عليكم أشكرك أخي sx1 ، على هذه المعلومات ، وبصراحة أنا كنت أتوقع أن عملية التخزين إلى cd تحول القاعدة تلقائيا إلى Read Only ولكن لم أكن أعرف بأن الحل يكون بهذا الشكل. إن شاء تضبط الأمور مع أخي إسلامي . Dear Isalami Please let us informed with the results of brother sx1's suggestion مع الاحترام والتقدير

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

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

السلام عليكم أخي obaid70 ، حياك الله في المرفق ستجد أنني قمت بتصميم 10 أزرار لطباعة الملفات العشرة التي تريدها الطريقة التي تضع بها اسم الملف المطلوب هي كما يلي ، لنقل أنك تريد عند الضغط على زر طباعة الملف الثاني أن تطبع الملف الذي اسمه obaid.doc ملف وورد والموجود في الدليل الرئيس لجهاز التخزين :C ، فتقوم بما يلي : 1. تدخل لوضع التصميم للنموذج 2. تضغط على زر الماوس اليمين فوق زر الأمر الملف الثاني وتختار الخصائص properties من الصندوق الذي سيظهر وثم ستظهر لك الصوورة التالية : وبعدها تختار لسان التبويب حدث event وتدخل إلى إجراء حدث عند النقر وحينها سيظهر لك الكود التالي : Private Sub doc2_Click() Dim WordObj As Object Set WordObj = CreateObject("Word.Application") WordObj.Documents.Open "C:\file1.doc" WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing End Sub تغير اسم الملف فقط من file1.doc إلى obaid.doc وسيعمل معك البرنامج بإذن الله كما تود. تعمل نفس الشيء مع باقي الأزرار لتحدد أسماء الملفات التي تود طباعتها. مع الاحترام والتقدير DR_fix2.rar

وعليكم السلام أخي اسلامي ، بارك الله فيك لي عدة أسئلة حول موضوعك ... 1. هل تتحدث عن قاعدة بيانات أكسيس 2. عندما تقوم بنسخ القاعدة إلى CD هي يتم ضغطها أو ما شابه. 3. عندما تشغل القاعدة المنسوخة في كميوتر أخر ، هل تشغلها من ال Cd ام انك تنسخها إلى الكمبيوتر أولا. مع الاحترام والتقدير

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