jjafferr

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

بالضبط لهذا السبب يجب ان لا نستعمله في الجدول 🙂

مثل تفضلت ، بس بزاوية مختلفة 🙂 . جعفر

شكرا على المرفق 🙂 انا عملت التغيير اللي اخبرتك ، ولكن على حقل آخر (للمقارنة) ، ويجب ان يكون نص : . ونحصل على نفس النتائج: . ولكن ، وبما انه Combobox ، فلا يمكننا معرفة العمود الاول والثاني من مجرد النظر الى النتيجة ، فالاعدادات هي التي تخلينا نرى النتيجة ، لهذا السبب ، خلينا نطلب قيمة الاعمدة بالاسم : . والنتيجة ، معناها ان التغيير اللي عملته انا في الاعدادات ، في الواقع ما عمل تغيير في قيم الـ Combobox بالنسبة للأكسس : . ولكن لما تستورد البيانات من اكسل ، تكون النتيجة: . جعفر 1517.Combo_Column2.zip

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

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

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

وابويا انا عليك موسى ، تو ملاحظتي صارت لا محل لها من الاعراب 🤔🙄 🙂 جعفر

عفوا ، انا اتفق معاكم 100% بأن تقسيم البرنامج هو الطريقة الصحيحة لمشاركته ، ولكن تعليقي كان على كلمة "يجب" اخوي موسى 🙂 جعفر

السلام عليكم 🙂 قبل كل شيء ، خلوني ابخر المكان عن العين ، علشان ما تصيب الحبايب 😁 . شكرا على الفكرة الجديدة ، بأرسال النسخة الجديدة من FE بإستخدام BE ، بدل عن سحبها بواسطة FE 🙂 في الواقع انا اكملت برمجة التحديث قريبا ، ودارت في بالي العديد ، وقرأت عن العديد من الطرق ، واستقر رأيي على الطريقة التقليدية ، مع العلم ان هذه الفكرة اتت على بالي (BE هو الذي يرسل التحديث) ، ولكن ارتأيت عدم استخدامها ، لأسباب التالية: ضعف الشبكة في موقع العمل ، وفي الواقع هذه تجربة جدا فريدة ، جعلتني اعيد النظر في الكثير من تفاصيل البرمجة ، وقد اُوفق لعمل موضوع خاص به إن شاء الله ، المستخدم (على الاقل 4 حاليا) ، يجب ان يُلبي طلب الزبائن ، بمعدل 3 زبائن في الدقيقة (والامل ان يكون اكثر) ، وبسبب ضعف الشبكة ، التركيز كان على جعل BE في حالة تأهب لخدمة المستخدم ، ولا نشغل BE بأي شيء آخر ، يجب ان يتم التحديث بدون تدخل المستخدم ، فهنا يجب ان نعرف مسار برنامج FE المستخدم ، تلقائيا ، وليس مكان البرنامج الاصل ، فربما ولسبب ما ، قام المستخدم بتغيير مكان المجلد الى مكان آخر ، كانت الفكرة ، ان لا استعمل نموذج في BE ، وانما عن طريق ادخال قيمة في حقل معين في جدول ، وهذا الحقل يقوم بتشغيل وحدة نمطية في BE ويقوم بعمل اللازم ، بهذه الطريقة: هذه المعلومة غير دقيقة ، فأول برنامج اكسس عملته لمؤسسة عام 2002 ، وضعت البرنامج كاملا على السيرفر ، وكان يستخدمة بين 5-8 اشخاص في اليوم ، والحمدلله الله ستر وما صارت مشكلة فيه 🙂 وحيا الله بالحبايب ، اللي ذكروني ، واللي ما ذكروني 🙂 جعفر

وهذه طريقة اخرى ، لعمل النسخ الاحتياط مباشرة على Google Drive جعفر

وعليكم السلام 🙂 البرنامج فيه خطأ !! المفروض لما تختار من ايقونة مسار التحديث ، وتختار المسار ، المفروض ان يتم تثبيته ، واستعماله ، ولكن السطر التالي من كود زر الحفظ ، لا يراعي ذلك ، وفي نفس السطر يمكنك تغيير المسار (الثانوي/الاضافي) اذا وُجد ، تغيير السطر التالي DstFile = CurrentProject.Path & "\Copy\نظام ادارة شؤون التلاميذ الاصدار 1.00-" & Format(Now, "dd-mm-yyyy") & "-" & Format(Now, "hh-nn-ss") & ".accdb" CurrentProject.Path معناه المجلد الذي به قاعدة البيانات بينما نريد ان نحفظه في المسار الذ اخترناه الى DstFile = Copy_Path & "\Copy\نظام ادارة شؤون التلاميذ الاصدار 1.00-" & Format(Now, "dd-mm-yyyy-hh-nn-ss") & ".accdb" بينما اذا لم نرد ان نحفظه في اي مجلد ثانوي ، وانما حفظه في المسار الذي تم اختياره من الايقونة DstFile = Copy_Path & "\" & "نظام ادارة شؤون التلاميذ الاصدار 1.00-" & Format(Now, "dd-mm-yyyy-hh-nn-ss") & ".accdb" جعفر

اخي عمار 🙂 رجاء عدم كتابة اكثر مو موضوع بنفس السؤال. مكرر يُغلق

اعتذر منك ، فلا يحق لنا التدخل في تعديل مثل هذا البرنامج الكبير إلا لمساعدة المبرمج ، او ما يُثبت بأن للشركة الحق في تعديل البرنامج ، لذا فالموضوع مخالف لـ "حقوق الملكية الفكرية" للمبرمج. الموضوع بين الشركة والمبرمج ، يُغلق . جعفر

اخي الكريم 🙂 فيه مجموعة اسئلة تحوم حول هذا الموضوع: 1. سؤال هذا الموضوع كان حول المرفق Database10.mdb وانه لا يعمل ، وقد اخبرتك انه معطوب ولا يمكن استرداد بياناته ، بينما تتكلم الآن عن مرفق آخر ، وتريد حذف بعض بياناته ، فأي علاقة بين السؤال الاصل وطلبك الاخير ؟ 2. التقرير الذي تتكلم عنه ، عبارة عن 5 صفحات ، وبه 151 سجل ، منهم 146 سجل بدون تاريخ : . وحتى التاريخ المكتوب في الجدول غير تقليدي : . فكيف تريد ان تختار التواريخ !! 3. تعليقك هذا معناه انك لست صاحب البرنامج : . فعليه ، يجب عليك التواصل بالمبرمج الذي عمل البرنامج ، ليعمل لك اللازم 🙂 قوانين المنتدى تراعي "حقوق الملكية الفكرية" للمبرمج ، وخلاف ذلك يعتبر مخالفا لقوانين المنتدى 🙂 جعفر

وعليكم السلام 🙂 كل اللي محتاج له هو الامر : Not In في معيار الاستعلام ، والرابط التالي فيه مثال: . ولكن ، البيئة اللي تريد تشتغل فيها ، غير مناسبة لجداول الأكسس ، والافضل ان تستعمل جداول SQL Server او mySQL على احد مواقع الانترنت ، وتربط واجهة الاكسس بها ، بهذه الطريقة تكون بياناتك على الانترنت ، والكل يقدر يشوفها ويستعملها في نفس الوقت. جعفر

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

متابع 🙂

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

وعليكم السلام 🙂 من مشاركتك سابقا ، ومن مشاركتك الاخيرة ، يتضح بأنك تقوم بتغيير اسماء/تسمية حقول الجداول بإستمرار ، لذلك ، لما تكون قد صدّرت الى ملف اكسل ، ثم قمت بتغيير اسماء/تسمية حقول الجداول ، واردت الاستيراد من ملف الاكسل مرة اخرى ، ستحصل على هذا الخطأ ، لأن اسماء الحقول في الملف ليست نفسها الموجودة في الجدول !! لذا ،كلما تعمل تغيير في اسماء/تسمية حقول الجداول ، يجب : اعمل تصدير الى ملف اكسل ، اذهب الى الاستعلام وقم بتغيير اسماء الحقول فيه ، وكما اخبرتك سابقا ، اسماء/مسميات الحقول التي لا تتشابه بين ملف الاكسل والجدول ، ستجد انها تبدأ بـ 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