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

Barna

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

  • Posts

    1097

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

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

  • Days Won

    29

 نوع المحتوي 

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

  1. Barna
    في مربع نص الكمية وفي حدث عند الخروج ضع هذا الكود ... مع تعديل ما يلزم If IsNull(Me.Namex) Then ' Namex هو اسم مربع نص الكمية MsgBox "ادخل بيانات", vbCritical, "dATA" DoCmd.CancelEvent End If
  2. Barna
    اشكرك اخي @ابو ياسين المشولي .. بارك الله فيك
  3. Barna
    يتبع سؤال اخي @ابا جودى هل يمكن تشغيل هذا الملف عن طريق الاكسس مباشرة كمسؤل عن طريق زر في النموذج
  4. Barna
    للعلم البرنامج شغال .... انظر ...
  5. Barna
    الحمد لله على السلامة أخي @ابا جودى سررنا بمشاهدة مشاركتك ... ارجو أن تكون بصحة وعافية
  6. Barna
    حياك اخي @iibat ... بالتوفيق
  7. Barna
    تفضل ..... DoCmd.OpenForm "Main", acNormal, , "[M1] ='" & Me.M1 & "'" & "and [M2]='" & Me.M2 & "'" & "and [M3]='" & Me.M3 & "'" & "and [M4]='" & Me.M4 & "'" & "and [M5]='" & Me.M5 & "'" & "and [M6]='" & Me.M6 & "'"
  8. Barna
    حياك الله ... نحن في الخدمة
  9. Barna
    وهذه طريقة أخرى ....... اختر ما تريد في عملك .... أنا افضل الطريقة الثانية لأنها أسرع .... علما أني غيرت بعض مسميات الحقول لأنها عربية نجد صعوبة في كتابة الأكود .... وهذا ما يحزننا ( لحبنا للعربية ) الفرق بين تاريخين.mdb
  10. Barna
    استخدم هذا الكود ..... Dim c, i c = DCount("[المعرف]", "daraga") DoCmd.GoToRecord , , acFirst For i = 1 To c If IsNull(Me.Date1) Or IsNull(Me.date2) Then Exit Sub Me.age = CalcAge(Me.Date1, Me.date2) Me.tdate = CalcAged(Me.Date1, Me.date2) Me.tmonth = CalcAgem(Me.Date1, Me.date2) Me.tyear = CalcAgey(Me.Date1, Me.date2) DoCmd.GoToRecord , , acNext Next i MsgBox "تم الحساب", vbInformation + vbMsgBoxRight, "حساب"
  11. Barna
    بارك الله فيك .... ولك والمشاهدين بمثل ما دعوت يارب ..
  12. Barna
    مشاركة مع أخي @عبد اللطيف سلوم أنظر ... n15.accdb
  13. Barna
    جرب هذا الكود ... DoCmd.RunCommand acCmdSelectRecord لتحديد السجل
  14. Barna
    اذا كنت تقصد كلمة مرور لمحرر الفيجوال ... انظر ...
  15. Barna
    أشكرك أخي حسين ..... جميل ... بارك الله فيك
  16. Barna
    الحمد لله رب العالمين
  17. Barna
    افتح قاعدة جديده واستورد جميع الكائنات لها
  18. Barna
    مشاركة مع أخي الأستاذ @kha9009lid يمكن طباعة التقرير دون فتح خصائص الطابعة بصيغة XPS عن طريق كتابة هذا الكود .... جرب DoCmd.OutputTo acOutputReport, _ "اكتب هنا اسم التقرير", acFormatXPS, "", True, , , acExportQualityPrint
  19. Barna
    وهذه طريقة أخرى .... الكود.accdb
  20. Barna
    انظر .... الكود.accdb
  21. Barna
    اسأل الله الشفاء العاجل له
  22. Barna
    ما شاء الله تبارك الله .... تستاهل يا بطل ... الف مبروك
  23. Barna
    الطابعة اذا كانت جاهزة فيطبع دون سؤال هذا كان حسب سؤال لأنك لم توضح .... أنظر لطلبك داخل البرنامج ....
  24. Barna
    تفضل .... Lab.rar
  25. Barna
    جرب هذا .... لأن المشكلة غير موجودة عندي فلذلك لا استطاع التجربة ... Application.FollowHyperlink "http://www.google.com/search?q= " & Me.title.Value & ""
×
×
  • اضف...

Important Information

  I accept