jjafferr

في الواقع الارقام في قاعدة البيانات غير صحيحة !! فمثلا الرقم 00971026678588 والصحيح هو 0097126678588 يعني طوله 13 رقم !!

نعم ، لأن هذا الكود معمول خصيصا لارقام هذا الموضوع ، وانت قمت في الكود بحل هذه الاشكالية بوضع الرقم 14 (اي طول رقم الهاتف) ، والذي لا يحل مشكلة ارقام سلطنة عمان وهي 13 رقم ، مثل 0096812345678 ، فالطريقة التي يمكن ان نحل هذه المشكلة ، هي بأن يكون هذا الرقم متغير ، نأخذ قيمته من النموذج الرئيسي مثلا ، سواء لطريقتي او طريقتك 🙂 جعفر

السلام عليكم 🙂 يا بشمهندس ابا جودي ، الوحدات النمطية وعرفنا سببها ، ولكن ليش بقية الكود في حذف كائنات الاستعلامات ، ثم عملها مرة ثانية بالكود !! يعني كان يكفينا: DoCmd.SetWarnings False 'اوقف الرسائل التحذيرية 'احذف بيانات الجدول DoCmd.RunSQL "DELETE * FROM tbluaecompaniesSplitData" 'الحق البيانات docmd.openquery "qryGetData" DoCmd.SetWarnings True 'شغل الرسائل التحذيرية العضو الغير محترف لما يشوف كل هذه الاكواد يتلخبط ، ويعتقد ان الكود المعقد هو السبيل الصحيح في مثل هذه الاعمال ، والبديل عن الاستعلام البسيط !! وهذا ما حصل لأخونا وائل عبد الرحمن (واللي الآن متواجد بيننا بإسم مستعار ، فأهلا وسهلا به بيننا محافظا على قوانين المنتدى مثلنا) ، فأخونا ضاع بين الاكواد ، ولايزال ضايع وتايه ، بينما كنت قد اخبرته بأن الاستعلام هو اسهل وافضل الطرق !! واشكرك على ملاحظتك جعفر

السلام عليكم 🙂 همم ، ماشاءالله ، يعني عندكم فرح ، وكل الخبراء حاضرين مع الاخ Barna ، وانا ما اشارك !! مشاركتي تختلف عن مشاركاتكم ، بالاستعلام ، وبس ، وبجميع الحقول 🙂 . . اما بالنسبة الى الاخطاء ، فما اردت ان امضي وقت اكثر على الاستعلام وتصدي مكان الخطأ ، فلما نلحق هذه البيانات في الجدول ، فلن تظهر هناك ، وفي التقرير تم ايقافها 🙂 جعفر 1054.uae-com.accdb.zip

السلام عليكم 🙂 وفي توقيع اخوي @ابوخليل عنده هذا البرنامج 🙂 جعفر

الموضوع اصبح جزء من

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

السلام عليكم 🙂 اخي كاسر 🙂 الكود اللي استعملته ، بإستخدام الامر Dcount ، واللي هو عبارة عن استعلام خاص للجمع 🙂 فانت تعمل 20 استعلام لتحصل على المطلوب 🙂 فقمت انا بعمل هذا الاستعلام ، واللي اخذت المعايير من كودك ، وبدون تغيير فيها SELECT Abs(Sum([العمر] Between 0 And 14 And [الجنس]='ذكر')) AS T21, Abs(Sum([العمر] Between 15 And 20 And [الجنس]='ذكر')) AS T22, Abs(Sum([العمر] Between 21 And 30 And [الجنس]='ذكر')) AS T23, Abs(Sum([العمر] Between 31 And 40 And [الجنس]='ذكر')) AS T24, Abs(Sum([العمر]>=41 And [الجنس]='ذكر')) AS T25, Abs(Sum([العمر] Between 0 And 14 And [الجنس]='أنثى')) AS T27, Abs(Sum([العمر] Between 15 And 20 And [الجنس]='أنثى')) AS T28, Abs(Sum([العمر] Between 21 And 30 And [الجنس]='أنثى')) AS T29, Abs(Sum([العمر] Between 31 And 40 And [الجنس]='أنثى')) AS T30, Abs(Sum([العمر]>=41 And [الجنس]='أنثى')) AS T31, Abs(Sum([طبيعة الإعاقة]='حركي' And [الجنس]='ذكر')) AS T51, Abs(Sum([طبيعة الإعاقة]='ذهني' And [الجنس]='ذكر')) AS T52, Abs(Sum([طبيعة الإعاقة]='سمعي' And [الجنس]='ذكر')) AS T53, Abs(Sum([طبيعة الإعاقة]='بصري' And [الجنس]='ذكر')) AS T54, Abs(Sum([طبيعة الإعاقة]='متعدد الإعاقة' And [الجنس]='ذكر')) AS T55, Abs(Sum([طبيعة الإعاقة]='حركي' And [الجنس]='أنثى')) AS T58, Abs(Sum([طبيعة الإعاقة]='ذهني' And [الجنس]='أنثى')) AS T59, Abs(Sum([طبيعة الإعاقة]='سمعي' And [الجنس]='أنثى')) AS T60, Abs(Sum([طبيعة الإعاقة]='بصري' And [الجنس]='أنثى')) AS T61, Abs(Sum([طبيعة الإعاقة]='متعدد الإعاقة' And [الجنس]='أنثى')) AS T62 FROM العمر; ومن استعلام واحد حصلت على جميع نتائجك 🙂 . وعملت نسخة من تقريرك ، وحذفت الكود ، وحفظته باسم rpt_NEW ، وكله تمام 🙂 بس الفرق هو ، سرعة اظهار التقرير 🙂 جعفر 1051.Handicapées -kaser906l.accdb.zip

هممم في الواقع ، ولأول مرة ابوح بهذا الشيء بالتفصيل : في الفترة بين 2003 و 2007 كنت اشارك في المنتدى الاجنبي https://www.experts-exchange.com/members/jjafferr.html وفي سنة 2005 اصبحت احد افضل 15 مشارك/خبير في منتدى الاكسس هناك https://www.experts-exchange.com/questions/21454217/jjafferr-Top-15-Overall-HOF.html وتدرّجت الى ان وصلت الرقم 10 على ما اتذكر ، وحصلت على اعلى شهادة يُعطيها الموقع آنذاك Genuis 🙂 لهذا السبب ، صدقني لما اقول ، ولازلت مُصر ، بأني لم ارى استعمال WebBrowser كما تستعمله انت ، كنموذج يحاكي بقية كائنات قاعدة البيانات 🙂 جعفر

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

وعليكم السلام 🙂 واهلا وسهلا بك في قسم الاكسس 🙂 في الواقع سؤالك غير واضح ، فعادة لا نرفع مشروع VBA بطريقة مستقله ، وانما يكون جزء من قاعدة البيانات ، وهذه طريقة ربط جداول الاكسس مع مجموعة مستخدمين: جعفر

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

وعليكم السلام 🙂 هذا الرابط قد يفيدك جعفر

السلام عليكم 🙂 متابع دردشة الشباب ، في موضوع شيّق 🙂 جعفر

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

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

اخي الفاضل 🙂 عندما يكون عندك ملف بصيغة zip او rar ، فمعناه ان بداخله ملف او مجموعة ملفات او مجلد او مجلدات ، وعلشان تستخدم هذه الملفات ، فيجب ان تخرجها من ملف الـ zip . انا ارفقت لك ملف مضغوط بصيغة zip ، وبداخله قاعدة البيانات ، وعلشان تشتغل على قاعدة البيانات ، يمكنك ان تخرجها من الملف المضغوط الى اي مجلد في الكمبيوتر ، ثم تستعملها. الصورة التي ارفقتها انت في مشاركتك السابقة : . تشير الى انك لم تخرج قاعدة البيانات من الملف المضغوط ، وانما فتحتها من الملف المضغوط ، وعليه تحصل على هذه الرساله من الملف المضغوط. جعفر

هاي النسخة رقم 2 من الرابط اعلاه ، جعفر

النسخة رقم 2 ، والتي لا نتعامل مع الكود ، وانما بواجهة فقط 🙂 جعفر

السلام عليكم ورحمة الله وبركاته 🙂 عندما يكون برنامج الاكسس يعمل ، وفجأة بدأ بإعطاء رسائل خطأ وبدون اي تعديل في البرنامج ، او عند عمل تعديل على البرنامج يُغلق الاكسس: . طريقة العمل: سيفتح البرنامج ، ويجب عليك غلقه ، الى ان لا يفتح تلقائيا مرة اخرى. ولكن ، يجب دائما اخذ الاحتياط وعمل نسخة من البرنامج قبل عمل هذه الخطوات. اقدم لكم شرح بسيط عن الموضوع: في الكثير من الاوقات ، لما نعمل الكود ، نقوم بتعديل وتغيير وتضبيط الكود عدة مرات ، ولكن الاكسس في بعض الاحيان يبقى محتفظ بالكود القديم في ذاكرته !! لذلك : 1. اثناء البرمجة ، وبشكل يومي اقوم بتشغيل هذا الملف المرفق ، 2. وقبل تسليم البرنامج الى الزبون ، اقوم بتشغيل الملف للمرة الاخيرة ، واجهز البرنامج لتسليمه الى الزبون وهذا هو الكود المعدل عن النسخة السابقة: Private Sub cmd_Decompile_Click() Dim MSAccPath As String Dim RegKey As String Dim WSHShell 'As Object Dim waitOnReturn As Boolean: waitOnReturn = True ' Get MSACCESS.exe directory from the Registry RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\" & _ "CurrentVersion\App Paths\MSACCESS.EXE\Path" Set WSHShell = CreateObject("WScript.Shell") ' Get parent directory MSAccPath = WSHShell.RegRead(RegKey) ' Decompile WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /decompile", , waitOnReturn ' compact WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /compact", , waitOnReturn ' cmd compile WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /cmd compile", , waitOnReturn ' compact WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /compact", , waitOnReturn ' Clear shell var Set WSHShell = Nothing End Sub جعفر Decompile_2.zip

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

وعليكم السلام 🙂 لو تفتح صفحة الاكواد VBA في برنامجك عن طريق ctrl+G ثم تضغط على الزر F1 على لوحة المفاتيح ، علشان يظهر لك مساعد الاكسس ، ثم تكتب فيه inputbox ، وبيعطيك التفاصيل كاملة 🙂 وكتبت لك المسميات بالانجليزي ، علشان ما ينقلب السطر ويلخبط الامر ، ولا تعرف اوله من آخره !! If InputBox("اتصل بمدير النظام لطلب التعديل على الملف","This is the message Title") = "abc" Then Me.AllowEdits = True End If جعفر

السلام عليكم 🙂 ايش رايك باستعمال الكود التالي ، وحذف احداث النقر الـ 56 الموجودة بالكود 🙂 ' date picker buttons Public Function dxx() DateClick (Right(Screen.ActiveControl.Name, 2)) End Function . . جعفر 1048.Officena DatePicker.mdb.zip

وعليكم السلام 🙂 جرب العمل بطريقة هذا الرابط : جعفر

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