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

Barna

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

  • Posts

    1081

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

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

  • Days Won

    26

 نوع المحتوي 

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

  1. Barna
    كدا انا خفت منك ... هههه ... @ابا جودى رجل الفائدة والدعابة
  2. Barna
    الرجال خاف من حكاية الدفع . هههههههه
  3. Barna
    هذه مشاركة مجانية لأخي الفاضل @عبد اللطيف سلوم لا تخاف مجانا
  4. Barna
    نفضل هذا ..... مستودعات.accdb
  5. Barna
    تاكد من الفواصل والقيم المكتوبة في الأمر ..... أو انسخ الكود ليتم فحصه من قبل الأعضاء
  6. Barna
    نعم ممكن بارك الله فيك استخدم جدول النظام هذا MSysObjects اعمل له استعلام .....
  7. Barna
    ارفق مثال لنرى امكانية ذلك ...
  8. Barna
    انظر .... حل اخر bar.accdb
  9. Barna
    انظر ربما هذا هو المطلوب ... ادراج الصور بعد 5 .accdb
  10. Barna
    انا لله وانا اليه راجعون ... عظم الله اجركم وغفر لميتكم والهمكم الصبر والسلوان
  11. Barna
    اهلا بك بشمهندس ... بالعكس كثرة و تنوع الردود يثري الموضوع ... لا داعي للاعتذار انا استفدت من ردك ... لان هذه الردود تمثل عصف ذهني لمجموعة متحاورة ولسنا في سباق ... بارك الله فيك اخي الفاضل ... اسأل الله العظيم ان يديم علينا جميعا بالصحة والعافية ⚘⚘
  12. Barna
    البرنامج مرتبط ببرنامج اخر رئيسي أين هو ؟؟؟؟؟ انظر ... لذلك لن تستطيع العمل على البرنامج ... قم بالتواصل مع المبرمج !!!!!!
  13. Barna
    في مربع نص الكمية وفي حدث عند الخروج ضع هذا الكود ... مع تعديل ما يلزم If IsNull(Me.Namex) Then ' Namex هو اسم مربع نص الكمية MsgBox "ادخل بيانات", vbCritical, "dATA" DoCmd.CancelEvent End If
  14. Barna
    اشكرك اخي @ابو ياسين المشولي .. بارك الله فيك
  15. Barna
    يتبع سؤال اخي @ابا جودى هل يمكن تشغيل هذا الملف عن طريق الاكسس مباشرة كمسؤل عن طريق زر في النموذج
  16. Barna
    للعلم البرنامج شغال .... انظر ...
  17. Barna
    الحمد لله على السلامة أخي @ابا جودى سررنا بمشاهدة مشاركتك ... ارجو أن تكون بصحة وعافية
  18. Barna
    حياك اخي @iibat ... بالتوفيق
  19. 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 & "'"
  20. Barna
    حياك الله ... نحن في الخدمة
  21. Barna
    وهذه طريقة أخرى ....... اختر ما تريد في عملك .... أنا افضل الطريقة الثانية لأنها أسرع .... علما أني غيرت بعض مسميات الحقول لأنها عربية نجد صعوبة في كتابة الأكود .... وهذا ما يحزننا ( لحبنا للعربية ) الفرق بين تاريخين.mdb
  22. 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, "حساب"
  23. Barna
    بارك الله فيك .... ولك والمشاهدين بمثل ما دعوت يارب ..
  24. Barna
    مشاركة مع أخي @عبد اللطيف سلوم أنظر ... n15.accdb
  25. Barna
    جرب هذا الكود ... DoCmd.RunCommand acCmdSelectRecord لتحديد السجل
×
×
  • اضف...

Important Information

  I accept