اذهب الي المحتوي
أوفيسنا

ابو جودي

أوفيسنا
  • Posts

    6997
  • تاريخ الانضمام

  • Days Won

    202

كل منشورات العضو ابو جودي

  1. انظر الى المرفق test (2) (1).accdb
  2. الاستعلام يعمل بنجاح ما فى اى مشاكل السؤال هو متى تريد ان يتم تشغيل الاستعلام ؟
  3. اكمل باقى الاستعلام كما تريد بنفس الكيفية التى بدأتها لك test (2).zip
  4. السلام عليكم يا استاذى الفاضل .. لو تكرمت ممكن الموضوع الرئيسي اللى حضرتك طبقت منه نظام الصلاحيات او المرفق الاصلى الذى يعمل بدون اى مشاكل
  5. اتفضل za-AKSAT-Pro-LAST- (1).mdb
  6. ومع تجربة الرقم الاتى تكون نتيجة خطأ - تاريخ الميلاد 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"
  7. جزانا الله واياكم وكل وامة محمد صل الله عليه وسلم خير الجزاء ان شاء الله رجاء لا تنسي التاشير على افضل اجابة
  8. جزانا الله واياكم وكل وامة محمد صل الله عليه وسلم خير الجزاء ان شاء الله انا ما لى علاقة بالتصميم نهائى ولا اعرف عنه شئ فصاحبه ادرى بافكاره .... أهل مكة أدرى بشعابها فقط قمت بتحقيق المطلوب على المرفق وهذا تعديل جديد للعمل بطريقة عكسية فى حالة الغاء التاشير Microsoft Access3.zip
  9. تجربة حسب فهمى اذا انا فهمت صح يبقى ان شاء الله تمام 🤭 Microsoft Access2.zip
  10. فى انتظار استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 🙏
  11. وماذا بعد ذلك الجدول ؟بصراحة انا لم استطع فهم الموضوع حاولت مرارا وتكرار ازالة حركات التشكيل ولكن دون جدوى وهذا المرفق حصلت على الايات من مجمع الملك فهد لطباعة المصحف الشريف ولكن عجزت بكل السبل عن ازالة حرجات التشكيل 😭 quran.zip
  12. طالما ان التعامل مع الـ SQL server احيلك الى الموضوع التالى 2- https://www.generacodice.com/en/articolo/127163/الهروب-في-SQL-الوصول
  13. اعتقد والله اعلم هو كذلك سيكون الاكسس مجرد واجهة رسومية ليس الا وسف يكون الـ Sql هو قاعدة البيانات
  14. ممكن مرفق
  15. اتفضل يا دكتور لم اخض التجربة ولكن اعتقد ان هذا الموضوع يقدم المساعدة وكذلك
  16. قاعدة البيانات تم تحويلها الى accde .. ما راح تلاقى مساعدة قاعدة البيانات مغلقة وتم حجب الاكواد
  17. وان اردتها بطريقة صريحة بدون استخدام المعيار تكون كالتالى 'نستخدم ذلك مع النصوص 'لو حقل الـ "username" 'فى الجدول من النوع نص استخدم الكود بالشكل الاتى y = DLookup([userpasword], "users", "[username]='" & Me.[txtname] & "'") 'نستخدم ذلك مع الارقام 'لو حقل الـ "username" 'فى الجدول من النوع رقم استخدم الكود بالشكل الاتى y = DLookup([userpasword], "users", "[username]=" & Me.[txtname]) 'نستخدم ذلك مع الوقت والتاريخ 'لو حقل الـ "username" 'فى الجدول من النوع تاريخ استخدم الكود بالشكل الاتى y = DLookup([userpasword], "users", "[username] =#" & Me.[txtname] & "#")
  18. انا اقل طويلب علم واليكم الشرح داخل الكود الذى يخص مشاركتكم '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)
  19. فضلا وكرما تاكد انه موجود ضمن المكتبات لابد انى سأغير رأى عن استخدام الميديابلاير بسبب هذه المشكلات والتى بكل صراحة لا اعلم سببها لانها لم تحدث معى
  20. اعتقد هذا من خلال دمج الـ HTML مع الاكس والذى يتميز ويتفرد فيها استاذنا القدير ومعلمنا الحليل الاستاذ @أبو إبراهيم الغامدي طبعا طلبنا منه تعليمنا ولكن اصلا الاحظ مروره للمنتدى متقطع وعلى فترات متباعدة اسأل الله ان ييسر له مل اموره ان شاؤ الله ومن خلال معرفتى البسيطة والضئيلة جدا تم تعريف المتصفخ من هلال وسم يخص لغة الـ html لتعريف المتصفح ولكن طبعا اجابتى سطحية جدا واتمنى التعمق وبحثت على الانترنت عن دروس تخص الـ HTML مع الاكسس ولم اوفق
  21. نعم بالفعل استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr اعلم ان اجابتى هى الاجابة الصريحة التى تتمتم العمل طبقا للسؤال وهذا من فضل الله ثم افضالكم كما تعلمنا على اياديكم ولكن لكل قاعدة شواذ وتدخلكم استاذى بصراحة لم يخطر على بالى ولكنه حائط صد منيع للوقوف امام تلك الشواذ من القواعد والتى تسير الاحتقان للمصمم لذا وان كان الامر بيدى لوضعت اجابتكم وعن قناعة والله بانها الافضل فعلا لانها كذلك وهذا الاوجب.... ولازلت مصرا اذا حضر الماء بطل التيمم لم اضع اى ايموشن على مشاركتكم كذك لانها تنقسم قسمان الشق الذىى يخص سبب اختيارك هذا لا احبذ ان اضع له اى ايموشن تعبيرى لاننى ضده بصراحة اما الشق الثانى من مشاركتكم استاذى يستاهل مليون لايك
  22. اضحك الله سنكم اخى واستاذى المبجل الاستاذ @ناقل بس لو تضحكنا معاك 🤪 ماهو مش اشد انا فى شعورى وانت تضحك ع الجاهز ربنا يسعدكم جميعا احبكم فى الله
×
×
  • اضف...

Important Information