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

ابوبسمله

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    918

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

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

  • Days Won

    11

Community Answers

  1. ابوبسمله
    ابوبسمله's post in حلقة تكرارية داخل نمودج فرعي was marked as the answer   
    السلام عليكم ورحمه الله وبركاته
    مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا
    اتفضل
    Private Sub Commande3_Click() Dim rs As Recordset Set rs = Me.Table1sub.Form.RecordsetClone For i = 0 To rs.RecordCount - 1 If Len(rs.Fields("date a") & "") = 0 Then rs.Edit rs.Fields("date a") = Date rs.Update End If rs.MoveNext Next rs.Close Set rs = Nothing End Sub وبالنسبه لما ذكره اخى محمد فالنموذج ليس به مشكله ولكن تقريبا اخى رشيد يستخدم اللغه الفرنسيه بجهازه فلذلك لم يعمل معك ومعى ايضا واحسنت بالاستيراد والتعديل
    بالتوفيق اخوانى
  2. ابوبسمله
    ابوبسمله's post in عدم التكرار في الاستعلام was marked as the answer   
    اتفضل اخى
    الاستعلام qry مبنى على الاستعلام q1
    بالتوفيق
    123_1.accdb
  3. ابوبسمله
    ابوبسمله's post in كيف يمكن عمل استعلام تجميع وضم حقول من نوع نص - رقم - تاريخ was marked as the answer   
    وعليكم السلام ورحمه الله وبركاته
    اتفضل اخى @أغيد وكل عام وانتم بخير
    تم الحل باستخدام كود لاخى ومعلمى العزيز جعفر جزاه الله عنا كل خير مع بعض التعديلات
    qryAll id type price date 1 انتقال, تغذية, مكافأة, مواصلات, نثريات 3000 01/01/2020 2 انتقال, مكافأة, مواصلات, نثريات 3000 01/01/2021 1 انتقال, تغذية, مكافأة, مواصلات, نثريات 8500 01/02/2022 2 انتقال, مكافأة, مواصلات, نثريات 8000 01/03/2023 1 انتقال, تغذية, مكافأة, مواصلات, نثريات 13000 25/03/2023  
    بالتوفيق
    test22_1.accdb
  4. ابوبسمله
    ابوبسمله's post in تحديث عدة حقول في جدول من مربع نص من فوم المعيار حسب الاشهر was marked as the answer   
    وعليكم السلام ورحمه الله وبركاته
    اتفضل اخى @ابو هاله النبلسي ان شاء الله يكون ما تريد
    بالتوفيق
    NewUPDate.accdb
  5. ابوبسمله
    ابوبسمله's post in استعلام حذف بين جدولين was marked as the answer   
    السلام عليكم
    اتفضل اخى @محمد احمد لطفى
    DELETE Table1.id FROM Table1 WHERE (((Table1.id) In (SELECT DISTINCT Table2.id FROM Table2; ))); بالتوفيق
    Delt_1.mdb
  6. ابوبسمله
    ابوبسمله's post in عدم فتح البرنامج اذا كان شغال was marked as the answer   
    السلام عليكم ورحمه الله وبركاته
    اتفضل اطلع المشاركه التاليه لاخى واستاذى العزيز @kanory جزاه الله عنا كل خير
    بالتوفيق
  7. ابوبسمله
    ابوبسمله's post in استفسار : قاعدة بيانات اوفيس 32 هل تعمل على اوفيس 64 ؟ was marked as the answer   
    السلام عليكم ورحمه الله وبركاته
    اخى ومعلمى وشيخنا الجليل @ابوخليل بالنسبه لهذا الموضوع وما مررت به
    بانه فى حاله لم يتم تحويل البرنامج الى accde فان الامور كلها تمام ولكن فى حاله التحويل يلزم التحويل على نفس بيئه العمل لضمان التحويل والعمل بشكل سليم
    وكما ورد بالموضوع التالى لاخى العزيز @ابو جودي
     
    والله اعلى واعلم
     
  8. ابوبسمله
    ابوبسمله's post in خطأ في تنفيذ استعلام الحاق من خلال الكود was marked as the answer   
    وعليكم السلام ورحمه الله وبركاته
    اتفضل اخى واستاذى محمد @أبو عبدالله الحلوانى
    Dim QryStr As String 'On Error Resume Next QryStr = "INSERT INTO InvoiceDetailTbl ( IDs, OldInvs, jyarID, Movtyp, StorID, DmanSt, VoicDtID, Quentity, price ) " & _ "SELECT MovmentTbl.ID, MovmentTbl.OldInvs, MovmentTbl.jyarID, 2 AS MovTyp, MovmentTbl.StorID, MovmentTbl.AoryntID, " & _ "'" & InvNo & "' AS InvExp, MovmentTbl.QntyOut, MovmentTbl.AmtJyarOut FROM MovmentTbl " & _ "WHERE (((MovmentTbl.BlajID)='" & bljNo & "'));" بالتوفيق
  9. ابوبسمله
    ابوبسمله's post in تكرار السجلات بنسخها في نفس الجدول وعرضها مباشرة بالنموذج was marked as the answer   
    الحمد لله
    بسيطه اخى الفاضل
    اكتب رقم الفاتوره واضغط ع زر الحفظ مباشره
    بالتوفيق
    InvoiceSale_10-1_2.accdb
  10. ابوبسمله
    ابوبسمله's post in مشكلة حسابية في التقرير was marked as the answer   
    وعليكم السلام ورحمه الله وبركاته
    اتفضل اخى @ehab125
    بالتوفيق
    NewSum.accdb
  11. ابوبسمله
    ابوبسمله's post in مطلوب تسجيل تلقائي لتواريخ طباعة التقرير بدون تدخل المستخدم ...(معدل) was marked as the answer   
    اتفضل اخى
    Private Sub cmdPrint_Click() DoCmd.SetWarnings False If Len(Me.f_Print & "") = 0 Then DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[First printing date] = Date(), TABLE2.[number of print] = '1' " & _ "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));" Else DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[The date of the last print] = Date(), TABLE2.[number of print] = Val(nz([number of print],0))+1 " & _ "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));" End If DoCmd.SetWarnings True DoCmd.OpenReport "Q-TABLE1", acViewPreview, , "[School year] ='" & Me.SS & "'" End Sub  
    Database (naser)_2.accdb
  12. ابوبسمله
    ابوبسمله's post in كمبوبوكس متغير المصدر was marked as the answer   
    الف سلامه عليك اخى ومعلمى العزيز جعفر شفاك الله وعافاك ربنا ينعم عليك بالصحه والعافيه 💐
    كان لديك خطا فى اسم الاستعلام لجرجس الصحيح G_RASED بدل من GRASED
    وطالما نموذج الباسورد مفتوح مخفى فاخدت القيمه مباشره منه
    If Forms!password!un = "مريم" Then Me.Code_snf.RowSource = "RASED" Else 'If Forms!password!un = "" Then Me.Code_snf.RowSource = "G_RASED" End If بالتوفيق
  13. ابوبسمله
    ابوبسمله's post in تحديث قيمه الحقل اذا كان التاريخ فارغ was marked as the answer   
    السلام عليكم ورحمه الله وبركاته
    مشاركه مع اخوانى واساتذتى
    افتح النموذج frmleave واطلع على مصدر السسجلات بعدالتعديل
    zofdate: werEjaza(Nz([strdate];#01/01/1900#);Nz([enddate];#01/01/1900#)) بالتوفيق
    fmmm2.accdb
  14. ابوبسمله
    ابوبسمله's post in اضافة حقل بناء على اختيارة من نموذج اخر was marked as the answer   
    وعليكم السلام ورحمه الله وبركاته
    اتفضل اخى @مالك الحرايزة ان كان هذا ما تريد شرحت لك التعديلات التى تمت وان لم يكن فوضح لنا بارك الله فيك ما تريد بشئ من التفصيل
    بالتوفيق
    معدل _5.rar
  15. ابوبسمله
    ابوبسمله's post in اضافة حقل was marked as the answer   
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير
    الحمدلله اللهم آمين
    اتفضل
     
    معدل _3.rar
  16. ابوبسمله
    ابوبسمله's post in انشاء استعلام لاظهار السنوات التي لم يقم الموظف بتجديد اشتراكة فيها was marked as the answer   
    السلام عليكم ورحمه الله وبركاته
    مشاركه مع اخوتى واساتذتى جزاهم الله عنى كل خير
    اتفضل حاجه ع قد حالى
    بالتوفيق
    test2023_1.accdb
  17. ابوبسمله
    ابوبسمله's post in فتح نموذج بناء علي قيمة في نموذج اخر was marked as the answer   
    وعليكم السلام ورحمه الله وبركاته
    الشكر لله ثم لاخواننا واساتذتنا جزاه الله عنا كل خير
    وانا بشكرك على الامتثال لفتح موضوع جديد بالطلب الجديد شكرا لك اخى
    اتفضل ع قدر ما فهمت وان لم يكن فوضح اكثر بارك الله فيك
    بالتوفيق
    m3_1.accdb
  18. ابوبسمله
    ابوبسمله's post in مساعدة في الفلترة والتلوين was marked as the answer   
    السلام عليكم ورحمه الله وبركاته
    اتفضل اخى @MO87 حاجه على قد حالى وكما فهمت من السؤال
    اشتغلت على اسم الطبيب
    عند فتح النموذج ستجد جميع البيانات اختر ادمن 1 او 2 وشوف هل هذا ما تريد ام لا
    ان كان اكمل انت الباقى
    بالتوفيق
    MOMO_1.accdb
  19. ابوبسمله
    ابوبسمله's post in name conflicts with existing module project or object library access was marked as the answer   
    السلام عليكم
    مشاركه مع اخوانى واساتذتى جزاهم الله عنا كل خير
    معلمى العزيز جعفر قد تذكرت لك رد ع موضوع على ما اتذكر كان فى موضوع باسم التقرير الشبح فقمت بتنزيل المرفق والاطلاع عليه ولكن لم اجد الشبح 😀
    ولكنى وجدت التالى فالخصائص يتضمن وحده نمطيه مفعله بنعم
    فقمت بتغييرها الى لا وتم تعديل التقرير والحفظ
    قمت بالتعديل رقم 4 فقط وركت الاخر

     
    تقبلوا تحياتى وجزاكم الله عنا كل خير
    oiu_1.accdb
  20. ابوبسمله
    ابوبسمله's post in تحديث عدة سجلات في جدول 1 من خلال امر من فورم1 was marked as the answer   
    اتفضل تم اضافه
    Me.Refresh بالتوفيق
    taxxxx_1(1).accdb
  21. ابوبسمله
    ابوبسمله's post in لدي جدول رواتب واريد جلب الراتب الاسمي من جدول اخر was marked as the answer   
    وعليكم السلام ورحمه الله وبركاته
    مشاركه مع اخوتى واساتذتى جزاهم الله عنا كل خير 
    rs!NewAsmi = DLookup("[R]", "Ratib_Tb", "[D] =" & rs!degree1 & " and [M]=" & rs!step1) بالتوفيق
  22. ابوبسمله
    ابوبسمله's post in ترقيم تسلسلين على جدول واحد was marked as the answer   
    وعليكم السلام ورحمه الله وبركاته
    اتفضل اخى @Bshar ان شاء الله يكون ما تريد
    بالتوفيق
    New Microsoft Access Database_1.accdb
  23. ابوبسمله
    ابوبسمله's post in تكرار السجل was marked as the answer   
    وعليكم السلام ورحمه الله وبركاته
    اتفضل اخى @TQTHAMI ع ما فهمت جرب واخبرنا بالنتيجه
    بالتوفيق
     
    النسخ واللصق مثال - 1.rar
  24. ابوبسمله
    ابوبسمله's post in عدم الحفظ عندما يكون احد حقول النموذج الفرعى فارغ was marked as the answer   
    السلام عليكم ورحمه الله وبركاته
    اتفضل يادكتور محمد @الحلبي ان شاء الله يكون ما تريد
    بالتوفيق
    عدم الحفظ.rar
  25. ابوبسمله
    ابوبسمله's post in مسلسل للصنف في النموذج was marked as the answer   
    السلام عليكم ورحمه الله وبركاته
    اتفضل اخى @husseinharby الترقيم للنموذج والرصيد السابق فالتقرير
    بالتوفيق
    yasser_10_1.rar
×
×
  • اضف...

Important Information

  I accept