Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الفلاحجى

Expert
  • Content Count

    3,120
  • Joined

  • Last visited

  • Days Won

    30

الفلاحجى last won the day on July 19 2020

الفلاحجى had the most liked content!

Community Reputation

2,159 Excellent

About الفلاحجى

  • Rank
    أبو بسمله

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    موظف
  • Location
    مصر
  • Interests
    هاوى اكسس

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. اهلا ومرحبا بك اخى واستاذى العزيز @husamwahab تسعدنى مشاركتك جزاك الله خيرا نعم فطريقتك منطقيه واصح لوجود العلاقه وبدون استئذان اخى حسام وان وجب الاستئذان فعلينا بالاستئذان من اخى ومعلمى العزيز جعفر فهو من قام بتصميم هذا البرنامج حسب متطلبات اخى الفاضل ابوالحسن جزاك الله خيرا اخى نعم اخى واستاذى العزيز @jjafferr لم انتبه لوجود العلاقه الا بعد طلب الاضافه من خلال الاكسس من اخى الفاضل @abouelhassan ولكن كنت استعد للنوم للسفر باكر ولسه راجع من السفر والحمد لله اخى حسام جزاه الله خيرا قدم المساعده تمنياتى لكم بالتوفيق وكل عام وانتم بخير
  2. الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا ولا يهمك اخى بالنسبه للزر احذفه فليس له اى داعى كنت قد قمت بكتابه الكود تحته ولكن لما نقلت الاكواد نسيت احذفه بالتوفيق
  3. الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اللهم آمين وجميع المسلمين والمسلمات والمؤمنين والمؤمنات ان شاء الله نعم اضف ما تريد ثم حدثهم بالترتيب من الاصغر الى الاكبر يعنى 2 ثم 3 وهكذا وده تعديل بسيط باضافه كمبو تختار منه Private Sub btnRun_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb strSql = "SELECT tbl_Items.iPage " & _ "FROM tbl_Items " & _ "WHERE tbl_Items.iPage >= " & Me!cmbIPageID.Column(0) If IsNull(cmbIPageID) Then MsgBox "من فضلك
  4. وعليكم السلام اخى الفاضل @abouelhassan اتفضل حاجه بسيطه على قد حالى وع قد ما فهمت تم اضافه فورم frmUPDate وبه حقل نص واحد وزر امر بعد ان تقوم بالتعديلات التى تعملها شوف الرقم اللى قمت باضافته بقى رقم كام افتح فورم frmUPDate وفى حقل النص ضع هذا الرقم ثم قم بالضغط عالزر Private Sub btnRun_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb strSql = "SELECT tbl_Items.iPage " & _ "FROM tbl_Items " & _ "WHERE tbl_Items.iPage >= " & Me!txtUPDate If IsNull(Me!txt
  5. الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالتوفيق
  6. بسم الله ماشاء الله ولا قوه الا بالله جزاك الله خيرا معلمنا العزيز جعفر تسلم ايدك وراسك وانا اللى هبخرك المرادى صحيح بخورنا ممكن ميعجبش اصحابك بس هنجود بالموجود 😄 متابع فى صمت لاتعلم
  7. السلام عليكم مشاركه مع اخى الفاضل @ابو محمد 316 جزاه الله خيرا 💐 اتفضل اخى @mrbakr ان شاء الله يكون ما تريد Private Sub Command405_Click() Dim strSql As String Dim TempQdf As QueryDef Dim db As DAO.Database Set db = CurrentDb strSql = "Select * from الموظفين" If Me.Fr_U.Form.Filter <> "" Then strSql = strSql & " WHERE " & Me.Fr_U.Form.Filter End If Set TempQdf = db.CreateQueryDef("ExportFiltered", strSql) DoCmd.OutputTo acOutputQuery, TempQdf.Name, acFormatXLSX, "", True, "", , acExportQualityPrint db.Que
  8. مرحبا اساتذتى الاعزاء جزاكم الله خيرا كنت فكرت فى نفس فكره معلمى العزيز جعفر وطبعا ع قد حالى مش بنفس افكاره الجميله الممتعه وسوف انتظر تطبيق فكرته 🙂 ومشاركته اياها لنا تمنياتى لكم بالتوفيق
  9. مرحبا باخى واستاذنا العزيز جعفر ربنا ما يحرمنا منكم ومن تجاربكم التى نستفاد منها كثير جزاكم الله عنا كل خير طيب فى هذه الحاله سيتوجب عليه بانشاء جدول خاص للقروض لعدم تكرار بيانات المقترض واضافه كود المقترض لجدول القروض
  10. مرحبا بك اخى ومعلمى العزيز @ابوخليل 💐 بل اننى طالب فى مدرستكم اتعلم منكم ومن جميع اخوانى واساتذتى جزاكم الله عنا خير الجزاء ولا يهمك معلمنا العزيز زادنا الله واياكم من فضله وعلمه نعم هذا منطقى بارك الله لنا فيك وجزاك الله عنا كل خير
  11. معلمى العزيز @ابوخليل طالما سوف يتم النظر الى الشهر فيجب النظر الى الشهر والسنه معا اليس كذلك وعليه يجب تعديل السطر التالى ويتم الاستغناء عن الاستعلام qryAmountInMonth يجب ادخال التاريخ قبل المبلغ j = DSum("amount", "qryAmountInMonth", "emp_name=" & emp_name) الى j = Nz(DSum("amount", "salary", "emp_name=" & emp_name & " And Year([dated])=" & Year([dated]) & " And Month([dated])=" & Month([dated])), 0) delete2.accdb
  12. وعليكم السلام ورحمه الله وبركاته معلمنا العزيز @ابوخليل جزاك الله معلمنا العزيز ابو خليل 💐 طبعا كان جوابى من خلال الاستفسار بالصوره بالرغم اننى كنت غير مقتنع وكان ما بدر فى ذهنى وقتها اجمالى المدفوع ولكن وضعت الحل كما هو مشار اليه ولحين رد ابو اشرف بعدها بارك الله لنا فيكم معلمنا العزيز ابوخليل وعلى خواطركم الجميله وحلولكم الرائعه
  13. اتفضل ابو اشرف ان شاء الله يكون ما تريد وتعديل عالكود Private Sub أمر36_Click() f = Me.salary_نموذج_فرعي!amount If f > Me.salary Then DoCmd.RunCommand acCmdDeleteRecord End If End Sub بالتوفيق delete2.accdb
  14. وعليكم السلام اخى الفاضل @almasry732 لا يوجد بالمرفقات التى ارفقتها اى نماذج او اكواد حتى الجداول كانت مخفيه ولا يوجد غير الجداول فقط بالتوفيق
  15. وفيك بارك الله اخى @haniameen الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالنسبه للسؤال الاول سوف اتركك تحاول فيه حتى تتعلم وان شاء الله سوف تصل وان لم تعرف قدمناه لك بالنسبه للسؤال الثانى فعن نفسى اتعلمها من مساعده اخوانى السائلين بالموقع ومحاولة الاجابه على استفسارتهم ومن اخوانى واساتذتى هنا بالموقع جزاهم الله عنا كل خير وبالبحث هنا وهناك حتى فالمواقع الاجنبيه التى لا اطيقها ولكن الحمد لله ماشى الحال بالتوفيق اخى
×
×
  • Create New...