jjafferr

وكذلك اقول:

وعليكم السلام 🙂 الباركود فيه الرقم 11 فقط ، فرجاء شرح ما هو المطلوب ، وبالتفصيل 🙂 جعفر

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

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

وعليكم السلام 🙂 جعفر

عفوا اخي د.حسنين 🙂 طريقتي التي شرحتها هنا ، لا تستخدم نماذج منبثقة 🙂 جعفر عفوا اخي ، لم افهم المطلوب!! جعفر

وبإستخدام كود اخوي حسين ، ولكن على الحدث "قبل التحديث" : if [TextBox]>99 then MsgBox "الكمية تتجاوز الحد المسموح", vbCritical + vbMsgBoxRight, "تنبيه" cancel=true End if جعفر

كلام اخوي ابوخليل عن اذا كان النموذج به قسم واحد ، مثل الصورة اللي ارفقها (كل الكائنات في قسم التفصيل) ، بينما النموذج المرفق فيه قسم "رأس الموضوع" Form Header ، وقسم "التفصيل" Detail ، لذا ، فكل قسم له ترقيم خاص به 🙂 . جعفر

يجب ان يوضع الكود في حدث "بعد التحديث" 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 جعفر