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

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

قام بنشر

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

 

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

 

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

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

 

 

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

قام بنشر

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

 

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

 

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

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

[forms]![dataentry]![Combopn]

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

قام بنشر

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

 

 

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

قام بنشر

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

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

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

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

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

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

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

قام بنشر

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

 

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

 

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

 

 

جعفر

  • Like 1
قام بنشر

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

 

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

 

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

 

 

جعفر

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

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

 

قام بنشر

 

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

 

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

 

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

 

 

جعفر

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

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

 

 

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

1430672424841.gif

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

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

قام بنشر

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

 

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

All Records

الى

Current Record

مثل الصورة:

post-142414-0-94607500-1430673327_thumb.

 

 

جعفر

قام بنشر

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

 

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

All Records

الى

Current Record

مثل الصورة:

attachicon.gif67.Clipboard01.jpg

 

 

جعفر

 

 

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

قام بنشر

الظاهر في فرق بين قاعدة البيانات اللي انت شغال عليها ، وبين اللي انت ارفقته!!

 

رجاء انك تجرب المرفق اللي وضعته لنا.

 

 

جعفر

قام بنشر

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

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

DR15348T

 

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

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

قام بنشر

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

قام بنشر

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

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

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

 

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

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

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

قام بنشر

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

 

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

 

 

جعفر

  • Like 1
قام بنشر

رحم الله والديك أخوي أبوخليل ، صرت في فريقنا  :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