اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابو جودي

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

  • Posts

    6,833

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

  • Days Won

    187

 نوع المحتوي 

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

  1. ابو جودي
    سبحان الله والله الاكسس خاف منك استاذى القدير ومعلمى الجليل والله وانا انفذ الكود لم يتحقق ولكن اعتقد كان ذلك عندما كان الكود كله قطعة واحدة قبل ان افصله الا او انتظر قد يكون لاننى عندما استخدمت هذا الاسلوب فى عملى بسبب النت ورك احتجت اليها SpecialCopy DoCopy
  2. ابو جودي
    له دور استاذى القدير ومعلمى الجليل ان كان السجل الاول يتم ادخاله الان فى الجدول لابد من التحديث حتى استطيع نسخ القيم ان اردت نسخها لاننى هنا اعتمد فى طريقتى على نسخ القيم من السجل الاخير بعد الذهاب اليه اولا جرب مسح الجدول نهائيا وافتح النموذج وبعد تسجيل اول سجل انسخه بدون هذا السطر من الكود
  3. ابو جودي
    اولا اعتقد حضرتك لم تنتبه لتفعيل KeyPreview = True للنموذج الفرعى من التبويب الخاص بوضع الاحداث كما يمكنكم وضع هذا الكود بدلا منها ات اردتم Private Sub Form_Load() Me.KeyPreview = True End Sub
  4. ابو جودي
    هنا تم سرد الموضوع وشرح سريع للفكرة والية استخدام الاكواد
  5. ابو جودي
    السلام عليكم ورحمة الله تعالى وبركاته اولا وقبل اى شئ لم يتم ترتيب اسماء اساتذتى الكرام الذين تم كتابة اسمائهم لسبب محدد فالترتيب لا يعنى اى شئ اطلاقا فجميعهم النجوم اللامعة بمن نقتضى منهم فى هذا الصرح نهتدى ان شاء الله كما خو الحال مع باقى الاساتذة الذين لم اكتب اسمهم فلا يعنى ذلك اى شئ كلهم فى مرتبة واحدة وكلهم معلمينا الافاضل لا غنى لنا عنهم عذا فقط مجرد مثال اسرد اليكم الشـرح سريعا لفكرتى قبل البدء قد يتفق معى من يتفق ويختلف من يختلف لذلك انتظر ارائكم ان شاء الله فيشيد بهذه الطريقه من يشيد و يعترض من يعترض فنخرج ان شاء الله بأطيب النتائج هنا ان شاء الله اتعامل مع جدول باسم tblMainData والذى يختوى على الحقول A,B,C ونموذج باسم يضم الحقول على الترتيب txtA , txtB, txtC هذا الكود حتى اهئ النموذج للتعامل مع اختصار المفاتيح من الكيبورد Private Sub Form_Load() Me.KeyPreview = True End Sub وهذا الجزء حتى اسند القيم التى احتاج لنسخها الى متغيرات وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub SpecialCopy() 'الاعلان عن المتغيرات Dim VarFildeA As Variant Dim VarFildeB As Variant Dim VarFildeC As Variant 'اسناد قيم مربعات النص الى المتغيرات VarFildeA = txtA VarFildeB = txtB VarFildeC = txtC DoCmd.GoToRecord , , acNewRec 'سجل جديد 'نسخ قيم المتغيرات الى مربعات النص في السجل الجديد txtA = VarFildeA txtB = VarFildeB txtC = VarFildeC 'تفريغ المتغيرات VarFildeA = Empty VarFildeB = Empty VarFildeC = Empty End Sub وهذا الجزء لاسناذ القيم من المتغيرات الى مربعات النص للسجل الجديد وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub DoCopy() DoCmd.RefreshRecord If DCount("[ID]", "tblMainData") = 0 Then DoCmd.RefreshRecord Exit Sub ElseIf DCount("[ID]", "tblMainData") >= 1 Then If NewRecord Then DoCmd.GoToRecord , , acLast Call SpecialCopy Else Call SpecialCopy End If End If End Sub طبعا هنا اتأكد اولا ان كان هذا السجل الاول فى الجدول ام لا قبل ان تتم عملية اسناد القيم التى اريدها واهيرا استدعاء الكود من هلال زر امر لتنفيذ عملية نسه السجل الاأهير وقت الحاجة Private Sub BtnDuplicate_Click() Call DoCopy End Sub وهذا الجزء كما يقولون عنه الـ Hot Key استدعاء الكود من خلال زر من الكيبورد عن الضغط عليه Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 117 Then ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك Call DoCopy KeyCode = 0 Exit Sub End If End Sub تنويه ببعض الحيل ان اردنا نقوم بنسخ سجل محدد ان اردنا سجل بعينه تبعا لشرط او شروط محدده حسب ما تقتضى الحاجة واخيـــرا المرفق Duplicate Last Record.mdb
  6. ابو جودي
    اتفضل استاذى العزيز واخى الحبيب استاذ @REDA.M.A اتمنى على الله تعالى ان يكون هذا طلبك انظر الى الكود المستخدم على مربع التحرير والسرد كود التصنيف كان هذا كودك قديما Private Sub كود_التصنيف_AfterUpdate() If Me.NewRecord Then Me.رقم_امر_الصرف = Me.Parent!نص57 End Sub والان وحسب فهمى اتمنى على الله ان يكون فى محله صار التعديل للكود بهذا الشكل Private Sub كود_التصنيف_AfterUpdate() If [Form_نموذج تجميع].البـــــاقي >= Me.الصافى Then Else If MsgBox("الصافى المنصرف اكبـــر هل تريد الاستمرار", vbYesNo, "CHECK") = vbNo Then DoCmd.CancelEvent Me.Undo Else If Me.NewRecord Then Me.رقم_امر_الصرف = Me.Parent!نص57 End If End If End Sub للتعديل.accdb
  7. ابو جودي
    انا اسف جدا جدا جدا جدا لتأخرى على حضرتكم بسبب ظروف خارجه عن ارادتى ان شاء الله اقوم بالتعديل الان وبمجرد الانتهاء ارفع لكم مرفقكم ان شاء الله
  8. ابو جودي
    وحتى لا يكون اسلوبى تشتيت للموضوع او للتركيز ان شاء الله بعد انتظار الرد الوافى والجواب الشافى من استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل سوف اعرض طريقتى ولكن قبل ان اعرضها هى قد تكون مطوله بعض الشئ ولكن تعطينى التحكم الكامل الشامل والممل فى كل تفصيلة صغيرة او كبيره كانت حسب ما يدور بخلدى
  9. ابو جودي
    لا احب التعامل مع الـ SendKeys
  10. ابو جودي
    هل بحثت بالمنتدى قبل وضع سؤالك اتفضل
  11. ابو جودي
    الشكر لله سبحانه وتعالى وكل الفضل من الله عزوجل استأذن حضرتك قمت بالتأشير على مرفقكم بأفضل إجابه لانه الاسرع فى الوصول الى النتيجة لكل من يبحث عن ذلك شكرا لك بل كل الشكر والتقدير لشخصكم الكريم
  12. ابو جودي
    وارجوك ان اعجبتك النتيجة وكانت هى ما تريد ارفع مرفقك من واقع تجربتك لباقى اخوانك بالمنتدى ليسهل عليهم مستقبلا الوصول لهذه النتيجة ان ارادواها يوما ولك كل الشكر والتقدير وجزاك الله خيرا
  13. ابو جودي
    اعانى من مشاكل فى الاتصال بالانترنت لذلك اعذرنى سوف اجيبك نظريا 1- قم بعمل موديول جديد 2- ضع هذ الكود داخل الموديول Rem اول يوم فى الشهر Public Function FirstDateOfMonth(MyDate) FirstDateOfMonth = CDate("1/" & DatePart("m", MyDate) & "/" & DatePart("yyyy", MyDate)) End Function Rem اخر يوم فى الشهر Public Function LastDateOfMonth(FirstDateOfMonth) LastDateOfMonth = DateAdd("d", -1, DateAdd("m", 1, FirstDateOfMonth)) End Function فى النموذج الان لنفترض انك وعلى حسب سؤالك يوجد 2 مربع نص لنقترض ان الاول اسمــــه txtStart ولنفترض ان الثانى اسمه txtEnd على حسب سؤالك او على حسب فهمى انت تريد عند وضع اى تاريخ بالمربع الاول txtStart مهما كان يتم ارجاعه الى اول يوم لهذا الشهر والمربع الثانى txtEnd اخر يوم لنفس الشهر الذى قام بإدخاله المستخدم فى مربع النص الأول txtStart قم بعمل كود عند التحديث للمربع الاول بهذا الكود Private Sub txtStart_AfterUpdate() [txtStart] = FirstDateOfMonth([txtStart]) txtEnd = LastDateOfMonth([txtStart]) End Sub وان شاء الله تجد كل شئ تمام طبعا ممكن عمل الكود على النموذج مباشرة ولكن احبذه هكذا لسهولة استدعاءه فى اى وقت ومن اى مكان ولاى تاريخ واخبرنى النتيجة التى توصلت اليها لو تكرمت بعد التطبيق
  14. ابو جودي
    العفو منكم استاذى الجليل ومعلمى القدير استاذ @jjafferr بل انتم اساتذتى العظماء وما انا الا اقل طالب علم اتلهف دائنا لما تقدمون بشغف ولهفة
  15. ابو جودي
    قمت باغلاق الشيفت ولاعادته عند فتح البرنامج بعد ان يفتح طريقة اظهار الملفات
  16. ابو جودي
    لم افعل اى شئ سوى اضافة Usys فى بداية اسم كل الكئنات التى لم ارد لها ان تظهر يعنى مثلا انا استخدم اسم tblRadio للجدول واضفت اليه فى البداية Usys فأصبح UsystblRadio وكذلك مع باقى الكائنات ولذلك الاكسس اعتبرهم جميها ضمن النظام لذلك حتى لو دخلت على اعدادت الاكسس لاظهار الكائنات المخفية لن يتم اظهارهم لابد من اظهار كائنات النظام فقط بذلك يتم اظهار كل شئ
  17. ابو جودي
    والله لا احب سوى اسمى فقط محمد بدون اى القاب وطلبت منهم ذلك مرار وتكرار دون فائدة وشكرا استاذى الجليل و معلمنى القدير و والدى الحبيب استاذ @ابوخليل على وصفكم لى اصرار و تصميم نعم لكن استاذ لا
  18. ابو جودي
    اظهر ملفات النظام
  19. ابو جودي
    بم انك تعشق الاذاعة ما عليك الا جلب الروابط للاذاعات التى تجبها وفقط تقوم بإضافتها الى الجدول
  20. ابو جودي
    جزاكم الله خيــــرا اهلا اهلا اهلا اهلا اخى الحبيب الاستاذ الفاضل الكريم الخلوق استاذ @محمد حسن المحمد واهلا بك ومليون اهلا بقسم الاكسس والله انا سعيد ان الله تعالى جعلنى سببا لاستدراجكم يا جيران الهنا من قسم الاكسل الى قسم الاكسس والله لا تعلم مدى سعادتى يا اخى الحبيب ولا اخفيكم سرا رايت ذات مرة هذا العمل بالصورة المتحركة الجميله التى ارفقتموها فأحببت تقليدها ولكن خطى سيئ بعض الشئ
  21. ابو جودي
    لاحظ جيدا هذا التاريخ قام بنشر فبراير 26 (معدل) وتفحص هذا الموضوع نفس الاسلوب والتفكيــــــر ولكن وضعت الية للتحكم الكامل من خلال الاكواد 1- رفع نسبة الصوت الى 100 % 2- خفض نسبة الصوت الى 0 % 3- رفع الصوت تدريجيا من 0 % اللى 100 % 4- خفض الصوت تدريجيا من 100 % الى 0 % 5- ايقاف التشغيل 6- تشغيل 7- كتم الصوت 8- اعادة وضع الصوت لما كان قبل كتم الصوت 9- مؤشــــر دال على رفع الصوت اثناء الرفع وكذلك اثناء الخفض ولو انى ادركت الان ان به مشكلة بسيطة تحتاج الى تعديل اين هى فكرتك فى ذلك برنامج من شهر 2 والان نحن بنهاية شهر 6 وتعديلات كنت اعدها من وقتها افكارا قبل اكوادً لاضافتها للاصدار الجديد لبرنامج القران الكريم ان شاء الله تعالى ان كنا من اهل الدنيا ؟ ـــــــــــــــــــــ فى الاساس ايضا كانت فكرتى وضع كل الروابط بجدول واحد وجلبها من نموذج واحد لسهولة التنقل بفضل الله تعالى انا قمت بوضع المصحف كاملا بنموذج واحد ويتم تغيير القراء كيفما شئت من نفس النموذج دون المغادرة وهى نفس واساس فكرتى للاذاعة وللعلم لا اخفيكم سرا لم اكن لانوى عمل الاذاعة الا بناء على طلب من الاستاذ الكريم والاخ الحبيب @omarahmed1424 وكانت الفكرة حاضرة الا اننى لم استطع الحصول على روابط الاذاعات وسبقنى بالرد الاستاذ الفاضل والاخ الحبيب @ابو البشر فقط بسبب تأخرى لدخول المنتدى لانك ايضا ستجد مشاركتى التى تلته مباشرة بنفس اسم برنامجى الاساسى القران الكريم وقبل طرح موضوع الاذاعة اصلا فأضفت اليه الجدول للاذاعة وارفقته كاملا ليكون المصحف كاملا + الاذاعة بذلك لام انظر اصلا الى فكرتك ولم اقتبس حتى منها اى شئ وان عدت للاستاذ @omarahmed1424 سوف يخبرك اننا تحاورنا على الخاص بالمراسلات بما فيه الكفاية وهو من احضر الى الروابط لتلك الاذاعات للعم لم ارد واطل الرد لانك اسات الى مثلا او لانى حزنت من كلامك او لأبرئ ساحتى حتى انما فقط لانه عندما انقل من افكار احد الاخوة او احد اساتذتنا العظماء والله وحتى لو عدلت بنسبة 100 % او اكثر او اقل انوه قبل اى شئ اننى انقل عنه وانسب اصلا كل الفضل لله سبحانه وتعالى ثم له اخى الكريم بفضل الله لا يضيع حق عندنا ولم ولن تنتهك حقوق غيرنا على ايدينا فى هذا المنتدى الكريم كلنا تعلمنا على ايد اساتذة افاضل وتوارثنا عنهم اسلوب التعامل و حفظ حقوق الغير حتى فى عدم وجودهم
  22. ابو جودي
    لا خالص مش فكرتك وراح اعطيك الدليل
  23. ابو جودي
    طيب على بركة الله انتظر اقتراحاتكم لاثقال الاصدار القادم بها
  24. ابو جودي
    راديو احترافى لن تجده الا بمنتديات اوفيسنا الاصدار الاول : JU_Radio v1.zip
  25. ابو جودي
    السلام عليكم ورحمة الله وبركاته تمام بفضل تمت التجربة فى المنزل الان على ويندوز 7 نواة 64 بيت اوفيس 2019 نواة 32 بيت كلا المرفقان رقم 2 , رقم 3 يعملان جيدا ويتم قرأة العربية بنجاح وبخصوص البرنامج لم يصادفنى عدم قراءته للعربية بشكل صحيح من قبل استخدمه دائما فى العمل عندما اريد مجرد القراء للرموز بدلا من الذهاب الى المكتب واستخدام ماسح رموز الباركود وعلى كل انا شككت بالويندوز والاوفيس وقمت بتغيريهما شككت بالجوال او بالتطبيق وبحثت على الانترنت ووجدت الموقع الذى كنت اقوم بالتجربة من خلاله وهذه النسخة ليست مجانية انها النسخة المدفوعة الكاملة وعلى كل حال صدر تحديث بتاريخ 16/6/2019 اليكم النسخة الجديدة QR_&_Barcode_Reader_(Pro)_2.2.7-P.apk.zip
×
×
  • اضف...

Important Information

  I accept