ابو جودي

والله هذا ما ابحث عنه ولازلت فى انتظار اساتذنا الكرام

ألف مبروك أستاذنا أبو ياسر

الله يبارك لك يارب اتفضل الباسورد اليوزر mohammed essam الباسورد 112011

بارك الله فيك ممتاز جدا جدا جدا ورائع كعادتك

Option Compare Database Option Explicit Private Declare Function apiGetClientRect Lib "user32" Alias "GetClientRect" (ByVal hwnd As Long, lpRect As typRect) As Long Private Declare Function apiGetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As typRect) As Long Private Declare Function apiSetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Type typRect Left As Long Top As Long Right As Long Bottom As Long End Type Private Const SW_RESTORE = 9 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOZORDER = &H4 Private Const SWP_SHOWWINDOW = &H40 Public Function gfncCenterForm(pfrmForm As Form) As Boolean Dim lngX As Long, lngY As Long Dim rctAccess As typRect, rctForm As typRect On Error GoTo CenterForm_Error Call apiGetClientRect(hWndAccessApp, rctAccess) Call apiGetWindowRect(pfrmForm.hwnd, rctForm) lngX = CLng((rctAccess.Left + rctAccess.Right) / 2) - CLng((rctForm.Right - rctForm.Left) / 2) lngY = CLng((rctAccess.Top + rctAccess.Bottom) / 2) - CLng((rctForm.Bottom - rctForm.Top) / 2) lngY = lngY - 1 lngY = lngY - 2 Call apiShowWindow(pfrmForm.hwnd, SW_RESTORE) Call apiSetWindowPos(pfrmForm.hwnd, 0, lngX, lngY, (rctForm.Right - rctForm.Left), (rctForm.Bottom - rctForm.Top), SWP_NOZORDER Or SWP_SHOWWINDOW Or SWP_NOSIZE) gfncCenterForm = True Exit Function CenterForm_Error: gfncCenterForm = False End Function اثناء البحث على الانترنت وجدت هذه الوحده النمطيه لتوسيط الفورم ولكن لا اعرف كيفية استخدامها بصراحه

للرفع السلام عليكم ورحمة الله تعالى وبركاته سؤال فنى لما حاولت اجرب طريقة الاستاذ ابا عمر النموذج الاول يفتح فى وسط الشاشه ممتاز جدا والملف يعمل بامتياز فى نقطه اخفاء الاطار نهائيا ولكن لاحظت الاتى تظهر باقى الشاشات بعد شاشة الافتتاحية اعلى يسار الشاشة حاولت مرار وتكرارا جعلها تفتح فى وسط الشاشة ولكن لم اوفق هل هناك كود لذلك او هل هناك طريقة يتفضل بها علينا احد الفنانين والاساتذة الكرام الاجلاء بارك الله فيهم قاعدة مرفقه للتجربه http://www.up-00.com/?I2nY

رائع دائما ومتألق

اللي قادر يوصول لتصميم قاعدة البيانات هيقدر يلغي اخفاء النماذج!! احنا عاوزين حاجة ملعلعة ياباش زي الشاشة الرمادية, يادي الشاشة الرمادية.. هههههههههههههههههههههه متفكرنيش دى كات حوسه

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

السلام عليكم ورحمة الله تعالى وبركاته سؤال فنى لما حاولت اجرب طريقة الاستاذ ابا عمر النموذج الاول يفتح فى وسط الشاشه ممتاز جدا والملف يعمل بامتياز فى نقطه اخفاء الاطار نهائيا ولكن لاحظت الاتى تظهر باقى الشاشات بعد شاشة الافتتاحية اعلى يسار الشاشة حاولت مرار وتكرارا جعلها تفتح فى وسط الشاشة ولكن لم اوفق هل هناك كود لذلك او هل هناك طريقة يتفضل بها علينا احد الفنانين والاساتذة الكرام الاجلاء بارك الله فيهم قاعدة مرفقه للتجربه http://www.up-00.com/?I2nY

السلام عليكم أخي محمد انا لن اتطرق لطريقة عمل النموذج الجديد ، "لأننا" لم نلحظ المشكلة في النموذج الاصل ولكني دخلت في كود 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 = DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn") 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) جعفر كل كلمات الشكر لا تعبر عما احس به نحوك استاذى الكريم ومعلمى الجليل فعلا فنان جزاكم الله خير الجزاء ان شاء الله

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

على العموم بفضل الله وبحمده تم التغلب على هذه المشكله للعلم انا شغال على اكسس 2013 ويمكن اللى بيظهر عندى مش بيكون عند حضراتكم زى موضوع عرض التقارير كلها من خلال نموذج فرعى داخل نموذج رئيسى وهذا مرفق للقاعده تحتوى على النموذج الاتية - نسخة من dataentry ــــــــــــــــــــــــــــــــــــــ ده اللى فيه المشكله عندى - frm_dataentry ــــــــــــــــــــــــــــــــــــــ ده ولله الحمد النموذج الجديد الى تم حل مشكلتى فيه انتظر رأى اساتذتى الكرام بعد التجربه T-UP.rar

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

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

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

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

الفرق فى الشكل فقط انا اللى رفعتها شلت منها صور الشغل اللى فى هيدر فورم بس

لا لا لا يا استاذى الاتنين واحد متقلقش

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

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

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

للرفع

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

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