ابو جودي

لاحظت ان قاعدة البيانات التى تعمل من خلال تمرير البيانات الى ملف تنفيذى والذى تم انشاءه من خلال الفيجوال دوت نت العمل بطئ نظرا لارسال البيانات واستقبال الكود المشفر من ملف نصى دوال الـ API احدثت مشاكل كع نسخة اوقيس 2007 وبالرغم من التعديل والتجربة بنجاح الا انه اصناء التعديل تم ملاحظة ان الانتى فايروس يحذف الملف التنفيذى ولما سبق تم بفضل الله سبحانه وبحمده تعديل المرفق ليعمل من خلال مكتبات الجافا بدون اى برامج خارجية كل الاكواد من خلال الاكسس فقط وبدون استخدام دوال الـ API فى انتظار ردكم بعد التجارب E-Invoicing.zip

ابشر ان شاء الله سوف اقوم بالمراجعة والتحقيق واعود اليكم فى القريب العاجل

اهلا بك .. لا شكر على واجب

انظر الى المرفق test (2) (1).accdb

الاستعلام يعمل بنجاح ما فى اى مشاكل السؤال هو متى تريد ان يتم تشغيل الاستعلام ؟

اكمل باقى الاستعلام كما تريد بنفس الكيفية التى بدأتها لك test (2).zip

السلام عليكم يا استاذى الفاضل .. لو تكرمت ممكن الموضوع الرئيسي اللى حضرتك طبقت منه نظام الصلاحيات او المرفق الاصلى الذى يعمل بدون اى مشاكل

اتفضل za-AKSAT-Pro-LAST- (1).mdb

ومع تجربة الرقم الاتى تكون نتيجة خطأ - تاريخ الميلاد 82 1008229010391300 وفكرتى فى حدث فتح النموذج Dim rst As dao.Recordset Dim inc As Long Set rst = CurrentDb.OpenRecordset("SELECT جدول1.* FROM جدول1;") rst.MoveFirst Do Until rst.EOF If Mid(rst![رقم _التعريف _الوطني], 4, 2) > Format(Date, "yy") Then inc = "19" & Mid(rst![رقم _التعريف _الوطني], 4, 2) ElseIf Mid(rst![رقم _التعريف _الوطني], 4, 2) <= Format(Date, "yy") Then inc = "20" & Mid(rst![رقم _التعريف _الوطني], 4, 2) End If rst.Edit rst!سنة_المبلاد = inc rst.Update rst.MoveNext Loop rst.Close: Set rst = Nothing MsgBox "Done"

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

جزانا الله واياكم وكل وامة محمد صل الله عليه وسلم خير الجزاء ان شاء الله انا ما لى علاقة بالتصميم نهائى ولا اعرف عنه شئ فصاحبه ادرى بافكاره .... أهل مكة أدرى بشعابها فقط قمت بتحقيق المطلوب على المرفق وهذا تعديل جديد للعمل بطريقة عكسية فى حالة الغاء التاشير Microsoft Access3.zip

لا خالص تم تصوير الشاشة من واقع تجربة المرفق

تجربة حسب فهمى اذا انا فهمت صح يبقى ان شاء الله تمام 🤭 Microsoft Access2.zip

فى انتظار استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 🙏

الى الان مش قادر افهم شئ من المرفق

وماذا بعد ذلك الجدول ؟بصراحة انا لم استطع فهم الموضوع حاولت مرارا وتكرار ازالة حركات التشكيل ولكن دون جدوى وهذا المرفق حصلت على الايات من مجمع الملك فهد لطباعة المصحف الشريف ولكن عجزت بكل السبل عن ازالة حرجات التشكيل 😭 quran.zip

طالما ان التعامل مع الـ SQL server احيلك الى الموضوع التالى 2- https://www.generacodice.com/en/articolo/127163/الهروب-في-SQL-الوصول

اعتقد والله اعلم هو كذلك سيكون الاكسس مجرد واجهة رسومية ليس الا وسف يكون الـ Sql هو قاعدة البيانات

ممكن مرفق

اتفضل يا دكتور لم اخض التجربة ولكن اعتقد ان هذا الموضوع يقدم المساعدة وكذلك

قاعدة البيانات تم تحويلها الى accde .. ما راح تلاقى مساعدة قاعدة البيانات مغلقة وتم حجب الاكواد

وان اردتها بطريقة صريحة بدون استخدام المعيار تكون كالتالى 'نستخدم ذلك مع النصوص 'لو حقل الـ "username" 'فى الجدول من النوع نص استخدم الكود بالشكل الاتى y = DLookup([userpasword], "users", "[username]='" & Me.[txtname] & "'") 'نستخدم ذلك مع الارقام 'لو حقل الـ "username" 'فى الجدول من النوع رقم استخدم الكود بالشكل الاتى y = DLookup([userpasword], "users", "[username]=" & Me.[txtname]) 'نستخدم ذلك مع الوقت والتاريخ 'لو حقل الـ "username" 'فى الجدول من النوع تاريخ استخدم الكود بالشكل الاتى y = DLookup([userpasword], "users", "[username] =#" & Me.[txtname] & "#")

انا اقل طويلب علم واليكم الشرح داخل الكود الذى يخص مشاركتكم 'Y = DLookup("[userpasword]", "users", "[username] = [txtname]") نستخدم ذلك مع الارقام' Dim stLinkCriteria As Integer stLinkCriteria = "[username]=" & Me.txtname نستخدم ذلك مع النصوص' Dim stLinkCriteria As String stLinkCriteria = "[username] ='" & Me.txtname & "'" نستخدم ذلك مع التواريخ' Dim stLinkCriteria As Date stLinkCriteria ="[username] =#" & Me.txtname & "#" y = DCount([userpasword], "[users]", stLinkCriteria)

فضلا وكرما تاكد انه موجود ضمن المكتبات لابد انى سأغير رأى عن استخدام الميديابلاير بسبب هذه المشكلات والتى بكل صراحة لا اعلم سببها لانها لم تحدث معى