jjafferr

اي برنامج يعمل؟ برنامجك المرفق معطوب (حسب ما يخبرنا الاكسس ، وحسب ما يخبرنا برنامج استرجاع البرنامح المعطوب) . والرابط الذي اعطيتنا فيه الكثير من البرامج ، فرجاء توضيح قصدك. جعفر

متابع 🙂

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

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

السلام عليكم 🙂 هذا الملف من مكتبتي وفيه طلبك ، ولكن للاسف وقتي لا يسمح لي بتعديل ملفك !! . وهذه اكواد الطريقة: Option Compare Database Option Explicit Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim dbs As DAO.Database Dim rstDAO As DAO.Recordset Dim rstADO As ADODB.Recordset Dim fld As ADODB.Field Dim strSQL As String Set rstADO = New ADODB.Recordset With rstADO .Fields.Append "EmployeeID", adInteger, , adFldKeyColumn .Fields.Append "FirstName", adVarChar, 10, adFldMayBeNull .Fields.Append "LastName", adVarChar, 20, adFldMayBeNull .Fields.Append "Email", adVarChar, 64, adFldMayBeNull .Fields.Append "Include", adInteger, , adFldMayBeNull .Fields.Append "Selected", adBoolean, , adFldMayBeNull .CursorType = adOpenKeyset .CursorLocation = adUseClient .LockType = adLockPessimistic .Open End With Set dbs = CurrentDb strSQL = "SELECT EmployeeID, FirstName, LastName, Email " & _ "FROM Employees ORDER BY LastName, FirstName" Set rstDAO = dbs.OpenRecordset(strSQL, dbOpenDynaset) Do Until rstDAO.EOF rstADO.AddNew rstADO.Fields(0) = rstDAO!EmployeeID rstADO.Fields(1) = rstDAO!FirstName rstADO.Fields(2) = rstDAO!LastName rstADO.Fields(3) = rstDAO!Email rstADO.Fields(4) = Null rstADO.Fields(5) = Null rstADO.Update rstDAO.MoveNext Loop Set Me.Recordset = rstADO Me.AllowAdditions = True Set rstDAO = Nothing Set dbs = Nothing End Sub Private Sub txtEmployeeID_DblClick(Cancel As Integer) Dim rst As New ADODB.Recordset Set rst = Me.Recordset.Clone With rst .AddNew .Fields(0) = 99 .Fields(1) = "danny" .Fields(2) = "lesandrini" .Fields(3) = "d@l.org" .Fields(4) = 1 .Fields(5) = True .Update End With Set Me.Recordset = rst End Sub جعفر ADORST.mdb

وعليكم السلام 🙂 اخي الكريم ، برنامجك معطوب ولا يمكن استرجاع اي شيء منه ، للأسف !! جعفر

وعليكم السلام 🙂 الحل الاقصر if len(dir("\\100.0.100.5\temp\myData.accdb"))=0 then msgbox "لا توجد شبكة" end if جعفر

على قائمتي ، عمل نموذج واحد يقوم بإعطائك SQL استيراد الحقول التي تريدها من ملف الاكسل ، ولكنها ليست اولوية بالنسبة لي الآن 😁 جعفر

كانت هناك مشكلة ايضا في اذا العدد العشري زاد عن رقمين ، فالعملية الحسابية كانت تقضم بقية الخانات 😁 فعملت التغيير على قدر استطاعتي ووقتي 🙂 ابحث عن j' في الكود لترى تغييراتي 🙂 جعفر 1515.Moosak Calculator V1.1.accdb

تفضل 🙂 هذا الكود على "بعد تحديث" حقل التاريخ : Private Sub التاريخ_AfterUpdate() If Len(Me.المعرف & "") = 0 Then Me.المعرف = Nz(DMax("[المعرف]", "تتبع") + 1, 0) End If End Sub جعفر Database5.zip

السلام عليكم اخي rockjone33 🙂 لما يكمل العمل ، وحتى يأخذ عملك حقه ، رجاء عمل موضوع جديد لعملك ، تشرح فيه خواصة وطريقة العمل 🙂 جعفر

رجعت الى الانترنت وعملت بحث عن هذه المشكلة ، واتضح ان سببها هو احد تحديثات الاكسس في 26/1/2022 ، والحل : 1. اجعل برنامجك في مجلد موثوق ، وشغله من هناك (واجة الاكسس) : Access > Options > Trust Center > Trusted Locations > Trust Center settings > Trusted locations > Access folder location(s) 2. اعمل تحديث للاكسس ، فالتحديثات الجديدة سوف تحل المشكلة 🙂 جعفر

رجاء اعطنا معلومات اكثر ، علشان نعرف متى تحدث المشكلة ، وشو النماذك اللي تكون مفتوحة وقتها ، وهل عندك صور فيها وووو

لازم ترفق طريقة الاستعمال ، علشان يعرف صاحب السؤال طريقة عمل برنامجك 🙂 جعفر

في النموذج ، على حدث "بعد التحديث" لأي حقل اساسي ، تقدر تضع هذا الكود : If Len(Me.المعرف & "") = 0 Then Me.المعرف = Nz(DMax("[المعرف]", "تتبع") + 1, 0) End If . بس نصيحة ، وبما ان البرنامج بعده في اوله ، اكتب اسماء الحقول في الجدول باللغة الانجليزية ، ومو لازم تكتب معنى الكلمة بالانجليزي ، فبدل كلمة طالب/تلميذ ، مو لازم تكتب Student ، تقدر تكتبها مثل نطقها بالعربي Talib ، مثلا 🙂 جعفر

اخي @almamare12 🙂 قصد اخوي @ابو البشر ، ان الكود يعمل بطريقة صحيحة ، ولكن معلومات المعرف غير موجودة في جدول تتبع 🙂 جعفر

وعليكم السلام 🙂 هذه المعلومة غير كافية لمعرفة اصل المشكلة !! جعفر

حياك الله 🙂

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

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

وعليكم السلام 🙂 شكرا اخوي @kanory اخي كمال، هنا ستجد رابط لأحد البرامج المجانية (للاستعمال الشخصي) : جعفر

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

سيدي الفاضل ، الخطأ مو من جانبك ، وانما من جانبي انا 🙂 انا اخبرتك سابقا : . وهذا معناه ، نأخذ حقول الاكسل : 1. A1 : من الخلية 1 في الحقل A ، 2. U655361 : الى الخلية 655361 من الحقل U . بينما لما فتحت ملف الاكسل حقك للاستعلام 6 ، اتضح انك تعديت الحقل U ووصلت الى AL . لهذا السبب ، يجب ان نختار الحقول الى حقل ابعد ، مثل BA ، فلما نغير استعلامك الى هذا الحقل : . نرى انه قد عرض جميع الحقول : . وقد قمت بتعديل هذا في برنامجك ، بالاضافة الى بعض الامور الاخرى 🙂 ولما نظرت الى الاستعلام 4 ، اتضح انك تعديت BA ، واصبح الجقل الجديد DA !! فالسؤال اللي يطرح نفسه ، هل فيه مشكلة اذا جعلت الحقول الى ابعد من هذا ؟ والجواب حسب ما ارى ، لا ، لا توجد مشكلة ، فقط بطئ بسيط في فتح الاستعلام 🙂 عند استيراد بياناتك مرة اخرى الى الجداول ، حصلت على هذا الخطأ . والذي معناه (في حالتك) ، انه في الاستعلام ، يجب عليك اختيار الحقول مرة اخرى ، بحيث ما يكون عندك حقل بهذه الطريقة جعفر 1506.3.Export captions to excel.mdb.zip

كان الموضوع شيقا ، ويفتح عالم جديد ، و لسببين رأينا اغلاق الموضوع قبل فتحة: 1. لأنه ليس برمجة الاكسس ، 2. لأنه سيحتاج الى دعم فني ، وكذلك لأنه ليس اكسس ، فليس مكانه هنا 😁 . الحمدلله ما قال: جعفر بيقول ان الموضوع سيكون مخالف 😂 جعفر

احم احم سمعتوا شباب ، يعني في منا فائدة ،يا الله صيروا شطّار واسمعوا الكلام 😎