jjafferr

يجب ان يوضع الكود في حدث "بعد التحديث" AfterUpdate او حدث "عند فقد التركيز" On Lost Focus للحقل مخزن

وعليكم السلام 🙂 في الموضوع التالي مرفق ، وهو يقوم بالخطوات التي تسأل عنها : . ولكن يجب عليك الوصول الى طلبك بين الاكود 🙂 جعفر

وعليكم السلام 🙂 الظاهر انك تستخدم كود في التقرير لإخفاء الحقول ، ولكنك لا تخفي السجلات ، لهذا السبب ترى سجلات بدون حقول !! فالاسهل انك تعمل تصفية لهذه السجلات في الاستعلام ، ثم عرض السجلات كامله 🙂 جعفر

تفضل جرب المرفق ، ولكن ، لما تكتب في السجل ، فتلقائيا سيظهر لك سجل جديد في الاسفل ، ولكن لما تنتهي من تعبئة السجل ، فتلقائيا سيختفي ، الى ان تضغط على زر سجل جديد مرة اخرى 1376.block5-.accdb.zip

وعليكم السلام 🙂 عملت زر في النموذج الرئيسي . وهذا الكود لحدث تحميل النموذج ، وحدث آخر عن نقر الزر Private Sub Form_Load() Me.subtblIbriData.Form.AllowAdditions = False End Sub Private Sub cmd_Add_Record_Click() Me.subtblIbriData.Form.AllowAdditions = True Me.subtblIbriData.SetFocus Me.subtblIbriData!Block.SetFocus End Sub جعفر 1376.block5-.accdb.zip

حياك الله 🙂 وانصحك انك دائما تستعمل البرنامج المرفق ، كل مرة تعدل على برنامجك ، وكل مرة تصادف مشكلة : جعفر

هذه مكتبة 32بت ، وانت جهازك 64بت ، فكان لازم لها معالجة ، وتمت المعالجة والحمدلله بحيث تعمل على النواتين 32بت و 64بت 🙂 بس هل اشتغل الاستعلام ؟ جعفر

استبدل السطر بهذا : Private Declare PtrSafe Function apiGetLocaleInfo Lib "kernel32" _ واعمل compile مرة اخرى

اعمل Compile . وشوف وين يعطيك خطأ ، اريد صورة من السطر اللي قف عليه الخطأ ، ورسالة الخطأ نظام الافيس عندك 32بت او 64بت ؟

الظاهر ان احد المكتبات عندك مفقودة ، فرجاء تعمل التالي علشان نعرف ايهم/ . اتوقع ان تكون احد المكتبات مكتوب عليها MISSING ، فرجاء خلينا نشوف الصورة النالية من برنامجك

ولكي يكون الموضوع متكامل 🙂 وبدل ان تستخدم القوائم المختصرة الافتراضية : و والتي تسمح للمستخدم ان يدخل في تصميم النموذج والتقرير ، او بدل ان تخفي القائمة المختصرة من البرنامج فلا يستفيد المستخدم من احد اهم القوى المتوفرة في الاكسس بدون برمجة ، اعمل قائمتك المختصرة مثل: او او او او حسب التعليمات في هذ الموضوع: القائمة المختصرة - Shortcut menu - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

كنت اتمنى تكون في المرفق بيانات كفاية علشان اعرف وين الخطأ !! جرب التالي : في الاستعلام احذف الحقل التالي NewNamee: TrimAll([xQ]," ") اضف الحقل التالي NewNamee2: TrimAll2([xQ]) . ثم اضف الدالة التالية الى الوحدة النمطية: Function TrimAll2(thisString As String) As String TrimAll2 = Replace(thisString, " ", " ") '6 TrimAll2 = Replace(TrimAll2, " ", " ") '5 TrimAll2 = Replace(TrimAll2, " ", " ") '4 TrimAll2 = Replace(TrimAll2, " ", " ") '3 TrimAll2 = Replace(TrimAll2, " ", " ") '2 TrimAll2 = " " & Trim(TrimAll2) & " " End Function وشوف اذا اشتغل الاستعلام. جعفر

لوسمحت ترفق لنا الوحدة النمطية 🙂

طبعا ، 15-20 شخص مع بعض 🙂 تفضل ، هذا الموضوع يفيدك في التقسيم ، ويمكنك البحث عن تقسيم قاعدة البيانات في المنتدى وستحصل على الكثير من المواضيع 🙂 اين اجد تقسيم قاعدة البيانات في الاصدار 2010 ؟؟ - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

حياك الله 🙂 ولكن رجاء تذكّر: لا تقيّد المستخدم بإحكام ، بحيث حتى هذه الازرار تخفيها عنه ، فيجب عليك عمل ازرار كافية لكي يخرج من النماذج او البرنامج ، وإلا ، فسيغلق الكمبيوتر من زر الكهرباء ويعمل عطب وتلف لهذا البرنامج ، والسبب انه اراد الخروج من البرنامج ولم يحصل على طريقة اخرى ، ونحن المبرمجين نكون السبب 😬 جعفر

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

وعليكم السلام 🙂 بدل هذا السطر Dim FSO As New FileSystemObject, msg As String استعمل Dim FSO As Object, msg As String . ولكن الظاهر انك يوم من الايام كنت تريد تعمل شيء بالامر FSO والذي يُستخدم في ادارة الملفات و المجلدات ، ووضعت الكود الخاص به ، ثم حذفت الكود ، ولكن نسيت ان تحذف الجزء العلوي منه ، وعليه فأنت الآن بحاجة الى هذا السطر بدل السطر اعلاه: Dim msg As String جعفر

السلام عليكم اخي ma4fd2010 رجاء لا ترفق هذا الموضوع مرة ثانية ، خمسة مواضيع كافية من النسخ واللصق ، ولم ترد على استفسار الاعضاء: . جعفر

تمت الاجابة على طلبك في الموضوع الاصل 🙂 جعفر

. قصدك هذه الازرار: . السبب ان هذه الازرار لا تتفاعل مع اعدادات النموذج ، لأن هذه ازرار البرنامج وليست ازرار النموذج 🙂 وطريقة إخفائهم تتم عن طريق مكتبات الوندوز: Private Const GWL_STYLE = (-16) Private Const WS_CAPTION = &HC00000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_SYSMENU = &H80000 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOZORDER = &H4 Public Const SWP_FRAMECHANGED = &H20 Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function SetWindowPos Lib "user32" ( _ 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 ' ************************************************** ' Public Function AccessTitleBar(Show As Boolean) As Long ' ' Calling it AccessTitleBar(0) ' This will Hide Acces Title Bar ' it will fill the screen, without a Title Bar without Buttons, so you will have to give the use a way to quit ' Dim hwnd As Long Dim nIndex As Long Dim dwNewLong As Long Dim dwLong As Long Dim wFlags As Long hwnd = hWndAccessApp nIndex = GWL_STYLE wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE dwLong = GetWindowLong(hwnd, nIndex) If Show Then dwNewLong = (dwLong Or WS_CAPTION) Else dwNewLong = (dwLong And Not WS_CAPTION) End If Call SetWindowLong(hwnd, nIndex, dwNewLong) Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags) End Function Public Function AccessTitleBarButtons(Show As Boolean) As Long ' ' Calling it AccessTitleBarButtons(0) ' This will Hide the Buttons: MINIMIZE, AXIMIZE, Close buttons on the Access Title Bar ' to Hide MINIMIZE Button ONLY: Const FLAGS_COMBI = WS_MAXIMIZEBOX Or WS_SYSMENU ' to Show MINIMIZE Button ONLY: Const FLAGS_COMBI = WS_MINIMIZEBOX ' ' to Hide them all: Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU ' Dim hwnd As Long Dim nIndex As Long Dim dwNewLong As Long Dim dwLong As Long hwnd = hWndAccessApp nIndex = GWL_STYLE Const wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU dwLong = GetWindowLong(hwnd, nIndex) If Show Then dwNewLong = (dwLong Or FLAGS_COMBI) Else dwNewLong = (dwLong And Not FLAGS_COMBI) End If Call SetWindowLong(hwnd, nIndex, dwNewLong) Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags) End Function . 1. اذا اردنا اخفاء الازرار ، فننادي دالة: AccessTitleBarButtons(0) 2. بينما اذا لا نريد الازرار ، ولا نريد تحريك البرنامج من شريط الادوات Toolbar ، فيجب اخفاء شريط الادوات (ويمكن استبداله في النموذج بمربع تسمية ، اذا لزم الامر) ، فننادي دالة: AccessTitleBar(0) المناداة تكون في ملف الماكرو AutoExec والذي يعمل تلقائيا لما يعمل البرنامج : . لتصبح الشاشة هكذا: جعفر example_semo.zip

شكرا جزيلا 🙂 جعفر

السلام عليكم 🙂 اخي احمد، اهلا وسهلا بك في المنتدى ، ورجاء قراءة قوانين المنتدى حتى تستفيد منه الاستفادة القصوى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة ورجاء تعطيني عنوان آخر للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال ، حتى اغيّر العنوان ولا يكون مخالف 🙂 جعفر

السلام عليكم 🙂 اخي ازهر ، رجاء تعطيني عنوان آخر للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال ، حتى اغيّر العنوان ولا يكون مخالف 🙂 جعفر

اي نسخة من الاكسس تشتغل عليها ، وهل عملت لها جميع التحديثات ؟ جرب الآن مشلكة التقرير.zip

ولا انا 🙂 ولا تستعمل صفر لهامش اليمين ، وانما لزيادة المسافة استخدم رقم مثل: 0.2 جعفر