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

ابو جودي

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

  • Posts

    6997

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

  • Days Won

    202

 نوع المحتوي 

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

  1. ابو جودي
    اساذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل جعلكم الله تعالى سباقون بالخيرات انا شوفت الموضوع وانا فى الشغل الصبح وكنت ناوى والله اعمله وقاعد شغال جالى الاشعار ووجدت حضرتك جزاكم الله خيرا
  2. ابو جودي
    والكود ده كده لعدد السجلات بقه لو انا قاهم صح استخدمه فى اى مكان بمزاجك Private Sub txtjop_BeforeUpdate(Cancel As Integer) Dim db As DAO.Database Dim rs As DAO.Recordset Dim UserCount As Integer Dim PasswordInput As String Set db = CurrentDb() Set rs = db.OpenRecordset("SELECT COUNT(*) AS CountOfAccountants FROM tblUsers") UserCount = rs!CountOfAccountants If RecordCount >= 3 Then PasswordInput = InputBox("لا يمكن إدخال سجل رابع. يرجى إدخال كلمة السر:") If PasswordInput = "" Or PasswordInput <> "123" Then MsgBox "كلمة السر غير صحيحة. لا يمكن إضافة سجل رابع.", vbExclamation Cancel = True End If End If rs.Close Set rs = Nothing Set db = Nothing End Sub
  3. ابو جودي
    Private Sub txtJob_BeforeUpdate(Cancel As Integer) If Me.txtJob.Value <> "محاسب" And Me.txtJob.Value <> "مستخدم" Then MsgBox "برجاء إدخال كلمة محاسب أو مستخدم فقط.", vbExclamation, "قيمة غير صحيحة" Cancel = True Me.txtJob.SetFocus End If End Sub
  4. ابو جودي
    طيب ما الافضل تعمل مربع سرد للوظائف بذلك لن يكون اصلا هناك الا الوظائف التى تسمح انت بها من خلال مربع السرد بالنسبة لعدد المستخدمين استخدم نفس الكود السابق ولكن بدون شروط بذلك لما يجد العدد ٣ تظهر الرسالة كل اللى تعمله شيل الجزء بتاع الشرط من الكود اللى هو ده WHERE jop = 'محاسب'" وبكده استخدم الكود مع اى مربع نص لان الشرط بقى عدد سجلات
  5. ابو جودي
    وعبى يابا
  6. ابو جودي
    بسيطة جدا استحدم الكود التالى لمربع النص فى الحدث قبل التحديث على اعتبار ان مربع النص اسمه txtjop Private Sub txtjop_BeforeUpdate(Cancel As Integer) Dim db As DAO.Database Dim rs As DAO.Recordset Dim UserCount As Integer Dim PasswordInput As String Set db = CurrentDb() Set rs = db.OpenRecordset("SELECT COUNT(*) AS CountOfAccountants FROM tblUsers WHERE jop = 'محاسب'") UserCount = rs!CountOfAccountants If UserCount >= 3 And Me.txtjop.Value = "محاسب" Then PasswordInput = InputBox("لا يمكن إدخال محاسب رابع. يرجى إدخال كلمة السر:") If PasswordInput <> "123" Then MsgBox "كلمة السر غير صحيحة. لا يمكن إضافة محاسب رابع.", vbExclamation Cancel = True End If End If rs.Close Set rs = Nothing Set db = Nothing End Sub
  7. ابو جودي
    احبكم الله الذى احببتمونا فيه ولاجل وجه الكريم وانا كذالك اجبكم فى الله ولله ولكم فى القلب وفوق الرأس مكانة الاب يا دكتور اسأل الله تعالى أن يرحمكم ويغفر لكم ويرزقكم الهدى والتقى والعفاف والغنى انتم وكل المسلون ان شاء الله تمام اذا لم تكن فى حاجتها فالمرفق الموجود فى المشاركة الاخيرة ان شاء الله يكفيكم ويلبى كل احتياجاتكم ففيه لغتان ويدعم التفقيط فى الوقت ذاته لاكثر من عملة ان اردت وفيه تفقيط خاص للاعداد بعيدا عن العملات بالطريقة المنطقية اللغوية بعيدا عن المنطق الرياضى
  8. ابو جودي
    طيب وبما انك اعجبت بالافكار وسوف تضع فى اعتبارك تم تحديث موضوع التفقيط المرفق الاخير الان تقريبا شبه كامل ان شاء الله الا ان اللهم الاستاذ @Moosak الله يبارك له صاحب المكتبة العامرة والمستشار المؤتمن كما يحب ان بلقب نفسه يريد اضافة دوال لتفقيط التاريخ ايضا اوماااال لازم يتعبنى جارى اعداد هذه الحزئية
  9. ابو جودي
    جزاكم الله خيـــرا
  10. ابو جودي
    طيب مبدئيا كده : الاكواد والدوال هى هى فقط تمت بعض التعديلات الطفيفة جدا جدا جدا قمت باعادة تسمية الدوال للتناسب مع الوظائق الجديدة التى تم اضافتها الوظائف الجديدة فقط تقرأ الارقام بعد العلامة العشرية بمعالجة خاصة بسبب تواجد الرقم صفر بعد العلامة العشرية مباشرة تم اضافة نموذج منشئ الكود للدوال اترككم للتجربة والاستمتماع ان شاء الله بأمر الله تعالى تقريبا انتهى هذا الموضوع نهائيا بإقتراب الافكار والمرفق الى اقرب درجات الكمال . 1- التعامل بشكل صحيح مع عدد المنازل العشرية لكسر العملات المختلفة وامكانية تعديل المنازل لكل عملة من الجدول 2- ضبط صيغ المسميات لكسر العملات تبعا للجنس من خلال المسميات الذكورية و الانثوية وامكانية تعديل الجنس لكل عملة من الجدول 3- ضبط الالفاظ اللغوية تقريبا بالشكل الصحيح أو بأقرب شكل ممكن 4- التحكم فى نوع العملة الافتراضية التى يتم التفقيط لها من الجدول باختيار تنشيط عملة واحدة 5- امكانية التعامل مع اكثر من عمل فى نفس الوقت بأكبر قدر ممكن من المرونة 6- امكانية التعامل مع لغة اخرى غير اللغة العربية بالنسبة لكل الاخطاء يا اللى كانت بالكود بحمد الله تعالى وبفضله تم التأكد من التعامل معها بشكل احترافى تم تحديث المرفقات فى رأس الموضوع بالمشكاركة الاولى ويمكن تحميل المرفقات من هنا او من هناك basHandleNO2Words.zip HandleNumber2Words V2.0.1- Test.zip Text Converter Ascii (v. 3).accdb
  11. ابو جودي
    تم تعديل المرفقات فى المشاركة الرئيسية التعديلات الجديدة : تفقيط عملات متعددة فى وقت واحدة تفقيط الاعداد فقط بدون بيانات العملات - تم مراعاة تفقيط الاصفار بعد العلامة العشرية مثل (فاصل صفر و صفر و أربعة و عشرون لا غير) للرقم .0024
  12. ابو جودي
    يعنى الحمد الحمد لله رجل والله خوفت اقول لك اتفضل وابعت لك ورده لحسن تكون بنت ونقع فى المحظور هههههه جزانا الله وإياكم خير الجزاء إن شاء الله المهم تكون وجدت ضالتك
  13. ابو جودي
    اتفضل المنتدى مفتوح للجميع وانا اصغر طويلب علم اتعلم من الجميع ولكن ارجوك ولو تكرمت اتمنى يكون المرفق بسيط جدا ولا يحتوى على اى شئ بخلاف الاجابه انا شخصيا بصراحة لا احمل مرفقات حضرتك مطلقا هى جميله لكن محتاجة حد فاضى يقعد يحلل ويفهم ويلف ويلف حوالين نفسه ويروح ويا الكود ويرجع منه ويدوخ بجد الموضوع بيكون متعب جدا شكرا لحضرتك مقدما يا باش مهندسه
  14. ابو جودي
    انا اسف ولكن والله لم اقصد فرض رأى عليك فى اضافة شئ الى المرفق المشكلة ان كان فى موضوع نشرتة من كام يوم للتفقيط وبيشاغل تلقائى زى ما انا نفذته كده فى المرفق ده بي الاساتذة وانا مش موجود فضلوا يألفوا وبفكروا ويحلموا وزودزا حجات كتير فى الكود وانا عدلت وراهم وكنت عاوز اجرب بس على اى مرفق هههههههههه للتأكد لكن ان اعجبت بها وتريد الشرج فعلا اتفضل يا دكتور مبدئيا الشرح المبدئى ده الموجود هنا وانا اقل طويلب علم يا دكتور جزاكم الله خيرا اسأل الله تعالى ان يرزقنا واياكم وكل المسلمين الهدى و التقى و العفاف و الغنى وأن لا يحرمنا شربة الماء من يد حبيبنا وسيدنا ومصطفانا صلوات ربى وسلامه عليه وعلى اله وصحبة وسلم تسليما كثيرا امين امين امين 🤲
  15. ابو جودي
    قاعدة البيانات بعد التعديل db13.mdb
  16. ابو جودي
    احمد و وبتقول عايزة يا مثبت العقل يارب ماشى ما علينا بدون تحميل او فتح ملف الاكسل وبدون حتى الاطلاع عليه حالا اقوم بتعديل الكود
  17. ابو جودي
    بالطريقة دى انت مش هتحتفظ بالبيانات ؟؟ متأكد انك عاوز كده ؟؟؟
  18. ابو جودي
    تمام بعد التأكد من تجربة الجميع وابداء الرأى ان شاء الله تعالى اقوم بتعديل الشرح تفصيلا وكذا والمرفقات
  19. ابو جودي
    اعتقد يقصد الـتسمية " Caption " والحل فى وحدة نمطية عامة Public Function CopyCaptionToTextBox(TextBoxName As String) Dim ctrl As Control Set ctrl = Screen.ActiveControl If TypeOf ctrl Is CommandButton Then Forms(ctrl.Parent.Name).Controls(TextBoxName).Value = ctrl.Caption End If End Function للاستدعاء على اكثر من زر اولا تحديد كل الازرار التى نريد منها تنفيذ هذا الاجراء والاستدعاء يتم بكتابة الكود بالشكل التالى فى الحدث عند الضغط طبعا مع تغيير YouTextBoxNameInForm باسم مربع النص الموجود فى النموذج =CopyCaptionToTextBox("YouTextBoxNameInForm") المرفق بعد التعديل RR.accdb
  20. ابو جودي
    تجربة بالعافية 😡 ورخامة اعتذر لحضرتك يا دكتور @الحلبي 🤣 استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل انا فمت بتعديل المرفق الخاص بهذا الموضوع باضافة الوحدة النمطية النهائية بعد التعديلات الاخيرة بتاعة الخبراء اللى بتلعب من ورايا 🤣 بعد فتح المرفق سوف تلاحظون الاتى 1- عدم وجود جدول tblCurrencyInfo 2-وجود الوحدة النمطية الجديدة باسم basCurrencyNumbersTotext 3- عند فتح النموذج f1 فى وضع التصميم تم اضافة مربع نص واستخدام الكود الاتى فى مصدر بيانات مربع النص =ConvertNumberToWords([vol]) 4- عند فتح النموذج f1 فى الوضع الطبيعى تلاحظون انه تمت اضافة إجراءات التفقيط بإضافة جدول العملات تلقائيا وتمت عملية التفقيط بنجاح النسبة المئوية4.zip
  21. ابو جودي
    وجزاكم الله الخير كله إن شاء الله
  22. ابو جودي
    لا لو التاريخ اتنفذ لازم تحذفه مش تعدله أما إذا أردت إضافة سجل جديد تقوم بإضافة السجل اولا ثم كتابة التاريخ الجديد
  23. ابو جودي
    وبعد تقديم الاعتذارا عن التأخير راجيا ان تقبله منى اتفضل انا ظبط لك موضوع الحقول واختيار الحقول من الليست بوكس الاول المصدر الى الليست بوكس الثانى الهدف حقل المسلسل بيظهر مفيش شئ اسمه الموضوع بس ان عرض الليست بوكس لا يتناسب مع عدد الحقول وحضرتك عدلت على الكود وغيرت حجم الحقول غلط فطبيعى كان يحصل ده انه يختفى بس لا اكثر ولا اقل انا مش فاهم قصدك ياريت تصور الشاشة وترفقها يمكن اقدر افهم الميزانية ملف بسيط.accdb
  24. ابو جودي
    نعم لكم كل الشكر استاذى اعجبنى هذا الامتحان المفاجئ
  25. ابو جودي
    احبكم الله الذى احببتمونا فيه ولأجله استاذى الجليل ومعلمى القدير و والدى الحبيب والاجابــــة كالأتى : الحلقة For i = 1 To r تقوم بزيادة i تلقائيًا في كل تكرار لذلك عندما تضيف السطر i = i + 1 داخل الحلقة فإنه بذلك نقوم بزيادة i مرتين الزيادة التلقائية بواسطة الحلقة >>--> الحلقة تزيد i بمقدار 1 في كل تكرار الزيادة اليدوية >>--> في السطر i = i + 1 تقوم بزيادة i مرة أخرى علشان كده الزيادة تكون بمقدار 2 وعلشان كده الأفضل يكون الكود بالشكل For i = 1 To r rs.AddNew dx = DateSerial(yerthx, mnthx, i) rs!Id_month = mnthx rs!dailyDate = dx rs.Update Next XDaySubform.Requery
×
×
  • اضف...

Important Information

  I accept