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

سؤال فى الاختيار من كمبوبوبكس


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

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

 

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

 

كمان لو تم اختيار  part number   من الكمبوبوكس الاول اسفل العنوان  Select Part Number
وتم الضغط على مفتاح انتر كذلك يتم تغير البيانات اسفل النموذج كذلك الحال مع الكمبوبوكس الثانى اسفل العنوان Select Size
 

ايضا لو تم الكتابه للبارت نمبر فى الكمبوبوكس الاول او الثانى عند الضغط على انتر فى كل مره يتم تغيير البياانت 
اريد ايقاف تغير البيانت عند استمرار الضغط على المفتاح enter من الكيبورد

 

 

ارجوا الافاده ارجوكم جزاكم الله خيرا
T.rar

رابط هذا التعليق
شارك

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

 

أظن السبب أخي الكريم محمد هو أنهم كلهم مرتبطين بجدول واحد وهذا هو سبب تغير البيانات

 

سؤال.. هل البارت نمبر له أكثر من مقاس؟؟ لو كان كذلك فلما لم تعمل له جدول مستقل

وتضع في استعلام مربع التحرير والسرد ComboSize هذا المعيار

[forms]![dataentry]![Combopn]

اعذرني ان كنت لم افهم السؤال

رابط هذا التعليق
شارك

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

 

 

البارت نمبر الواحد ليس له اكثر من مقاس
ولكن المقاس الواحد له اكثر من بارت نمبر

رابط هذا التعليق
شارك

إذن فلماذا النموذج نسخة من  dataentry مصدره جدول كود؟

ولماذا لا تجعلهم جدولين

جدول المقاسات وجدول البارت نمبر مرتبط به

بحيث كل مقاس يحوي بداخله البارت نمبر

رابط هذا التعليق
شارك

إذن فلماذا النموذج نسخة من  dataentry مصدره جدول كود؟

ولماذا لا تجعلهم جدولين

جدول المقاسات وجدول البارت نمبر مرتبط به

بحيث كل مقاس يحوي بداخله البارت نمبر

مش عارف انا بدات البرنامج كده ومخترش على بالى انى اقسمهم 

طيب وماذا لو تمت القسمه على جدولين ؟!

هل تنتهى تلك المشكلة

رابط هذا التعليق
شارك

وعليكم السلام أخي محمد

 

انا انزلت البرنامج ، وما صار شئ لما ضغطت على Enter !!

 

رجاء التوضيح بتفصيل أكثر ، بالكلمات ، واذا اردت بالصورة ، فخير  :smile:

 

 

جعفر

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

جارى تحضير الصورة يا افندم

 

رابط هذا التعليق
شارك

 

وعليكم السلام أخي محمد

 

انا انزلت البرنامج ، وما صار شئ لما ضغطت على Enter !!

 

رجاء التوضيح بتفصيل أكثر ، بالكلمات ، واذا اردت بالصورة ، فخير  :smile:

 

 

جعفر

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

جارى تحضير الصورة يا افندم

 

 

اتفضل الصوره يا استاذ جعفر

1430672424841.gif

لاحظ حضرتك عند الضغط على الانتر حتى لو التركيز مش على الكمبوبكس تتغير القيم 

وكذلك لو تم كتابة قيمه داخل البارت نمبر بالضغط على انتر للمره الاول تاتى البيانات المطابقه للمدخل ولكن لو تم الضغط على مفتاح الانتر ولو بالخطأ تتغير البيانات 

رابط هذا التعليق
شارك

كما قلت سابقا ، انا لا يحصل عندي هذا الشئ  :smile:

 

ولكن ، غير اعدادات النموذج من

All Records

الى

Current Record

مثل الصورة:

attachicon.gif67.Clipboard01.jpg

 

 

جعفر

 

 

تم التعديل استاذى كما تفضلتم ولكن لكن نفس المشكلة قائمه كما هى 

رابط هذا التعليق
شارك

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

انا مثلا عندى  البارت نمبر ده

DR15348T

 

عاوز لما اكتبه فى مربع التحرير والسرد يكتب لى باقى البيانات اللى بتظهر تحت فى اسفل يسار الكود
واصلها موجود فى السطر ده فى الجدول  code
1430676992671.jpg

والشكل ده من النموذج

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

اعتقد والله اعلم

ان المشكلة عند محمد فقط

جرب احد الاجرائين التاليين .. جرب الاول وان ما نفع جرب الثاني

 

الاول : اعمل قاعدة بيانات جديدة ثم اسحب جميع الكائنات من القديمة

اذا ما نفع او صادفك خطأ عند استيراد البيانات اعمل الثاني

الحل الثاني : احذف الاوفيس ونصبه من جديد

رابط هذا التعليق
شارك

رحم الله والديك أخوي أبوخليل ، صرت في فريقنا  :smile:

 

أخي محمد ، صرنا ثلاثه (انا وراعي الغنم وأبوخليل) نقول النسخة مافيها شئ  :smile:

 

 

جعفر

اتفقتوا عليه طيب ما نا امصور من البرنامج

للعلم بس الصوره التانيه انا مكلمتش اختصارا للوقت الصوره التانيه عاوز اثبت انها نفس القاعده فقط

رابط هذا التعليق
شارك

على العموم  بفضل الله وبحمده تم التغلب على هذه المشكله

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

- نسخة من  dataentry     ــــــــــــــــــــــــــــــــــــــ   ده اللى فيه المشكله عندى 

- frm_dataentry          ــــــــــــــــــــــــــــــــــــــ   ده ولله الحمد النموذج الجديد الى تم حل مشكلتى فيه 

 

 

انتظر رأى اساتذتى الكرام بعد التجربه 

T-UP.rar

رابط هذا التعليق
شارك

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

شكر وتقدير لكل من

الاستاذ عبد الرحمن هاشم
الاستاذ جعفر

الاستاذ راعى الغنم

الاستاذ ابوخليل
 

  • Like 1
رابط هذا التعليق
شارك

في ٤‏/٥‏/٢٠١٥ at 01:45, محمد عصامے‏ said:

 

- frm_dataentry          ــــــــــــــــــــــــــــــــــــــ   ده ولله الحمد النموذج الجديد الى تم حل مشكلتى فيه 

 

انتظر رأى اساتذتى الكرام بعد التجربه 

 

السلام عليكم أخي محمد  :smile:

 

انا لن اتطرق لطريقة عمل النموذج الجديد ، "لأننا" لم نلحظ المشكلة في النموذج الاصل  :smile:

 

ولكني دخلت في كود Combopn_AfterUpdate :

pn = DLookup("pn", "code", "[pn]=forms!frm_dataentry!Combopn")
size = DLookup("Size", "code", "[pn]=forms!frm_dataentry!Combopn")
vendor = DLookup("Vendor", "code", "[pn]=forms!frm_dataentry!Combopn")
Description = DLookup("Description", "code", "[pn]=forms!frm_dataentry!Combopn")
Maxrl = DLookup("Maxrl", "code", "[pn]=forms!frm_dataentry!Combopn")
Maxrlegyptair = DLookup("Maxrlegyptair", "code", "[pn]=forms!frm_dataentry!Combopn")
ACType = DLookup("actype", "code", "[pn]=forms!frm_dataentry!Combopn")
Pos = DLookup("pos", "code", "[pn]=forms!frm_dataentry!Combopn")
BiasRadial = DLookup("biasradial", "code", "[pn]=forms!frm_dataentry!Combopn")
code = DLookup("code", "code", "[pn]=forms!frm_dataentry!Combopn")

لاحظت انك تنادي الجدول (اي تعمل استعلام للجدول) 10 مرات !!

 

انا دائما لما اعمل برامجي ، اعمل البرنامج على اساس انه سيكون عبارة عن جزئين ، الواجهة FE ، والجداول BE ، 

وان الجداول BE ، ستكون في شبكة ،

وان الواجهة FE ستكون لأكثر من مستخدم.

لهذا السبب ، فيجب ان نقلل الزحمة في الشبكة ، وذلك بتقليل زيارة/استعلام الجداول قدر الإمكان ، وعند كل زيارة ، يجب ان نأخذ اكبر كمية من البيانات المطلوبة ، ثم نتعامل معها محليا في FE.

 

لذلك ، فانا هنا اعطيك احد البدائل (والتي لا يعرفها الكثير ، لأنها تعمل على الاكسس 2003 فما فوق) ،

فالكود التالي ، يقوم بزيارة/استعلام الجدول عن طريق DLookup مرة واحدة ، ويأخذ 10 بيانات مرة واحدة ، فلذا يمكن ان يستبدل كودك اعلاه:

    Dim x() As String
    
    A = Nz(DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn"),"|||||||||")

    'ويمكن استعمال اي شيء بدل عن | فمثلا الفاصلة  
      
    'A حتى اذا لم هناك قيمة للمتغير Nz نستعمل الدالة
    'عدد مرات وضع العلامة | في نهاية السطر ، يكون نفس عددها في المعادلة
    'لهذا السبب نرى اننا وضعنا 9 منها في نهاية السطر
    
    
    x = Split(A, "|")
'    For i = LBound(x) To UBound(x)
'        Debug.Print x(i)
'    Next i
    
    Me.pn = x(0)
    Me.size = x(1)
    Me.vendor = x(2)
    Me.Description = x(3)
    Me.Maxrl = x(4)
    Me.Maxrlegyptair = x(5)
    Me.ACType = x(6)
    Me.Pos = x(7)
    Me.BiasRadial = x(8)
    Me.code = x(9)

جعفر

تم تعديل بواسطه jjafferr
  • Like 11
  • Thanks 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