نجوم المشاركات

الله الله عليك استاد / شفان والله انت جميل

استاذنا الافاضل اذا تسمحون لنا بالمداخلة نريد ان نضيف هذا الكود مع الكود السابق البحث لكي يبحث لنا كل اسماء وليس اسم الاول فقط للتوضيح مثلا عدنا 2 اسماء باسم احمد عند البحث راح يعطيك الاس الاول وبواسطة ازرار اذا تروح الى سجل الاخر مباشرتا راح يعطيك الاسم اللي بعده لكن اذا تستخدم هدول سوى عند تضغط على الزر راح يروح على اسم الثاني اي احمد الثاني Private Sub fsearch_AfterUpdate() If Not IsNull(Me.fsearch) = True Then Me.RecordSource = "SELECT names.id, names.tname FROM [names] WHERE (((names.tname)=[Forms]![names]![fsearch]));" Else Me.RecordSource = "SELECT names.* FROM [names]" End If End Sub Private Sub fsearch_Change() DoCmd.SearchForRecord acDataForm, "names", acFirst, "[tname]='" & Me.fsearch & "'" End Sub بهذا الكود بعد تحديث لكومبوبوكس اي بعد البحث سيكون مصدر النموذج هو تلك السجلات اللي يساوي مع الاسم المختار في كومبوبوكس واذا بيكون الكومبوبوكس فارغة ما بها اي اسم سيختار كل السجلات من جديد db.rar

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

السلام عليكم أولا قمت بتغيير اسم الحقل name في الجدول names إلى tname و ذلك لأن name كلمة محجوزة داخل الأكسس. ثانيا: أضف هذا الكود في حدث عند التغيير: DoCmd.SearchForRecord acDataForm, "namess", acFirst, "[tname]='" & Me.fsearch & "'" و هذا هو التعديل db.rar

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

كنت أريد أن أقوم بإخفاء شاشة الاكسيس ، فقمت بالبحث فى المنتديات الاجنبية و وجدت هذة الطريقة و جربتها و كانت سليمة 100 % و نبدأ بالخطوات : 1 - نسخ هذا الكود و لصقة فى module و نسمية باى اسم فهذا لا يهم Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Dim dwReturn As Long Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function ---------------------- 2- قم بعمل ماكرو أسمة mcrHide ضع بة اكشن run code و فى خانة Function ضع الكود التالى fAccessWindow ("Minimize", False, False) ------------------------------ 3 - قم بعمل ماكرو أخر أسمة mcrRestore ضع بة نفس الاكشن السابق run code و فى خانة Function ضع الكود التالى fAccessWindow ("Show", False, False) ------------------------------- 4 - الأن الخطوة الاكثر مللاً إذا كانت لديك العديد من النماذج قم بتغيير خصائص كل النماذج : popup قم بتحويلها إلى yes بدلاً من no ------------------------------- 5- فى النموذج الرئيسى الذى تريدة ان يبدأ بالفتح ضع الكود التالى : Private Sub Form_Open(Cancel As Integer) DoCmd.RunMacro "mcrHide" End Sub ----------------------------- 6 - فى كل التقارير ضع الكود التالى عند الحدث OnOpen DoCmd.RunMacro "mcrRestore" و عند الحدث OnClose DoCmd.RunMacro "mcrHide" ------------------------------- و بهذا تكون قد إنتهت الخطوات ربما تظهر انها خطوات طويلة ، لكنها طريقة فعالة جداً و تعطى منظر إحترافى جميل للبرنامج و اعتذر للإطالة و تحياتى للجميع New_Microsoft_Access_Application.rar

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

هنا قاعدة بيانات اكواد VBA للاكسل مع الشرح والامثلة ((( مرجع للجميع ))) السلام عليكم ورحمة الله وبركاته الفكر من الموضوع عمل قاعدة بيانات باكواد VBA للاكسل مع الشرح والامثلة ((( تكون مرجع للجميع ))) امل من الجميع اثراء الموضوع ....

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

السلام عليكم أعضاء المنتدي الكرام محتاج كود اكسس 2010 لعرض سيريال الهارد الحقيقي الثابت الذي لا يتغير حتي لو عملنا فورمات للهارد جربت برامج كتير موجوده اكسس ولكن دون جدوي لايظهر الرقم الحقيقي جزاكم الله كل خير

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

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

مبروك كلمة أقولها من قلبي أهنيك فيها على ما رزقك ربي عساه من الصالحين يكون و عساه بالفرح يملا الكون وبالنجاح إن شاء الله يرفع راسك لفوق وتفتخرون به وين ما يكون مبروك ألف مبروك

ريما كان الحل هنا Mon_Equipe.rar

شكرا جزيل للاستاذ شفان وكل الاخوة الافاضل الذين شاركوا حتى تعم الفائدة

شفاك الله اخوي وما تشوف شر

شفاك الله وعافاك أخي شفان ريكاني وشفا جميع مرضى المسلمين امين

الجمال يرجع لعيونك اخي حلبي شكرا لك

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

اخي الكريم السلام عليكم ورحمه‌ الله وبركاته اسف على التأخير الرد اذا انا ما كان على الخطأ احنا عملنا على نموذج اسمه رسوم التعليم 1 وليس Aliform1 لذا تقدر تشوم ما عملنا في النموذج رسوم التعليم 1 اعمل نفس الشي في اي نموذج تريد تحياتي

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

افتح نموذج في وضع تصميم في خصائصه كابشن caption اكتب اي اسم تريد تحياتي

الطريقة تختص ب 2007 وما فوق

نحن نفتخر بك نعلم في كل حالات عندك حل تاني شكرا لانك معنا

انا عندي نسخة من ذلك البرامج لكن السنخة المجانية وبواسطته تقدر ان تعمل تغيرات على النموذج ولكن هم لا تقدر تتوصل الى الاكواد تحياتي

استخدم هذا G1: IIf(IsNull([gustid_G]![Expr1]);"لايوجد";[gustid_G]![Expr1])

اخواني الاعزاء عندي لم يكن هناك اي مشكلة ولم تظهر رسائل قام بالبحث في منتهي الجمال جزاك الله خيرا استاذ / صالح

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

السلام عليكم جرب هذا ووافنا بالنتائج قد وجدت المشكة فى ازدواج فى مصدر بيانات الفورم الرئيس فلا داعى لوجود جدولين بمصدر بيانات الفورم طالما هناك فورم فرعى وتم الربط بينهما 037.rar

وعليكم السلام ورحمة الله وبركاته جرب هل هذا ما تريد لا تنسا موافتنا بالنتائج db.rar

وايضا يرجي متابعة الرابط التالي به الحل شرح فيديو للقدير / عبد الفتاح كيرة حذف الاتباطات التشعبية جملة واحدة من ملف وورد شرح فيديو

رااااااااااااائع جزاكم الله خيرا

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

جرب وبفكره اعتقد سهله ... استخدمت استعلام ليغني عن الكود .. وطبعا يمكن ان تكون الفكره بكود وبداله تستدعى في النموذج بالتوفيق تلوين السجلات1.rar

اتفضل هذا الكود بيعطيك سريال نمبر لمزربورد Const Arr = 1 Public Function GetPCInfo() 'You need to have Microsoft WMI Scripting v2.1 library Registered in your references DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" For i = 0 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("form2")(fld) = varSerial(i) Next DoCmd.Hourglass False End Function خذت من موقع اجنبي وغدا ان شاء الله راح ارفع لك نموذج على ذلك تحياتي

فورم بحث واضافة وحذف صف وتعديل بيانات وشرح عمل ازرار بالفورم فيديو 47 فيديو الشرح اسم البرنامج بحمل من النت بدون اجر Button Shop 4 تحميل خارجى للملف فورم بازرار.rar

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

السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذا الموضوع قد قتل بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكن هو طلب لأحد الاعضاء ( الاخ الكريم / alredha ) ولكني اردت ان اجعله موضوع بعنوان واضح ليستفيد من الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة افتتاحية باسم مستخدم ورقم سري ولايظهر الاكسيل الا بعد اعطاء الشاشة البيانات الصحيحة وطبعاً والاكيد كله من علمكم اساتذتي الكرام وفي الدرس القادم سنتعرف علي طريقة عمل اكواد الشاشة لتعمل معنا علي اي برنامج لدينا او اي برنامج سنقوم بتصميمه فيما بعد جزاكم الله خيرا اساتذتنا طريقة عمل الشاشة الافتتاحية شرح علي الورد1.rar شرح عمل شاشة افتتاحية فيديو1.rar طريقة عمل الشاشة الافتتاحية اكسيل1.rar

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

موفق بأذن الله بارك الله فيك

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

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

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

ملحق الدرس الرابع الخاص بالرسائل نستعرض هنا الرساله التى تحتوى على مربع ادخال بيان قد يكون اسم ما وقد يكون كلمه سر للدخول فيما يختص بالجزئية الأولى يكون كود الرساله بهذا الشكل وهذا الكود على سبيل المثال Sub example() Dim result As String result = InputBox("Text?", "Title") If result <> "" Then End If End Sub فتكون الرساله بهذا الشكل كما بالصورة التالية وإذا أفترضنا أننا نريد أن يجعل الاكسل يظهر الاسم او الكلمه التى ستكتب داخل هذا المربع فيكون الكود بهذا الشكل Sub example_1 () Dim result As String ("result = InputBox("Text ?", "Title", "write the name If result <> "" Then MsgBox result End If End Sub الاختلاف بين الكودين فى اضافة هذه الجملة Msgbox result وهى تعنى ظهور رساله تاليه بها الجملة التى تم ادخالها بالمربع فتظهر الرساله كما بالصورتيين التاليتين بعد كتابه الاسم على سبيل المثال تظهر الرساله بالشكل التالى نأتى لجزئية كلمة السر لقد جعلت الكود خاص بالمثال العملى المرفق يختص بالدخول الى الشيت الثانى وقد سجلت الكود بمحرر الأكواد الخاص بحدث الشيت الثانى أى داخل الصفحه نفسها من خلال الفيجوال بيسك وان شاء الرحمن سوف نتطرق لأمر الأكواد بشىء من التفصيل فى الدروس القادمة وما هو الفرق بين الكود داخل موديول أو بحدث الشيت أو بحدث المصنف بالكامل والكود الخاص برساله كلمه السر كالتالى Private Sub Worksheet_Activate() xx: Dim x x = InputBox("Password required" & Chr(13) & "يلزم معرفة كلمة السر للدخول لهذه الصفحه ", "فضلاً أدخل كلمة السر") If IsNull(x) Or x = "" Then GoTo xx If x = "بسم الله" Then MsgBox "كلمة السر تم قبولها تفضل لتنفيذ العمليه" Else MsgBox "Wrong Password" & Chr(13) & " عفواً لم تدخل كلمة السر الصحيحه سيتم العوده بك للصفحة الرئيسيه !!", vbOKOnly Sheets("sheet1").Activate End If End Sub فعند محاولة الدخول للشيت الثانى تظهر لنا الرساله كما بالصورة التالية وعند كتابة كلمه السر وهى بسم الله بين الكلمتين مسافة واحده فقط تظهر لنا رساله بهذا الشكل وبالضغط على زر OK يتم الدخول الى الشيت الثانى فى حال كوننا لم ندخل كلمه السر الصحيحة تظهر لنا رساله توضح ذلك وتنتقل مباشرة الى الشيت الأول والرساله كما بالشكل التالى مرفق ملفين الأول ملحق الدرس الرابع PDF الثانى مثال عملى لما ورد بالدرس وتقبلوا منى وافر الاحترام والتقدير ملحق الدرس4.rar مثال عملى ملحق الدرس 4.rar

من هنا http://www.officena.net/ib/index.php?showtopic=55142 وهنا نكون وصلنا الى نهاية الدرس وسيتم قفل الموضوع وفي حال الاستفسار حول جزئية معينة من هذا الدرس فتح موضوع جديد والاشارة الى مكان الاستفسار داخل هذا الدرس

السلام عليكم ورحمة الله وبركاته كثر السؤال عن استخدام الاكواد في عملة انظمة للفلترة وكيفية استخدامها وهنا مرفق مبسط لشرح آلية فلترة البيانات وكيفية التعامل معها وباغلب جوانبها وحاولت التبسيط على قدر الامكان حتي يتم استيعابها بشكل افضل اخوكم عماد الحسامي نظام فلترة البيانات.rar

السلام عليكم ورحمة الله وبركاته استكمالا للسلسلة التعليمية للجمل الشرطية وبما ان الموضوع الاول كان بسيط وعدم وجود استفسارات على آلية الموضوع فأرتأيت طرح الجزء الثاني من الموضوع وهو شرح جملة الانتقال الشرطية if then else وهنا مرفق يشرح القاعدة بطريقة سهلة وبسيطة واتمتى التوفيق للجميع أخوكم عماد الحسامي if then else.rar