اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم ورحمة الله وبركاته

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

واحببت تخصيص عنوان جديد لهذا المشروع حيث نضب ما عندي ،

 ولأفسح المجال هناك للافكار الجديدة ولزيادة واستمرار المشاراكات من الاخوة الزملاء الاعضاء .

ملحوظة :

من فترة ليس بالقصيرة نهجت في التصميم طريقا مغايرا  لطريقة اكسس الكلاسيكية

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

من عيوب  هذه الطريقة انها لا تلقي اي اعتبار  لوقت وجهد المستخدم .

آمل ان تجدوا في العمل شيئا جديدا وأفكارا نافعة 

 

 

dbskn.mdb

  • Like 8
  • Thanks 1
قام بنشر

فعلا أستاذي العزيز 

برنامج يحمل أفكارا رائعة ولا تخرج إلا من عقل مفكر 

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

لك كل الاحترام والتقدير أخي العزيز أبو خليل 

 

تم الاحتفاظ به في المفضلة لدي 

 

قام بنشر

الاستاذ / الجليل والمعلم الفاضل / ابو خليل 

بيض الله وجهك فعلا تعبت واثمرت جزاك الله كل خير 

واصبح الآن كل شئ تمام الله يفتح عليك

وعلي ماقال استاذنا الفاضل / مسفر  ليس لي عذرا 

كل الاحترام والتقدير لمعلمنا الجليل

قام بنشر

استاذنا الكبير ابو خليل..

دائما مبدع في مواضيعك...

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

قام بنشر
1 ساعه مضت, ابوخليل said:

السلام عليكم ورحمة الله وبركاته

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

واحببت تخصيص عنوان جديد لهذا المشروع حيث نضب ما عندي ،

 ولأفسح المجال هناك للافكار الجديدة ولزيادة واستمرار المشاراكات من الاخوة الزملاء الاعضاء .

ملحوظة :

من فترة ليس بالقصيرة نهجت في التصميم طريقا مغايرا  لطريقة اكسس الكلاسيكية

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

من عيوب  هذه الطريقة انها لا تلقي اي اعتبار  لوقت وجهد المستخدم .

آمل ان تجدوا في العمل شيئا جديدا وأفكارا نافعة 

 

 

dbskn.mdb 344 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 6 downloads

برنـــــــــامج رائـــــع يسلموا ايديــــــــك معلم @ابوخليل

 

تابعت الشغل منذ الصفر 

واستفدنا الكثير من طريقة عمل النماذج 

نتمنى منكم المزيد من الموسوعة العلمية التي تملكون 

فيضوا من علمكم على الغلابة  :signthankspin:

قام بنشر

والله ياجماعة الخير جميع اعضاء المنتدي

المفروض تشكروني انا كمان علي سهر الليالي من اجل هذا العمل  طبعا امزح بالمصري بهزر معكم

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

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

احيانا معلمنا يضغط عليا في بعض الامور ولكن في النهاية اصعب عليه ويرجع بالرد فانا مؤمن ان المعلم حين يهتم بطالب يقسو عليه لكي يفيده

وياشيخنا الجليل كم انا حزين جدا لسحب شهادتك لي فهي المرة الاولي في حياتي التي اكون فيها علي غير حسن ظن اي دكتور قام بتعليمي حرفا واتاسف لك لاني سببت لك بعض الغضب

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

اسف جدا لا ادري لماذا كتبت هذا

 

قام بنشر (معدل)

أيضا تعلمت شيء من هذا العمل المبارك هو : كلما نضج المبرمج وزاد علمه حاول اختصار أعماله وبرنامجه من الحقول والجداول والنماذج والاستعلامات والتقارير .

فيخرج العمل صغير الحجم كبير النفع .

وهذا ما يصنعه علماء الشريعة الإسلامية حينما يختصرون الفنون في المتون العلمية لطلاب العلم ليحفظه كما يقال

من حَفِظَ المُتُون حَازَ الفُنُون )

من زاد علمه وتفحصه وكثر نظره وعطاءه في البرمجة حاز فنونها :biggrin:

تم تعديل بواسطه ابوآمنة
  • Like 1
قام بنشر (معدل)

وعليكم السلام ورحمة الله وبركاته

بارك الله فيك استاذ ابو خليل

عاشت ايدك

تم تعديل بواسطه athal
قام بنشر
18 hours ago, مسفر said:

نيابة عن أخي أبو خليل 

تجده في الاستعلام أخي qassim-t 

بهذا الشكل 

[forms]![frmain]![etar]

بناء عليه يتم تغير  الطوابق 

اشكرك كثيرا استاذ مسفر..

اعتزازي وتقديري للاستاذ الكبير ابو خليل

قام بنشر

السلام عليكم جميعا احبتي

لماذا استخدم استاذنا ابو خليل  الكود التالي لفتح النموذج ولم يكتفي ب

Docmd.open form "frmain"

 

cmdshow.PNG

  • Like 1
قام بنشر
12 دقائق مضت, qassim-t said:

السلام عليكم جميعا احبتي

لماذا استخدم استاذنا ابو خليل  الكود التالي لفتح النموذج ولم يكتفي ب

Docmd.open form "frmain"

 

cmdshow.PNG

وجهة نظري المتواضعه انه هناك أمور يعرفها الاخ @ابوخليل ونحن نجهلها

لذلك سننتظر رأيه وشرحه للموضوع ونستفيد 

نحن متعودون على كتابة 

on error resume next

docmd.openform"formname",acnormal

  • Like 1
قام بنشر
6 minutes ago, عبد اللطيف سلوم said:

وجهة نظري المتواضعه انه هناك أمور يعرفها الاخ @ابوخليل ونحن نجهلها

لذلك سننتظر رأيه وشرحه للموضوع ونستفيد 

نحن متعودون على كتابة 

on error resume next

docmd.openform"formname",acnormal

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

  • Like 1
قام بنشر
42 دقائق مضت, qassim-t said:

السلام عليكم جميعا احبتي

لماذا استخدم استاذنا ابو خليل  الكود التالي لفتح النموذج ولم يكتفي ب

Docmd.open form "frmain"

 

cmdshow.PNG

هنا تم عمل الكود من خلال معالج اكسس وخو من تلقاء نفسه يكتب الامر بتلك الطريقة ولا فرق بين النتيجتين

يعنى يمكن فتح النموذج بتلك الطريقة ايضا

Docmd.openform "frmain"

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

حيث قمت بإلغاء زرى الامر والخاصين بتسجيل الدخول وتسجيل الخروج لاستبدالهما بزر امر واحد فقط ويقوم بعمل الزرين مجتمعين :wink2:

dbskn.mdb

قام بنشر

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

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

تجدون ادناه شرح لاسطر الكود وبعض الملاحظات

Private Sub cmdshow_Click()
On Error GoTo Err_cmdshow_Click 'عند الخطأ اذهب الى  تفاصيل الخطأ
    Dim stDocName As String  '  اعلان عن متغير نصي يمثل اسم الفورم
    Dim stLinkCriteria As String '  اعلان عن متغير نصي يمثل المعيار او الشرط
    stDocName = "frmain"
    DoCmd.OpenForm stDocName, , , stLinkCriteria ' هنا وضعنا المعيار رغم انه لا يحمل قيمة
   Exit_cmdshow_Click: ' سطر الخروج
    Exit Sub  ' اخرج من الحدث
Err_cmdshow_Click: ' تفاصيل الخطأ
    MsgBox Err.Description ' رسالة تحتوي على تفاصيل الخطأ
    Resume Exit_cmdshow_Click ' ارجع الى سطر الخروج
   
 ' --------------------------------------------
   'DoCmd.OpenForm "frmain", acNormal ' يمكن الاكتفاء بهذا السطر عن كل ما سبق
   '  ولكن الاخطاء ستظهر في حال وجودها ولكن بدون تفصيل '
End Sub

اما السطر :
on error resume next
فأنصح بعدم استخدامه مطلقا الا في حدود ضيقة  للضرورة وهي عند وجود اخطاء منطقية

وظيفة هذا السطر انه يقفز ويتخطى الأخطاء 

ففي مثال الاخ عبد اللطيف لو حدث خطأ فإنه سيقفز الى end sub وينهي الحدث وحينها لن يفتح النموذج ولن تعرف السبب

  • Like 4
قام بنشر (معدل)

العفو منكم استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل :fff:

بل كل الشكــــــــــــــر والتقدير لكم انتم منكم نتعلم حتى كيف نفكر 
اعتذر انا على سفر ارجو قبول اعتذارى لايجازى بالرد عليكم 

كما اعتذر لنسيانى تقديم الشكر على هذا العمل الاكثر من الراااااااااااااااااااائع

كما اعلم الدكتور @حلبي اننى اغار منه بسبب انه سأل سؤال واحد ويرزقه الله بالاجابة من معلمى القدير واستاذى الجليل بهذا الشكل الذى لم يختر على بال :wink2:

كما اتمنى ان سمح وقتكم يا والدى الحبيب العمل تحت مظلتكم بمشروع برنامج الصادر والوارد :biggrin: ام اغير اسمى من محمد الى حلبى :wink2:

تم تعديل بواسطه ابا جودى
قام بنشر

السلام عليكم 🙂

 

في الواقع مو غريب على محترف مثل اخونا العود ابو خليل ان يوجز في برنامجه ويُبدع 🙂

هذا الايجاز يجي بعد تحليل دقيق ، وتفكير في كيفية عمل وربط الاشياء ببعض ، يعني يأخذ وقت في التخطيط ، ثم ينفذ المشروع بنجاح 🙂

 

جعفر

  • Like 3
قام بنشر
14 دقائق مضت, ابا جودى said:

اعتذر انا على سفر ارجو قبول اعتذراى لايجازى بالرد عليكم 

 :biggrin: ام اغير اسمى من محمد الى حلبى :wink2:

حفظك الله في حلك وترحالك 

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

  • Thanks 1
  • Haha 1
قام بنشر
16 دقائق مضت, ابوخليل said:

حفظك الله في حلك وترحالك 

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

جزاكم الله خيرا كثيرا كثيرا كثيرا

اذا انا انتظر مثل هذه الشهادة من والدى ولن اتلقاها الا برحابة :wink2: :biggrin: ولا تقلق انا لا اتأثر :biggrin: افعل معى ما شئت وكيفما شئت

قام بنشر
1 ساعه مضت, ابوخليل said:

ففي مثال الاخ عبد اللطيف لو حدث خطأ فإنه سيقفز الى end sub وينهي الحدث وحينها لن يفتح النموذج ولن تعرف السبب

معلمنا @ابوخليل

ما هو البديل ؟؟

كل برامجي اضع هذا الكود ولا اعرف غيره

on error resume next 

 

قام بنشر
25 دقائق مضت, عبد اللطيف سلوم said:

كل برامجي اضع هذا الكود ولا اعرف غيره

on error resume next

 

راجع هذا الرابط ، والذي فيه رابطين 

 

وهذا

 

جعفر

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information