jjafferr

السلام عليكم 🙂 هل هذا المطلوب؟ جعفر 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

وكذلك اقول:

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

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

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

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

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

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

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