كل الانشطه

جربت الملف المرسل وبالفعل تم تشغيل ملف الأكسس في الحالتين زلكن الفكرة هنا ليس أنه يتم تشغيل accde على النواتين بل أن العملية تعتمد على برنامج التحزيم نفسه فهو يقوم بتشفير ملف accdb وتحويله إلى accde بناء على نواة الأوفيس المنصب على الجهاز إذا فمن ناحية لم يتم التغلب على المشكلة نفسها وإنما من ناحية أخرى فقد تم الإلتفاف علي المشكلة بطريقة ذكية جداً للوصول للهدف رائع بشمهندس فادي

برنامج توزيع المراقبين.rar

أخواني وأساتذتي ومعلمينا ( دون استثناء ) كثير من المطورين ومصممي قواعد البيانات والمشاريع الخاصة بهم ، عندما يقوم بحفظ مشروعه بصيغة Accde ؛ بتفاجئ بأن جهاز العميل لم يقم بتشغيل قاعدة البيانات رغم خلوها من جميع الأخطاء البرمجية ، أو عدم التوافقية في الأكواد بين الناتين 32 و 64 . ولذا يلجأ لحفظ قاعدة البيانات بإصدار مطابق لإصدار أوفيس العميل المثبت في جهازه . أو إجبار العميل على تثبيت إصدارات حديثة أو بنواة معينة ... إلخ . اليوم كانت لي تجربة لتقوم بمهمة تشغيل قاعدة بياناتك على أي إصدار وعلى أي نواة وعلى أي ويندوز دون الحاجة لأي تدخل من مطور البرنامج . تجربتي اليوم ستقوم على مشروع مفتوح المصدر تم طرحه بعنوان الأداة :- معالج ومنشئ حزم تثبيت أكسيس الذكي - Access Smart Packager & Setup Builder كتجربة ليس إلا في هذا الموضوع هنا . على العموم وللتوضيح سأقوم بإرفاق ملف قاعدة البيانات ، والتجربة ممن يرغب بمشاركتنا رأيه ما يلي :- ذكر إصدار ونواة آكسيس الذي قام بالتجربة عليه . ذكر اصدار الويندوز ونواتها أيضاً . ممن يملك إصدارين من آكسيس على جهازه ( مثل أخوكم 😅 ، لدي الإصدارين 2019 - 64 ، والإصدار 2010 - 32 ) ، تجربة الفكرة على الاصدارين ومشاركتنا رأيه بنجاح أو فشل التجربة وهي عنوان الموضوع . وهذه صورة من جهازي الشخصي الذي أملك إصدارين مثبتين عليه . المشاركة مفتوحة لمن يرغب وغير مقتصرة على أحد 😇 . وبناء على النتائج والتفاعل ، سأقوم بفتح موضوع مخصص وطرح الأداة والشرح عنها بكامل تفاصيلها وآلية العمل عليها . وتشجيعاً لمن رغب بالتجربة .. جرب في مربع نص المسار اكتب إشارة # يليها مباشرة officena.net ، وهنا السر العجيب . لاحظ الصورة للتوضيح :- ♻ حيث سيتم استخراج قاعدة البيانات مفتوحة المصدر Accdb وليس Accde ♻ يعني يا صديقي يا مطور البرنامج ، لو في يوم من الأيام ولو بعد 10 سنين ؛ جاء العميل راكضاً ويريد منك إضافات وتعديلات جديدة . وتفاجأت بأن النسخة الأصلية ضاعت منك أو لم تعد موجودة في جهازك ولأي سبب من الأسباب .. فقط اكتب كلمة المرور التي حددتها في الأداة التي سيتم طرحها منفردة في موضعها الخاص , وستحصل على قاعدة بياناتك الأصلية مفتوحة المصدر 😁 . حجم الملف المرفق أكبر من الحد المسموح به ، لذا سأرفعه برابط مباشر على جوجل درايف من هنا . طبعاً حجم قاعدة البيانات هو 10 ميجا ..

النسخة الجديدة متاحة الآن

جزاك الله خير الجزاء والف شكر لحضرتك ولمجهودك العظيم

وعليكم السلام ورحمة الله وبركاته .. إليك معادلات شاملة للعيارات من 18 - 24 للحركات مبيعات ومشتريات :- عدد حركات المبيعات للعيار 18 :- ="عدد حركات المبيعات عيار 18 = "&COUNTIFS(C:C,"مبيعات",F:F,18) عدد حركات المشتريات للعيار 18 :- ="عدد حركات المشتريات عيار 18 = "&COUNTIFS(C:C,"مشتريات",F:F,18) عدد حركات المبيعات للعيار 21 :- ="عدد حركات المبيعات عيار 21 = "&COUNTIFS(C:C,"مبيعات",F:F,21) عدد حركات المشتريات للعيار 21 :- ="عدد حركات المشتريات عيار 21 = "&COUNTIFS(C:C,"مشتريات",F:F,21) عدد حركات المبيعات للعيار 24 :- ="عدد حركات المبيعات عيار 24 = "&COUNTIFS(C:C,"مبيعات",F:F,24) عدد حركات المشتريات للعيار 24 :- ="عدد حركات المشتريات عيار 24 = "&COUNTIFS(C:C,"مشتريات",F:F,24) ولو أردت التوسع بتحديد الجديد والمستعمل كمثال :- ="عدد حركات المبيعات الجديدة عيار 21 = "&COUNTIFS(C:C,"مبيعات",E:E,"جديد",F:F,21) ="عدد حركات المبيعات الجديدة عيار 24 = "&COUNTIFS(C:C,"مبيعات",E:E,"جديد",F:F,24) ="عدد حركات المشتريات الجديدة عيار 21 = "&COUNTIFS(C:C,"مشتريات",E:E,"جديد",F:F,21) ="عدد حركات المشتريات الجديدة عيار 24 = "&COUNTIFS(C:C,"مشتريات",E:E,"جديد",F:F,24) ويمكن استعمال معادلة عامة تقرأ تلقائياً الخلايا بقيمها النصية ، كمثال لصف وصنف واحد :- ="عدد حركات "&E1&" "&E2&" عيار "&F3&" = "&COUNTIFS(C:C,E1,E:E,E2,F:F,E3) فتكون النتيجة للمثال السابق = عدد حركات الحالة جديد عيار 21 = 0 وهذا حالياً ما استطعت تنفيذه من طلبك .. الملف للتوضيح :- Book1.xlsx

عاوز احدد حركة المبيعات والمشتريات Book1.xlsx

وعليكم السلام -يمكنك حل هذه المشكلة بالذهاب الى File ثم options ثم Advanced ثم بعد ذلك قم بوضع علامة الصح كما هو موضح بالصورة وشكرا لكم

شكرا على هذة التحفة الفنية ذادك الله من علمة

اللصق يعطي خانة فارغة وفي الملرة الثانية يعطي هذه الصورة

السلام عليكم ورحمة الله حياكم الله اساتذتي الافاضل برنامج الاكسيل 2016 فرنسي لا يسمح باللصق العادي ولا الهبوط الى الاسفل هل من حل فضلا منكم ملاحظة: يسمح باللصق بالقيمة او الدالة لكن الامر متعب لان الملفات فيها خانات ملونة وحروف ملونة لا يمكن تنسيقها مرة اخرى شكرا لكم

وعليكم السلام ورحمة الله وبركاته ، أهلاً بك أخي أيمن عضواً جديداً معنا .. نتمنى أن تجد دائماً حلولاً للمشاكل التقنية البرمجية التي قد تمر بها . ونتمنى أن تصبح عضواً مميزاً وخبيراً في يوم من الأيام ؛ وأن تنفعنا بعلمك الذي علمك الله إياه .. حتى تجد الإجابة بشكل مباشر وصريح على أي طلب لك مستقبلاً ، عليك دائماً أن :- تحاول أن يكون العنوان في مواضيعك حاله كحال عنوان الكتاب ، يوضح ما ترغب به . تقوم بالشرح الوافي الكافي لمن يقرأ موضوعك حتى يفهم ما تفكر به وتحاول إخباره به . ترفق ملف بسيط للمشكلة يساعد من يتقدم لمساعدتك بإيجاد الحل بناءً على بنية ملفك وطبيعته . ولا حاجة بأن تكون البيانات الأساسية إن كانت حساسة هي محتوى الملف ، فيمكنك استبدال أي معلومات شخصية أو تكشف عن هوية أشخاص بأي أرقام أو قيم أو أسماء عشوائية . وأرجو أن تتقبل ملاحظاتي لك بصدر رحب أخوك فـــ(Foksh)ـــادي

السلام عليكم عند استخدام برنامج الجدول المدرسي يظهر لي هذا الخطأ انا استخدم اكسيل 2007

شكرا جزيلا

البتاع محتاج شوية وقت لأنه بيرجعني لموضوع كسر ملفات الـ Accde 😁 ، وأنا صارلي فترة بحاول أزبط اللي أنا خربته 😅 لكن في فكرة تانية ممكن تعجبك ، لما تجرب الملف اللي ارسلته لك 😜

كالعادة حبيبنا ،، أنت نزل البتاع وإحنا نجرب 😁.. والأخطاء أو النواقص بتطلع من نفسها 😇🖐️ وبهذي الطريقة بتكتمل التكة الباقية إن شاء الله .. صعب ندخل معاك عالخط من النهاية بعد ما قطعت شوط طويل من البحث والتجربة 🙃 (اطمن) إحنا بندعيلك بالتوفيق والتيسير 😅🤲

وعليكم السلام ورحمة الله وبركاته .. مشكلتك أخي الكريم في السطر :- rsFiltered.Close والذي يعنيه ان المتغير لم يتم تنفيذ الجملة :- Set rsFiltered = rs.OpenRecordset عليه في بعض الحالات ؛ وبالتالي بقيت قيمته = لا شيء = Nothing . ففي كودك وتحديداً ، إذا كان rs فارغاً ، فإنه لن يدخل في هذا الشرط :- If Not rs.BOF And Not rs.EOF Then وعليه ، فأني اقترح عليك استبدال هذا الجزء :- rsFiltered.Close rs.Close 'Sets objects to nothing Set rsFiltered = Nothing Set rs = Nothing Set db = Nothing الموجود في الدالة Private Sub LoadArray ، بهذا الجزء البسيط :- If Not rsFiltered Is Nothing Then rsFiltered.Close Set rsFiltered = Nothing End If If Not rs Is Nothing Then rs.Close Set rs = Nothing End If Set db = Nothing ولكن الأفضل تعديل الحلقة أيضاً ، لأنك تقوم بإنشاء rsFiltered عدة مرات داخل الحلقة :- Set rsFiltered = rs.OpenRecordset وأعتقد أيضاً أن الأفضل إغلاقه بعد الانتهاء منه مباشرة ، وليس انتظار نهاية الإجراء . وبالتالي تعديلي على الدالة كاملة سيكون بهذا الشكل :- Private Sub LoadArray() '-------------------------------------------------------- '----------------- '--------------- '---------------- '---------------- '--------------- '--------------- '-------------------------------------------------------- '---------- 'This procedure loads text into the 3rd column of the array '-------------------------------------------------------- '-------------------------------------------------------- Dim db As DAO.Database Dim rs As DAO.Recordset Dim rsFiltered As DAO.Recordset Dim strSQL As String Dim i As Integer strSQL = "SELECT tblData.ID, tblData.[No], tblData.Name, tblData.Stae, tblData.Day, tblData.Date, tblData.Phone, tblData.Village, tblData.Waitingplace, tblData.Subject,tblData.Presence,tblData.Notes " _ & "FROM tblData; " 'Debug.Print strSQL Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) 'This line ensures that the recordset is populated If Not rs.BOF And Not rs.EOF Then 'Loops through the array using dates for the filter For i = LBound(myArray) To UBound(myArray) 'Checks whether the 2nd element of the array = True If myArray(i, 1) Then 'Filter recordset with array dates rs.Filter = "[Date] = " & myArray(i, 0) 'Open up new recordset based on filter Set rsFiltered = rs.OpenRecordset 'Loop through new recordset Do While (Not rsFiltered.EOF) 'Adds text to the 3rd column of the array myArray(i, 2) = myArray(i, 2) & vbNewLine _ & rsFiltered!No & " / " _ & rsFiltered!Village & " / " _ & rsFiltered!Notes rsFiltered.MoveNext Loop rsFiltered.Close Set rsFiltered = Nothing End If 'Debug.Print myArray(i, 2) Next i End If If Not rs Is Nothing Then rs.Close Set rs = Nothing End If 'Sets objects to nothing Set db = Nothing End Sub وأيضاً كملاحظة مهمة . يوجد احتمال آخر يتعلق بالحقل [Date] وهو للعلم حقل مخالف لقواعد آكسيس حيث ان الإسم محجوز لآكسيس ، وبالتالي قد يسبب لك هذا مستقبلاً مشاكل كبيرة إذا كان يحتوي على وقت بالإضافة إلى التاريخ ؛ عندها المقارنة = قد لا تجد السجلات المتوقعة . ومثله اعتقد في الحقل Day .. حيث ان هذه الأسماء محجوزة لأوامر آكسيس . جرب هذه التعديلات بيدك ، وأخبرني بالنتيجة .

شرح فورم المحاماة ادراج ليبل وتكست وليست بوكس وتنسيفهم رقم3 شرح لفورم المحاماه1.rar

هل ممكن معرفة الخطأ وتعديله لما اضغط على زر ( حجز موعد ) يعطيني خطأ مرفق الملف في الرابط https://we.tl/t-TVrdRy2OBaQgihdG الرقم السري للبرنامج 1234

التكة دي قربت منها .. ولكن تحتاج بعض الوقت للأسف حتى أحكم الوضع كاملاً دون الوقوع في أي خطأ 😁 ولكن ليس معنى الحديث هو عدم مشاركتي الأفكار أخواني الأعزاء .. فلا تبخلوا ، فالمستفيدين سيكون كُثر 😇

إحساسي مايخيبش شكلك لقيت الحل وباقي على الحلو تكة وإحنا في الإنتظار

الجزء الأول من استفسارك هو ما قصدته تمااااماً ، نسخة واحدة Accde ( بغض النظر عن الحماية ..... إلخ ) هذا الكائن البرمجي لا أثق بإجابته حتى لو سألته 1 + 1 وأخبرني أن النتيجة = 2 😅 وللعلم ، أن هذا الجزء المقتبس ، كنت قد اشتغلت عليه بطريقة جعلتني أقترب من ترجمته وعكس هندسة التشفير الخاصة من مايكروسوفت ، فلست قلقاً منها .. وكنت قد أعددت العدة والعتاد وقد توصلت إلى خطوة جيدة لا بأس بها .. لكنها ما زالت قيد الإنشاء .. وموضوعي واستفساري هذا هو جمع أكبر قدر ممكن من المعلومات حول الفكرة للنقاط التي قد تكون فاتتني أو سهيت عنها ولم اذهب باتجاهها الصحيح .. بعض الأجزاء من الصورة تم إخفائها لحين اكتمال الفكرة

ارجو توضيح نقطة فعند إعادة قراءة الموضوع حصل عندي لبس في هذه النقطة فهل تقصد أنه بدل أن يكون عندك نسختين Accde يكون عندك ملف واحد Accdb مؤمن تأمين قوي جداً ؟ (لأن هذا مافهمته من كلامك) فإذا كان قصدك أن يكون الإمتداد Accde فبتأمين أو بدون تأمين من الصعب جداً إذا لم يكن من المستحيل تشغيل ملف Accde تم تشفيرة بإستخدام نواة مختلفة وهذا ما يؤكده الذكاء الصناعي ولكن إذا كنت تقصد أن يكون الملف بإمتداد Accdb ويتم تأمينه تأمين قوي ليصبح من الصعب جداً على أي شخص آخر الوصول إلى عرض التصميم أو التعليمات البرمجية الخاصة به فهذا الأمر ممكن لأن الإمتداد Accdb سيعمل في النواتين ويبقى التحدي في طريقة التأمين