اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السادة الخبراء الافاضل عندى برنامج بسيط للمرضى ويقوم بادخال المرضى 2 موظفين واحد صباحا والاخر مساء

اريد عند الدخول باسم المستخدم مريم كلمة السر 123 يكون مصدر بيانات الكمبوبوكس Code_snf من استعلامRASED

واذا كان دخول المستخدم جرجس كلمة السر000 يكون مصدر بيانات الكمبوبوكس Code_snf من استعلامGRASED 

اليكم نموذج للتعديل علية

شكرا لكم جميعا على تعاونكم السابق والاتى 

Untitled.jpg

APE_2023.accdb

قام بنشر

وعليكم السلام جوزيف 🙂

 

وبدون ان انزل المرفق ، الكود يكون شيء من هذا القبيل في حدث "عند تحميل النموذج" :

if me.user = "مريم" then

	me.Code_snf.recordsouce= "RASED"

elseif me.user = "جرجس" then

	me.Code_snf.recordsouce= "GRASED"

end if

 

جعفر

 

قام بنشر

المعلم الجليل JJAFFERR

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

اود ان اخبر حضرتك بان النموذج الموجود بة CODE_SNF نموذج فرعى 

النموذج الرئيسى ياخد اسم المستخدم من نموذج PASSWORD

شكرا لمساعدتك التى تقدمها لنا 

Untitled.jpg

قام بنشر

الظاهر ان الشيب والمرض مجتمعين يدوخون الواحد 😞

جرب

if me.parent!user = "مريم" then

	me.Code_snf.rowsource= "RASED"
    me.Code_snf.requery

elseif me.parent!user = "جرجس" then

	me.Code_snf.rowsource= "GRASED"
	me.Code_snf.requery
  
end if

 

وما قادر اشغل برنامجك لأنه فيه اخطاء او نواقص 😞

  • Sad 2
قام بنشر

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

احب اعرفك انى تلميذ فاشل ومش عارف اشغل الكود فشلت فشل زريع

  • أفضل إجابة
قام بنشر
2 ساعات مضت, jjafferr said:

الظاهر ان الشيب والمرض مجتمعين يدوخون الواحد 😞

الف سلامه عليك اخى ومعلمى العزيز جعفر شفاك الله وعافاك ربنا ينعم عليك بالصحه والعافيه 💐

كان لديك خطا فى اسم الاستعلام لجرجس الصحيح G_RASED بدل من GRASED

وطالما نموذج الباسورد مفتوح مخفى فاخدت القيمه مباشره منه

If Forms!password!un = "مريم" Then
    Me.Code_snf.RowSource = "RASED"  
Else 'If Forms!password!un = "" Then
    Me.Code_snf.RowSource = "G_RASED"
End If

بالتوفيق

  • Like 1
  • Thanks 1
قام بنشر
2 دقائق مضت, مبرمج متقاعد said:

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

عقدنى انا كمان ونسانى وضع المرفق 😀

  • Thanks 1
  • Haha 1
قام بنشر
3 دقائق مضت, ابوبسمله said:

عقدنى انا كمان ونسانى وضع المرفق 😀

ههههه

44 دقائق مضت, ابوبسمله said:

وطالما نموذج الباسورد مفتوح مخفى فاخدت القيمه مباشره منه

If Forms!password!un = "مريم" Then
    Me.Code_snf.RowSource = "RASED"  
Else 'If Forms!password!un = "" Then
    Me.Code_snf.RowSource = "G_RASED"
End If

بالتوفيق

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

  • Like 2
قام بنشر
9 دقائق مضت, مبرمج متقاعد said:

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

احسنت اخى ومعلمعى العزيز خالد وجزاك الله عنا كل خير

تحياتى لكم اخوانى ومعلمينى الافاضل واسال الله لكم العفو والعافيه فى الدنيا والاخره

  • Like 1
قام بنشر

شكرا لكل الخبراء الافاضل اللى ساعدونى فى الوصول لما اريد ادام اللة لكم علمك الغزير

وجعل مساعدتكم لى فى ميزان حسناتكم

خالص الشكر للخبير جعفر

خالص الشكر للخبير  ابوبسمله

خالص الشكر للخبير مبرمج متقاعد

  • Like 1
قام بنشر
11 دقائق مضت, jo_2010 said:

وجعل مساعدتكم لى فى ميزان حسناتكم

بالتوفيق استاذ يوسف

واحسنت اختيار الاجابة الافضل

اذا كان هناك اكثر من حل فان الحل الاسهل هو الافضل

"novacula Occami"

 

  • Like 1
قام بنشر

في الوقت اللي الشباب اشتغلوا على الاجابة ، انا كنت مشغول في حذف الكود اللي ما له داعي !!

انت عملت حقول وازرار في النماذج ، وبعدين حذفت حقول وازرار من النماذج ، وابقيت الكود !!

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

 

في كل صفحة كود ، جمعت لك جميع الاكواد اللي لا تنحذف في اسفل الصفحة ، وعملتها كملاحظة حتى لا تشتغل ، ويمكنك حذفها اذا اردث 🙂

 

جعفر

1554.APE_2023.accdb.zip

56 دقائق مضت, مبرمج متقاعد said:

"novacula Occami"

ما لقيتها في جوجل ، فقلت اسالك عنها 🙂

 

اقتباس

تَيَّمَ قَلْبِي بِالْكَلاَم .. وَفِي الْحَشَا مِنْهُ كِلاَم
فَصِرْتُ فِي أَرْضٍ كُلاَم .. لِكَيْ أَنَالَ مَطْلَبِي
بِالْفَتْحِ قَوْلٌ يُفْهَمُ .. وَالْكَسْرِ جُرْحٌ مُؤْلِمُ
وَالضَّمِّ أَرْضٌ تُبْرِمُ .. لِشِدَّةِ التَّصَلُّبِ

وهاي اريد لها تفسير لوسمحت 🙂

 

جعفر

  • Like 2
  • Thanks 1
قام بنشر (معدل)
9 ساعات مضت, jjafferr said:

ما لقيتها في جوجل ، فقلت اسالك عنها 🙂

كلمة باللاتينية تعني مبدأ اوكام او نصل اوكام

وهو مبدأ يتبني نظرية التقتير وملخص الامر اذا تساوت الحلول فأن الحل الاسهل هو الافضل

9 ساعات مضت, jjafferr said:

وهاي اريد لها تفسير لوسمحت 🙂

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

ثم تختم الرباعية ببيتين تشرح معنى الكلمة بنفس الترتيب والشرح في البيتين الاخيرين ليس لقطرب وانما لابن رزيق .

اخيرا اتمنى الا يكون في الامر مخالفة لقوانين الموقع والا فاتوقف والتزم بالقوانين .

تحياتي

تم تعديل بواسطه مبرمج متقاعد
خطا املائي
  • Like 2
قام بنشر
12 دقائق مضت, مبرمج متقاعد said:

اخيرا اتمنى الا يكون في الامر مخالفة لقوانين الموقع والا فاتوقف والتزم بالقوانين .

يا رجال ، احنا بعد عندنا حس فني ، مو بس اكسس اكسس 😁

وشكرا جزيلا على الشرح ، اصبحت الابيات واضحة الآن 🙂

 

جعفر

 

  • Like 1
قام بنشر
16 ساعات مضت, jjafferr said:

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

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

ولكني توقفت عند استخدام if اربع عشرة مرة في حدث واحد

ومع كل ذلك يكفي الاستاذ jo انه عمل برنامج جميل يخدمه في عمله

تحياتي

  • Like 1
قام بنشر
33 دقائق مضت, مبرمج متقاعد said:

ومع كل ذلك يكفي الاستاذ jo انه عمل برنامج جميل يخدمه في عمله

العفو ، هذا لا يختلف عليه اثنين ، وعندي خبرة سابقه مع برنامج عمله لدكتور الاسنان ، كان العمل عليه شيّق وممتع 🙂

 

جعفر

  • Like 1
قام بنشر
19 دقائق مضت, jjafferr said:

العفو ، هذا لا يختلف عليه اثنين ، وعندي خبرة سابقه مع برنامج عمله لدكتور الاسنان ، كان العمل عليه شيّق وممتع 🙂

اعتقد ⬇️ هذا الموضوع

اقتباس

 

 

  • Like 1
قام بنشر
23 ساعات مضت, مبرمج متقاعد said:

بالتوفيق استاذ يوسف

واحسنت اختيار الاجابة الافضل

اذا كان هناك اكثر من حل فان الحل الاسهل هو الافضل

"novacula Occami"

لا استطيع ان اقول شىء بعد معلمى

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

 

22 ساعات مضت, jjafferr said:

في الوقت اللي الشباب اشتغلوا على الاجابة ، انا كنت مشغول في حذف الكود اللي ما له داعي !!

انت عملت حقول وازرار في النماذج ، وبعدين حذفت حقول وازرار من النماذج ، وابقيت الكود !!

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

في كل صفحة كود ، جمعت لك جميع الاكواد اللي لا تنحذف في اسفل الصفحة ، وعملتها كملاحظة حتى لا تشتغل ، ويمكنك حذفها اذا اردث 🙂

جعفر

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

ولا انسى انه البرنامج فعليا عقدنى 😀

تقبلوا تحياتى اخوكم الصغير احمد

 

  • Thanks 2
  • 3 weeks later...
قام بنشر (معدل)

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

لكم الشكر جميعا

تم تعديل بواسطه jo_2010
  • Thanks 2

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