ابو جودي

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

كيفية تنفيذ ما ذكرته المنتدى ملئ به لو بحثت وجدت ما تريد وان تعذر عليك شئ اسال وان شاء الله تجد الدعم

function لاى شئ ؟ حدد ماذ تريد اعط مثال والله المستعان

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

لا يخل بالإداء اعتقد لا يوجد شئ اسه الإعدادات أو اللمسات الأخيرة ليصبح برنامجي جاهزا للاستخدام كالمحترفين اهم شئ - سهولة تعامل ال end user اى المستخدم بكل سهولة ويسر بلا اى تعقيدات - الحفاظ على بنية البرنامج من العبث سواء بقصد او بدون قصد - الحفاظ ع بيانات البرنامج من العبث سواء بقصد او بدون قصد ايضا اما اللمساات التى تسال عنها انت من يجب ان يحددعا وفقا لاهداف برنامجك وتبعا للبنية وللتصميم الذى انشات القاعدة بهما

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

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

كانت الحقول الرقمية بالجدول الثانى Long Integer فقط قمت بتغيرها الى Double Acc_Naw.accdb

المثــــــــــــــــال السابع  ـــــــــــــــــــــــــــــــــــــ الدالة ( StrReverse ) تقوم هذه الداله بعكس النص المرر لها وتستخدم كالتالى StrReverse(StrJudy) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "officena" 3 MsgBox (StrReverse(StrJudy)) النتيجة ---- aneciffo ممكن تشغل خيالك وتستخدمها مع الحماية   --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 007- StrReverse - عكس النص.mdb

المثــــــــــــــــال السادس  ـــــــــــــــــــــــــــــــــــــ الدالة ( Left ) تستخدم هذه الداله لاستخلاص جزء من الجهه اليسرى من النص ونمرر لها وسيطين الوسيط الاول وهو source وهو النص الاصلى الوسيط الثانى وهو length هو طول النص الذى تريد استخلاصه من النص الاصلى من الجهه اليسرى من النص وتستخدم كالتالى Left(StrJudy, 6) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love (officena.net)" 3 MsgBox (Left(StrJudy, 6)) النتيجة --- I Love العكــــــــــس الدالة ( Right ) تستخدم هذه الداله لاستخلاص جزء من الجهه اليمني من النص ونمرر لها وسيطين الوسيط الاول وهو source وهو النص الاصلى الوسيط الثانى وهو length هو طول النص الذى تريد استخلاصه من النص الاصلى من الجهه اليمني من النص وتستخدم كالتالى Right(StrJudy, 14) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love (officena.net)" 3 MsgBox (Right(StrJudy, 14)) النتيجة --- (officena.net) ----------------------------------------- الطريقة الاخيرة وهى الدالة ( Mid ) عن طريق هذه الداله ممكن استخلاص نص من البداية التى تحددها والطول الذى تحدده من النص الاصلى ونمرر لها ثلاث وسطاء الوسيط الاول وهو source وهو النص الاصلى الوسيط الثانى وهو بداية الحرف فى النص الذى سوف يتم البدأ فى الاقتصاص منه الوسيط الثالث وهو length وهو طول النص الذى تريد استخلاصه من النص الاصلى بداية من الحرف الذى تم تحديده فى الوسيط الثانى وتستخدم كالتالى Mid(StrJudy, 9, 8) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love (officena.net)" 3 MsgBox (Mid(StrJudy, 9, 8)) النتيجة ---- officena.net  --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 006- Left & Right & MId - استخلاص جزء من النص .mdb

المثــــــــــــــــال الخامس  ـــــــــــــــــــــــــــــــــــــ الدالة ( UCase) تستخدم هذه الداله لتحويل حروف النص المرر لها الى حروف كبيرة وتستخدم كالتالى (UCase(StrJudy)) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر Private Sub BtTestU_Click() 1 Dim StrJudy As String 2 StrJudy = "I LoVe ofFiceNa.net" 3 MsgBox (UCase(StrJudy)) End Sub لاحظ معى حالة احرف النص --- يحتوى على احرف طبيرى واخرى صغيرة I LoVe ofFiceNa.net الدالة ( LCase) تستخدم هذه الداله لتحويل حروف النص المرر لها الى حروف صغيرة - عكس السابقة  --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 005- UCase & LCase - الحروف الكبيرة والصغيرة.mdb

المثــــــــــــــــال الرابع  ـــــــــــــــــــــــــــــــــــــ الدالة ( RTrim) تستخدم لحذف الفراغات ( المسافات ) الموجودة على يمين النص وتستخدم كالتالى RTrim(StrJudy) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = " I Love officena.net " 3 MsgBox (Trim(StrJudy)) لاحظ معى المسافات قبل وبعد النص " I Love officena.net " الدالة ( LTrim) تستخدم لحذف الفراغات ( المسافات ) الموجودة على يسار النص - عكس السابقة --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 004 - LTrim & RTrim - حذف مسافات يمين ويسار النص.mdb

المثــــــــــــــــال الثالث  ـــــــــــــــــــــــــــــــــــــ الدالة ( Trim) تستخدم لحذف الفراغات ( المسافات ) الموجودة على يمين ويسار النص وتستخدم كالتالى Trim(StrJudy) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = " I Love officena.net " 3 MsgBox (Trim(StrJudy)) لاحظ معى المسافات قبل وبعد النص " I Love officena.net " --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 003 - Trim- حذف مسافات يمين ويسار النص.mdb

المثــــــــــــــــال الثانى ـــــــــــــــــــــــــــــــــــــ الدالة ( len ) تستخدم لمعرفة طول النص (عدد الاحرف) طبعا هذه الداله تقوم بعد الاحرف وكذلك الفراغات (المسافات ) بين الاحرف وتستخدم كالتالى Len("النص المراد معرفة طوله") وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love officena.net" 3 MsgBox (Len(StrJudy)) --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 002 - len - طول النص .mdb

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

السلام عليكم ورحمة الله تعالى وبركاته ------------------------------------------------- ما سوف اتناوله هنا ان شاء الله فى موضوعى هذا طرح الاكواد بالامثلة التى تساعد المبتدئين امثالى مع الشرح المبسط قدر الامكان لاننى مع الحكمة التى تقول " القارئ كالحالب والسامع كالشارب " وهنا انا احورها لتصبح صانع المثال كالحالب ومحلل المثال كالشارب فصانع المثال يفكر ويتعب ويبذل الجهد لصنع مثاله ام المحلل الذى يتلقاه جاهزا يستمتع بتناول الافكار والتعلم ببساطة دون عناء ولاننى لا اقوى ولا استطيع الحفظ ولكن بمجرد فهمى للكود داخل مثال عملى تتسارع وتتوالى الافكار بعكس التعامل النظرى اقدم هذه السلسلة من الطروحات البسيطة بالطريقةالتى احب انا اتناولها وخى بالنسبة لى اكثر طريقة تساعدنى على الفهم اولا سلسلة دوال التعامل مع النصوص وبما اننا سنتناول تلك الدوال اولا لنتعلم الاعلان عن المتغير النصى داخل محرر الاكواد String: هو متغير نصي يتسع هذا المتغير النصي إلى 2 جيجا بايت و كل حرف يشغل 1 بايت نحجر متغير لاسناد قيم نصيه له نسمى هذا المتغير مثلا >------>> StrJudy يتم الاعلان عنه كلاتى Dim StrJudy As String وبعد ذلك نعطي قيمة لهذا المتغير باسناد نص - اما مباشرة بكتابة النص مباشرة داخل محرر الاكواد - او من خلال >------>> اى عنصر فى النموذج | او حتى من خلال الدالة >------>> DLookup لجلب القيمة النصية من جدول او استعلام وهنا للتبسيط استخدم الطريقة المباشرة StrJudy = "I Love officena.net" وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love officena.net" 3 MsgBox (StrJudy) --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 001 - اعلان عن متغير نصي.mdb

بعد اذن والدى الحبيب واستاذى الجليل ومعلمى القدير المبجل الاستاذ @ابوخليل انا حضرت الجواب ولما وجدت مشاركتك استحييت ان اضع الاجابة التى فكرت بها وعلى استحياء اضح هذا الكود بدون استخدام كود تصييد الاخطاء Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acCommandButton Then If Not IsNull(ctl.Tag) Or ctl.Tag <> "" Or ctl.Tag <> Null Then If Dir(PicBt & ctl.Tag & ".bmp") = "" Then If Dir(PicBt & "0.bmp") = "" Then Exit Sub Else ctl.Picture = PicBt & "0.bmp" End If Else ctl.Picture = PicBt & ctl.Tag & ".bmp" End If End If End If Next ctl Exit Sub

اتففضل New Microsoft Access قاعدة بيانات.accdb

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

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

اولا الموديول 'المســـار الحالى لقاعدة البيــــانات .... Public Function AppPath() As String AppPath = CurrentProject.Path & "\" End Function تم الاعلان العام عن متغير نص يجلب مسار قاعدة البيانات يتم استدعاءه فى اى جرء من قاعدة البيانات كالاتى AppPath ----------- ' المســـار الحالى لمجلد صور الازرار.... Public Function PicBt() As String PicBt = AppPath & "Picture Bbutton" & "\" End Function تم الاعلان العام عن متغير نص والذى يجلب مسار المجلد المضمن فى نفس مسار قاعدة البيانات يتم استدعاءه فى اى جرء من قاعدة البيانات كالاتى PicBt ولاحظ الاتى AppPath هو المتغير الاول الذى تم الاعلان عنه فى الجزء الاول من الموديول وهو المسار الرئيسي لقاعدة البيانات "Picture Bbutton" اسم المجلد بجوار قاعدة البيانات والذى سوف نستخدمه لوضع الصور طبعا كان ممكن دمجهما مهما ليصبحا كالاتى Public Function PicBt() As String PicBt = CurrentProject.Path & "\" & "Picture Bbutton" & "\" End Function ولكن افضل الفصل ليتم استدعاء كل منهما بسهوله حسب الحاجة فيما بعد ------------------- الان الكود المستخدم عند الفتح للنموذج Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acCommandButton Then If Not IsNull(ctl.Tag) Or ctl.Tag <> "" Or ctl.Tag <> Null Then ctl.Picture = PicBt & ctl.Tag & ".bmp" End If End If Next ctl Exit Sub End Sub الاعلان عن متغير ctl ك عنصر تحكم For Each للدوران على (كل) شيء ، اى للدوران على كل العناصر وهنا يتم الدوران على كل العناصر التى تم اسناده الى المتغير ctl وهنا واتتنى الفكرة بعمل ذلك لان الازرار كثيرة جدا قمت باسناد الازرار فقط ليتم الدوران عليها فقط دون غيرها من باق العناصر داخل النموذج ولذلك استخدمت ctl.ControlType = acCommandButton وهنا فى هذا السطر Not IsNull(ctl.Tag) Or ctl.Tag <> "" Or ctl.Tag <> Null Then اخبر الكود انه عند الدوران على الازرار داخل النموذج ينظر الى قيمة التاج فان كانت غير فارغه يكمل باقى الكود ctl.Picture لجلب صورة عنصر التحكم (زر الامر) من PicBt المسار المحدد سلفا فى الموديل لمجلد الصور ctl.Tag اسم الصورة والذى يساوى التاج على عنصر التحكم (زر الامر) ".bmp" امتداد الصورة

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

هذا القسم تعليمى للاسف كان اولى بك وضع مشاركتك فى قسم https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء-فقط-فى-مجال-الموقع/

على فكرة انا مش عارف افهم اى شئ وللاسف فهم السؤال نصف الاجابة

1- انشئ موديول جديد وضع به هذا الكود Option Compare Database Option Explicit Public Function GetWaiting(strData As String) DoCmd.OpenForm "frmWaiting" Forms!frmWaiting!lblWaiting.Caption = strData Pause 0.1 End Function Public Function Pause(NumberOfSeconds As Variant) On Error GoTo Err_Pause Dim PauseTime As Variant, Start As Variant PauseTime = NumberOfSeconds Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Exit_Pause: Exit Function Err_Pause: MsgBox Err.Description Resume Exit_Pause End Function 2- قم بنقل النموذج frmWaiting من المثال المرفق 3- فى نموذج البحث فى قاعدتك اذهب الى زر الامر الخاص بالبحث وضع به هذا الكود On Error Resume Next Call GetWaiting("برجاء الإنتظار .. جارى معالجة البيانات............") .......... هنا كود البحص الخاص بك مكان هذا السطر .............. DoCmd.Close acForm, "frmWaiting" بس خلاص