jjafferr

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

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

وعليكم السلام 🙂 اعمل نموذج ، واعمل فيه زر لطباعة التقرير ، واستعمل هذا الكود فيه ، ولانه لا يمكن فتح التقرير مرتين في وضع المعاينة ، فنستخدم طباعة التقرير مباشرة : Private Sub cmd_tablAA_Click() DoCmd.OpenReport "tablAA", , , , , "All" DoCmd.OpenReport "tablAA", , , , , "No_Sub" End Sub بهذه الطريقة نرسل قيمة في المتغير OpenArgs ليكون موجودا في التقرير ، في المتغير الاول نطبع التقرير مع التقرير الفرعي ، وفي المتغير الثاني سنطبع التقرير بدون التقرير الفرعي. في التقرير ، التقرير الفرعي موجود في قسم التفصيل من النموذج الرئيسي ، . على حدث "عند التنسيق" لهذا لقسم التفصيل ، نكتب هذا الكود : Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If Me.OpenArgs = "No_Sub" Then Me.tbBB.Visible = False Else Me.tbBB.Visible = True End If End Sub جعفر 1381.إخفاء التقرير الفرعي في الطباعة.accdb.zip

السؤال ، كيف تفتح النموذج form1 هل لما تفتحه ، تغلق النموذج الذي فتحه ؟

رجاء الرد على هذا السؤال

رائع 🙂 ما شاء الله عليك اخوي أبو إبراهيم ، دائما ، ما معتمد على قدرات الاكسس فقط ، وانما تستفيد من بقية قدرات الاوندوز 🙂 جعفر

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

انت تعرف ان مشكلتك هي ان النموذج الرئيسي "منبثق" ، وعليه ، وكل اللي نعمله هو مرواغة الاكسس حتى يقبل نموذج "منبثق" فوق نموذج منبق !! سؤالين: 1. كم نموذج ستفتح فوق النموذج المنبثق الرئيسي ؟ 2. ليش تستعمل نموذج منبثق ؟ انا نادرا ما استعمل نماذج منبثقة ، والطريقة اللي استعملها في برامجي: لا ، طريقتي ما تصلح لهذا الكم من النماذج الفرعي !! وياريت ترفق لنا هذه الجزئية من برنامجك ، لأنه في طريقة على بالي اريد اجربها ، ولا اريد اجربها إلا على برنامجك الاصل 🙂 بكل بساطة: طريقة فتحك للنموذج المنبثق معناها انك تفتح النموذج المنبثق A ، وتغلق النموذج المنبثق B ، فعليه ، يكون النموذج المنبثق A هو النموذج الوحيد المفتوح ، فنقوم بتغييره من نموذج منبثق الى نموذج عادي : me.modal=false وعليه يمكن فتح جميع النماذج الاخرى بالطريقة العادي 🙂 لهذا السبب ، اريد النموذج الذي يفتح النموذج Form1 ، وبعض النماذج الاخرى مثل Form2 و Form3 . . جعفر

السلام عليكم 🙂 هل هذا المطلوب؟ جعفر Drag_Forms.zip

وعليكم السلام 🙂 1. لا اعتقد ان هذا ممكن ، 2. هذا ممكن ، ويمكنك البحث في المنتدى فهناك العديد من البرامج التي تعمل هذا الشيء ، 3. تم نقاش هذا الموضوع هنا: سؤال عن مشكلة Error 3343: Unrecognized Database Format - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

شكرا على المعلومة والتأكيد اخوي احمد 🙂 جعفر

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

وعليكم السلام 🙂 تفضل الطريقة ، بالصور وبالخطوات: مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server - قسم الأكسيس Access - أوفيسنا (officena.net) ومجموعة اخرى من المواضيع: أكسس و اسكيوال سيرفر Access with Sql Server - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

السلام عليكم 🙂 اخي Mohamad orhan اهلا وسهلا بك في المنتدى 🙂 رجاء قراءة قوانين المنتدى حتى تستفيد الاستفادة القصوى منه: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة للأسف الشديد ، جميع مشاركاتك مخالفة: رجاء لا تضع مشاركة لا علاقة لها بالموضوع ، ولا تكرر عدة مواضيع لنفس السؤال ، ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال ، عند كتابة موضوع: يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. فرجاء افتح موضوع جديد آحذ النقاط اعلاه في الحسبان 🙂 يُغلق. جعفر

وعليكم السلام 🙂 لا اعرف ولم اسمع بأنه يمكن استخراج الكود من الملفات صيغ mde و accde ، غير موقع واحد من احد مبرمجي الاكسس المحترفين اصحاب ثقة ، يمكنك رفع ملفك الى الموقع التالي: MDE to MDB Conversion - Retrieve VBA code from your MDE/ADE Databases (everythingaccess.com) وعليه اذا كان فيه امكانية لإسترجاع برنامجك الى صيغة accdb ، فالموقع سيثبت لك ذلك (عن طريق الايميل وبعد يوم او اكثر) ، وفي مقابل مبلغ من المال (يبدأ بمبلغ 450 دولار) ، وبعد التأكد بأنك صاحب البرنامج حقا ، سيعملون المطلوب ويرجعون لك البرنامج بصيغة accdb ويمكنك التعديل عليه 🙂 جعفر

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

تحليل جميل للارقام 🙂 جعفر

السلام عليكم 🙂 واليك طريقتي ، فهي تعتمد على اول رقم مفقود ، وقد لا تكون الاسرع 🙂 Public Function ReArrange() Dim rst As DAO.Recordset Dim RC As Long Dim First_Missing As Long Dim Last_Record As Long Dim Previous_Record As Long Dim Update_to As Long Dim i As Long Dim mySQL As String Set rst = CurrentDb.OpenRecordset("Select [jint] From [qry_Missing_Numbers]") First_Missing = rst!jint Set rst = CurrentDb.OpenRecordset("Select [planNo] From [tblKotah] Where [planNo]>=" & First_Missing & " Order By [planNo]") rst.MoveLast: Last_Record = rst!planNo rst.MoveFirst: RC = rst.RecordCount 'lets get to work DoCmd.SetWarnings False Update_to = First_Missing - 1 Do Until rst.EOF If Previous_Record = rst!planNo Then 'Update_to = Update_to Else Update_to = Update_to + 1 mySQL = "UPDATE tblKotah SET planNo =" & Update_to & " WHERE planNo = " & rst!planNo DoCmd.RunSQL mySQL End If If Previous_Record = rst!planNo Then 'GoTo Move_Next Else Previous_Record = rst!planNo End If rst.MoveNext Loop DoCmd.SetWarnings True rst.Close: Set rst = Nothing MsgBox "Done" End Function . وبعد اتمام العمل ، تستطيع استعمال الاستعلام qry_Missing_Numbers للتأكد ان جميع السجلات مسلسلة 🙂 جعفر 1380.Missing_Copy (1).accdb.zip

وعليكم السلام 🙂 حيا الله اخوي ابوخليل 🙂 في الواقع انت تريد اول رقم فقط ، ومنه تقوم بتعديل باقي الارقام ، صح ؟ الاستعلام qry_Missing_Numbers يعطيك الارقام المفقودة ، هذه خطوة اولى 🙂 جعفر 1380.Missing_Copy (1).accdb.zip

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

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

السلام عليكم 🙂 اخوي حسين ، هذه نتيجة تجربتي: . فالخطأ في اظهار الحروف الانجليزية وليس العربية ، فلا اعتقد بأن اعدادات اللغة لها علاقة !! جعفر

اخي الفاضل ، انت عملت هذا الموضوع ، وموضوع: فتح تطبيق الاكسيس بحجم صغير accmdappsize - قسم الأكسيس Access - أوفيسنا (officena.net) وبدل ان تشارك فيهما ، واذا بك تضع نفس المشاركة في موضوع آخر لا علاقة له بطلبك !! رجاء متابعة موضوعك مع الاعضاء هنا ، والاستفسار عن اي شيء يواجهك 🙂 جعفر

السلام عليكم 🙂 اخي الفاضل ، بما انك في بداية برمجة مشروعك ، فاقترح عليك التالي: 1. بدل ان يكون لكل ولاية جدولين ، والى الآن عندك 3 ولايات ، اي 6 جداول ، وبالامكان الزيادة (نموذجك الرئيسي فيه هذا الخيار ، بالاضافة الى ان الشباب في بقية الولايات ممكن تستعمل برنامجك 🙂) ، فيجب عليك عمل جدولين فقط يشمل جميع الولايات ، سواء الموجودة او التي سيتم اضافتها : جدول tbl_VillageID (وتم اضافة حقل CityID وحقل التسلسل Seq) ، واستكمالا للموضوع ، الجدول tbl_CityID (ولاحقا تقدر تضيف جدول للمحافظات كذلك) . جدول tbl_CityData (هذا احد جداولك ولم اعمل عليه اي تغيير) . 2. على هذا الاساس ، فانت بحاجة الى نموذج واحد فقط لجميع الولايات ، بحيث عن طريق حقل/حقول Combobox او Listbox في النموذج تختار الولاية ، ومنها القرية ، لاحظ ان بيانات المحافظة والولاية والقرية ، جميعها موجودة في هذا النموذج ، فكل اللي لازم يصير الآن هو ان تعمل فرز وتصفية لهذه البيانات ، وبإستعلام واحد يأخذ معايير التصفية من (حقل/حقول Combobox او Listbox في النموذج اعلاه ، طبعا هاي لإدخال البيانات). اذا تحب ان تمشي في هذا الطريق ، فرجاء اعمل التعديلات على برنامجك من خلال هذه الجداول والنموذج والتقرير ، ونأخذ الموضوع من هناك ان شاء الله 🙂 وإلا ، فكذلك اخبرني ، علشان ارفق لك طلبك الاصل 🙂 جعفر 1376.1.صحيفة - Copy.accdb.zip

تفضل 🙂 من استعلام المجاميع qry_rpt ننادي الدالة Concatenate_test_items التي تقوم بإرسال قيمة code ، ومنها تجمع النتائج test في سطر واحد . والنتيجة . ونستعمل هذا الاستعلام كمصدر بيانات التقرير. وهذه هي دالة Concatenate_test_items : Public Function Concatenate_test_items(C As String) As String Dim rst As DAO.Recordset Dim myWhere As String 'do the Where Criteria in an easy way, item by item myWhere = myWhere & "[code]='" & C & "'" 'set the Data source Set rst = CurrentDb.OpenRecordset("Select [test] From [Table1] Where " & myWhere) 'Loop through the Records Do Until rst.EOF 'Concatenate the items Concatenate_test_items = Concatenate_test_items & ", " & rst!test 'move to the next Record rst.MoveNext Loop 'Remove the initial ", ", thats why we start from the 3rd letter Concatenate_test_items = Mid(Concatenate_test_items, 3) 'clean up memory rst.Close: Set rst = Nothing End Function جعفر ملاحظة: لأني لا استعمل ActiveX الباركود ، فقد قمت بحذفه من الكود ، فيجب ان تختاره مرة اخرى 1377.test.accdb.zip