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

jjafferr

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    9903

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

  • تاريخ اخر زياره

  • Days Won

    404

 نوع المحتوي 

كل منشورات العضو jjafferr

  1. jjafferr
    والجواب على مشاركتي انا انا ، هل حلت المشكلة 🙂 جعفر
  2. jjafferr
    وعليكم السلام 🙂 هذه طريقتي لكود اخي السيد حسام 🙂 Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Do You Want To Save Data", vbYesNo, "Confirm Save") <> vbYes Then me.Undo Cancel=true End If End Sub . ولكن وش لك في البحر واهواله و رزق الله على السيف 🙂 الاكسس يعمل لك هذا التغيير مباشرة من الزر الذي حوله دائرة حمراء : . جعفر
  3. jjafferr
    شكرا جزيلا اخي احمد سعد على البرنامج ، ان شاء الله الاعضاء يستفيدوا منه 🙂 جعفر
  4. jjafferr
    الملف غير موجود على الرابط (الرابط يقول بانك لازلت تُحمّل الملف !!) قبل ان ترفع اي ملف الى اي موقع على الانترنت ، يُفضل ان تعمل له ضغط بواسطة winRar او winZip لتقليل حجمه وسرعة ارساله 🙂
  5. jjafferr
    سيدي الفاضل 🙂 الرابط اللي اعطيتك ، فيه الطريقة اللي انا شخصيا استخدمها في برامجي ، وها انا ذا استخدمها هنا كذلك : في VBE او Notepad او الوورد او اي برنامج ، قم بتفكيك الامر iif الى سطور ، حتى يكون الامر سهل لك في فهم ما تقوم به ، وحتى الكلمات العربية ما تتداخل وسط الكود ويصبح الكود غير مفهوم : . IIf([ff] = "نجاح", 1, _ IIf([ff] = "فشل", 2, _ IIf([ff] = "Na", 3, _ IIf([ff] <> "نجاح" And [ff] <> "فشل" And [ff] <> "Na", 3, "")))) IIf([ff] = "نجاح", 1, IIf([ff] = "فشل", 2, IIf([ff] = "Na", 3, IIf([ff] <> "نجاح" And [ff] <> "فشل" And [ff] <> "Na", 3, "")))) . وفي النهاية ، احذف العلامة _ وضع الكود في سطر واحد (اوقف على نهاية السطر الاول ، واحذف العلامة _ ، ثم انقر على زر Del على لوحة المفاتيح حتى يأتي السطر الثاني في نهاية السطر الاول ، ويبقى لدينا سطر واحد فقط ، والذي سنأخذ نسخة منه الى الاستعلام مباشرة) . لاحظ في الاستعلام انه بالفعل قلب لنا المتغيرات والحقول ، بسبب اللغة العربية : . . رجاء احتفظ بملف النص ZZ.txt ، فكلما اردن ان تعمل تعديل على معادلة الاستعلام ، اعملها في ملف النص ، ثم انسخها الى الاستعلام 🙂 اما انا ، فبدل ان يكون عندي ملف اضافي في هذا المشروع ، فأقوم بعمل هذه الخطوات في VBE (طبعا ما اناديها برمجيا ولا استعملها) ، واللي تكون جزء من البرنامج 🙂 جعفر ZZ.zip fr.zip
  6. jjafferr
    وعليكم السلام 🙂 مشاركة مع اخي ابو جودي 🙂 . . وهذه هي الدالة في الوحدة النمطية : Function Get_R(txt As String) As String If txt = "نجاح" Then Get_R = 1 ElseIf txt = "فشل" Then Get_R = 2 ElseIf txt = "Na" Then Get_R = 3 Else Get_R = 3 End If End Function جعفر fr.zip
  7. jjafferr
    وعليكم السلام 🙂 1. ما هو المطلوب ؟ 2. طيب ليه يا كابتن عندك حسابين ، حساب الكابتن وحساب osn ؟ جعفر
  8. jjafferr
    وعليكم السلام 🙂 ضع هذا الكود في احداث النموذج وسيؤدي العمل : Option Compare Database Option Explicit Dim Goto_L As Boolean ' Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer) If ApplyType = 1 Then Goto_L = True End If End Sub Private Sub Form_Current() If Goto_L = True Then DoCmd.GoToRecord , , acLast Goto_L = False End If End Sub . . جعفر New Microsoft Access Database.zip
  9. jjafferr
    أعترض 🙂 ، لم أشارك ولم أقرأ التفاصيل ولكن لا أعتقد أن vba عاجز عن الحل، وشكرا لكم. همممم اعتقد بأن اخونا عمرو قصده ، بأنها اسهل بلغة #C او Java 🙂 جعفر
  10. jjafferr
    وعليكم السلام 🙂 ضع الكود التالي على الزر: 'https://www.devhut.net/ms-access-vba-minimizemaximize-access-application/ DoCmd.RunCommand acCmdAppMinimize 'Minimize the MS Access Application جعفر
  11. jjafferr
    السلام عليكم اخي ابو جودي 🙂 الله ان شاء الله يعطيك الصحة والعافية ووالدك الكريم ، وما تشوفون شر ان شاء الله 🙂 مكتبة الموقع تسمح لك بإرفاق ملفات اكبر ، فوضعت المجلد هنا : https://www.officena.net/ib/files/file/403-المجلد-vba_zatcaintegration-v2/ . جعفر
  12. jjafferr
    مزيد من المعلومات حول "المجلد VBA_ZatcaIntegration V2"

    Version 1.0.0

    135 تنزيل

    مرفق للموضوع
  13. jjafferr
    السلام عليكم اخوي ابو ابراهيم🙂 تم فتح موضوع جديد للمرحلة الثانية من متطلبات الفاتورة الالكترونية في المملكة العربية السعودية ، فرجاء المشاركة بإثراء الموضوع ووضع حلول له 🙂 . جعفر
  14. jjafferr
    السلام عليكم اخي ابو جودي 🙂 تم فتح موضوع جديد للمرحلة الثانية من متطلبات الفاتورة الالكترونية في المملكة العربية السعودية ، فرجاء المشاركة بإثراء الموضوع ووضع حلول له 🙂 . جعفر
  15. jjafferr
    السلام عليكم 🙂 تم فتح موضوع جديد للمرحلة الثانية من متطلبات الفاتورة الالكترونية في المملكة العربية السعودية ، فرجاء من الاخوة المشاركة بإثراء الموضوع ووضع حلول له 🙂 . جعفر
  16. jjafferr
    وعليكم السلام اخي عمرو 🙂 اهلا وسهلا بك في المنتدى ، ونتشرف بوجود مبرمج في مستواك معنا في المنتدى 🙂 حقك معك ، فلا تأخذ هم ولا بأس عليك ، فكلنا نريد ان نأكل لقمة العيش من عملنا 🙂 جعفر
  17. jjafferr
    اذن ، اطلب منك تكرما ان تفتح موضوع جديد ، تضع فيه الطلبات ، ثم تدعوا فيها الاعضاء الذين قاموا بالرد على المواضيع الثلاث اعلاه ، ومنها ان شاء الله سيبدأ المشوار 🙂 طبعا هذا لا يقلل من عمل اخي عمرو صاحب الموضوع ، ونتمنى ان يدلو بدلوه هناك ايضا 🙂 جعفر
  18. jjafferr
    الشرح عن طريقة عمل الامر iif في الاستعلام ، ولكني عملتها في VBA وكنت استطيع عملها في برنامج Notepad ، فقط لأشرح طريقة عملها بخطوات سهله ، ثم تجميعها (بحذف علامة _ ) وجعل الجملة في سطر واحد ، ثم اخذها الى الاستعلام 🙂
  19. jjafferr
    السلام عليكم 🙂 قائمة المواضيع طويلة ، ولكني سأطرح بعضها ، فرجاء رجاء قراءة المواضيع بالكامل . . . . . . جعفر
  20. jjafferr
    وعليكم السلام 🙂 شكرا لكم جميعا 🙂 سبق وان تم مناقشة الموضوع هنا (لا ادري اذا كلمة المرحلة الثانيه يغيّر من الموضوع) : رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ جعفر
  21. jjafferr
    وعليكم السلام 🙂 ايش رأيك بشرح مفيد عن الدالة iif ، وان شاء الله يساعدك في مرادك . جعفر
  22. jjafferr
    على الرحب والسعة 🙂 عذرا ما التفت الى مشاركتك اعلاه في حينها 🙂 جعفر
  23. jjafferr
    همممم عندك اثنين من خيرة الشباب يساعدوك ، فليش تريد تدخل شاب شايب بينهم 🙂 انا مراقب الموضوع عن قرب 🙂 جعفر
  24. jjafferr
    طريقة العمل : 1. اعمل الدوال التالية في وحدة نمطية باسم (مثلا) mod_Rename_and_Delete function Rename_a_File() Dim OldName, NewName OldName = "C:\MYDIR\OLDFILE": NewName = "D:\YOURDIR\NEWFILE" Name OldName As NewName ' Move and rename file. end function function Delete_a_File() Kill "D:\YOURDIR\NEWFILE.mdb" end function . 2. في الماكرو AutoExec ، لتنفيذ الدالتين اعلاه: . ولا تنسى ، ان الاكسس اول ما يقول بسم الله ، وقبل ان يفتح اي كائن آخر ، فهو ينفذ اوامر الماكرو AutoExec ، فإذا اردت ان تشير الى اسم حقل في نموذج ، فيجب عليك فتح هذا النموذج من هذا الماكرو ، وامر فتح النموذج يجب ان يكون قبل تشغيل الدوال اعلاه (طبعا اذا اردت ان تأخذ قيمة من النموذج، اما اذا فتح النموذج لا علاقة له بالدوال اعلاه ، فتقدر تفتح النموذج بين اي من اوامر الماكرو) 🙂 انا من الناس اللي اعتمد على هذا الماكرو في جميع برامجي 🙂 جعفر
  25. jjafferr
    السلام عليكم اخوي ابو ماجد 🙂 تم دمج الموضوعين في موضوع واحد 🙂 رجاء لا تفتح اكثر من موضوع لنفس السؤال 🙂 جعفر
×
×
  • اضف...

Important Information

  I accept