كمبوبوكس متغير المصدر

[jo_2010]

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

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

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

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

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

APE_2023.accdb 2.14 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 58 downloads

[jjafferr]

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

 

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

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

	me.Code_snf.recordsouce= "RASED"

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

	me.Code_snf.recordsouce= "GRASED"

end if

 

جعفر

 

[jo_2010]

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

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

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

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

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

[jjafferr]

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

جرب

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

 

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

[jo_2010]

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

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

[jo_2010]

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

APE_2023_Stock.rarFetching info...

[أبوبسمله]

  في 30‏/1‏/2023 at 13:05, jjafferr said:

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

Expand  

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

كان لديك خطا فى اسم الاستعلام لجرجس الصحيح 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

بالتوفيق

[متقاعد]

جرب المرفق

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

 

 

APE_2023_Stock.accdbFetching info...

[أبوبسمله]

  في 30‏/1‏/2023 at 16:09, مبرمج متقاعد said:

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

Expand  

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

[متقاعد]

  في 30‏/1‏/2023 at 16:12, ابوبسمله said:

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

Expand  

ههههه

  في 30‏/1‏/2023 at 15:30, ابوبسمله 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

بالتوفيق

Expand  

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

[أبوبسمله]

  في 30‏/1‏/2023 at 16:15, مبرمج متقاعد said:

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

Expand  

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

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

[jo_2010]

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

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

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

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

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

[متقاعد]

  في 30‏/1‏/2023 at 16:50, jo_2010 said:

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

Expand  

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

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

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

"novacula Occami"

 

[jjafferr]

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

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

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

 

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

 

جعفر

1554.APE_2023.accdb.zipFetching info...

  في 30‏/1‏/2023 at 17:02, مبرمج متقاعد said:

"novacula Occami"

Expand  

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

 

  اقتباس

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

Expand  

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

 

جعفر

[متقاعد]

  في 30‏/1‏/2023 at 17:57, jjafferr said:

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

Expand  

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

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

  في 30‏/1‏/2023 at 17:57, jjafferr said:

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

Expand  

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

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

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

تحياتي

تم تعديل يناير 31, 2023 بواسطه مبرمج متقاعد
خطا املائي

[jjafferr]

  في 30‏/1‏/2023 at 18:51, مبرمج متقاعد said:

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

Expand  

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

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

 

جعفر

 

[متقاعد]

  في 30‏/1‏/2023 at 17:57, jjafferr said:

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

Expand  

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

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

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

تحياتي

[jjafferr]

  في 31‏/1‏/2023 at 10:26, مبرمج متقاعد said:

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

Expand  

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

 

جعفر

[متقاعد]

  في 31‏/1‏/2023 at 11:01, jjafferr said:

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

Expand  

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

  اقتباس

 

Expand  

 

[jjafferr]

شكرا اخوي خالد ، ذكرتني بايام زمان 🙂

 

جعفر

[أبوبسمله]

  في 30‏/1‏/2023 at 17:02, مبرمج متقاعد said:

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

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

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

"novacula Occami"

Expand  

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

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

 

  في 30‏/1‏/2023 at 17:57, jjafferr said:

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

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

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

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

جعفر

Expand  

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

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

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

 

[jo_2010]

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

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

تم تعديل فبراير 16, 2023 بواسطه jo_2010