jjafferr

عملت تعديل بسيط ، بحيث النموذج MainForm يكون النوذج الرئيسي ، ولا تحتاج الى النموذج Navigation Form ، وتقدر تضيف النماذج الفرعية كما تشاء 🙂 جعفر 1154.مساح.accdb.zip

وعليكم السلام 🙂 الآن نظرت الى الموضوع بالكامل ، واضطررت ان اغير الامر ، لأن الامر السابق يصدر تسمية الحقول (باللغة العربية) ، بينما لما نستوردهم ، لما يعمل مقارنة اسماء الحقول بالتي موجودة في الجدول ، يرى انها مختلفة ، فتظهر رسالة تقول بأن الحقل الفلاني غير موجود في الجدول !! هذا الكود الجديد: Private Sub cmd_Delete_Records_Click() Dim strSQL As String strSQL = "DELETE [tbl_Teacher].* FROM [tbl_Teacher];" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Sub Private Sub cmd_Export_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", ImportFileName, True End Sub Private Sub cmd_Import_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.TransferSpreadsheet acImport, 8, "tbl_Teacher", ImportFileName, True End Sub جعفر 1153.db2.zip

وعليكم السلام 🙂 نعم يوجد ، تفضل : جعفر

السلام عليكم 🙂 وبالمشاركة مع اخي محمد 🙂 الرسالة واضحة ، الاكسس لم يجد الحقل: cboServeyorID في النموذج MainForm فتأكد انه موجود ، وانك مختار له قيمه 🙂 جعفر

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

وعليكم السلام 🙂 اخوي احمد ، يجب ان يكون عندك ملف اسمه tbl_Teacher.xls في نفس المجلد الذي يكون فيه برنامجك ، كما انه في خطأ td الكود عندك : بدل ImportFileName = CurrentProject.Path & "tbl_Teacher" & ".xls" اكتب ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" فيصبح الكود كاملا هكذا: Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.RunSQL ("Delete * From tbl_Teacher") 'هذا السطر يحذف بيانات الجدول DoCmd.TransferSpreadsheet acImport, 8, "tbl_Teacher", ImportFileName, True واذا صادفت مشكلة ، فرجاء اذكر رقم الخطأ (وياريت صورة واضحة منه) ، كما رجاء تخبرنا على اي سطر يقع الخطأ 🙂 جعفر

حياك الله 🙂

حياك الله 🙂 جعفر

بدل الكود السابقة ، استعمل : Private Sub Rank_AfterUpdate() If Me.Dirty Then Me.Dirty = False Set rst = Me.RecordsetClone dim s as long S = Me.SERIAL Me.Painting = False Me.Requery rst.FindFirst "[Serial]= " & S Me.Bookmark = rst.Bookmark Me.Painting = True rst.Close: Set rst = Nothing End Sub جعفر

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

تفضل المرفق 🙂 1149.crewing - Copy.accdb.zip

وعليكم السلام 🙂 الاستعلام: . النموذج: اضف كود لكي يقرأ النموذج الفرعي بيانات الاستعلام بعد "الخروج من حقل تاريخ الانتساب.الى" (نحن عادة نستخدم حدث بعد التحديث ، ولكني اعرف ان المستخدم سيغير بين التاريخين ، فلا داعي ان يُدخل التاريخ "الى" مرة ثانية) Private Sub srch_JoinDate_To_LostFocus() Me.Sub_MembersDetail_Frm.Form.Requery End Sub 1152.1.AddressSearch.accdb.zip

الحمدلله 🙂

Crew في الحدث بعد التحديث للحقل Rank

استعمل هذا الكود : Private Sub Rank_AfterUpdate() Me.document1 = Me.Text514 Me.[2] = Me.Text522 Me.[3] = Me.Text528 Me.[4] = Me.Text516 Me.[5] = Me.Text530 Me.[6666] = Me.Text534 Me.[6] = Me.Text258 Me.[7] = Me.Text260 Me.[8] = Me.Text262 Me.[9] = Me.Text284 Me.[10] = Me.Text270 Me.[11] = Me.Text266 Me.[12] = Me.Text272 Me.[13] = Me.Text276 Me.[14] = Me.Text274 Me.[15] = Me.Text278 Me.[16] = Me.Text280 Me.[17] = Me.Text282 Me.[18] = Me.Text286 Me.[19] = Me.Text288 Me.[20] = Me.Text290 Me.[21] = Me.Text497 End Sub جعفر

ما هو اول نموذج يتم فتحه في البرنامج ، اريدك ترفق كود حدث عند الفتح او حدث الحالي او حدث عند التحميل ، وكذلك اريدك ترفق الكود للنموذج الرئيسي الذي نتكلم عنه ، اريدك ترفق كود حدث عند الفتح او حدث الحالي او حدث عند التحميل ، وحدث الاغلاق . كذلك اريد صورة النموذج

من اين تأتي بيانات هذه الحقول الـ 21 ، على اي اساس تأتي ؟ لم اجد صله لهم !! جعفر

ولا يهمك 🙂

اعذرني اخوي ، انا احاول افهم لهجتك العراقية ، فياريتك تكتب بالفصحى علشان نفهمها بالكامل !! اللي فهمته منك: عند فتحك النموذج الرئيسي ، ما تظهر رسالة الخطأ ، ولكن لما تغلق النموذج الرئيسي ، بعض الاوقات تظهر الرسالة ، وكذلك لما تعمل تصغير ثم تكبير للنموذج الرئيسي تظهر الرسالة ؟ ممكن ترفق كود اغلاق النموذج ، وكود تصغير/تكبير النموذج . جعفر

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

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

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

وعليكم السلام 🙂 رجاء ارفق البرنامج . جعفر

اخي الفاضل ، انصحك بمراجعة الرابط التالي والروابط الذي به جعفر

عفوا ، السؤال يحتاج توضيح اكثر لوسمحت ، ويا ريت مرفق 🙂 جعفر