ابو جودي

شوف لو المشكله اتحلت الرعاية الايوائية -.rar

نتمنى على الله سبحانه وتعالى ان يهيئ لاساتذتنا من امرهم رشدا ولنا فنجد حل لتلك المشكله فهى فعلا تؤرقنى منذ حوالى اربعة ايام ويوميا ابحث عن حل لها

رائع دائما ومبدع كما عودتنا استاذ رمهان

ممتاز

طيب ممكن المرفق اللى حضرتك شغال عليه

فعلا انا بحثت ايضا عن هذا الموضوع ولم اوفق

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

السلام عليكم ورحمة الله تعالى وبركاته واجهتنى مشكله ذات يوم قريبه من هذه المشكله وكانت المشكله فى الريجسترى يمكنك الاطلاع على هذا الموضوع قد تجدى فيه الفائده ان شاء الله http://www.officena.net/ib/index.php?showtopic=59556&hl=

كل الشكر والتقدير

اعتقد الحدث يتم تطبيقه فى النموذج الفرعى وليس النموذج الرئيسى

2007 ولا يشتغل في أكسس 2010 للعلم ما يعمل على 2007 يعمل ايضا على 2010 وتنسيق قاعدتهمت واحد

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

المرفق المرفق

فى نموذج الشاشة الترحيبية فى حدث الحالى امسح هذا السطر fSetAccessWindow (SW_SHOWMINIMIZED) -up-نظام مراسلات.rar

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

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

الله يبارك لك يارب اتفضل الباسورد اليوزر 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) جعفر كل كلمات الشكر لا تعبر عما احس به نحوك استاذى الكريم ومعلمى الجليل فعلا فنان جزاكم الله خير الجزاء ان شاء الله