اذهب الي المحتوي
أوفيسنا

slamco2000

عضو جديد 01
  • Posts

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

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

السمعه بالموقع

7 Neutral

1 متابع

عن العضو slamco2000

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    حر

اخر الزوار

643 زياره للملف الشخصي
  1. شكراً جزيلاً أخي وفقك الله لكل خير هو ما أريده بالضبط مع إني لم أستطيع عمل العلاقة بين الجدولين كما عملت فإذا كان عدك وقت لشرحها أكون ممنون لك ألف شكر
  2. السلام عليكم ورحمة الله وبركاته أخواني لدي نموذج مرفق أريد ترقيم الموظفين بناءً على إسم الشركة (Company_Name) والحقل المطلوب ظهور الرقم فيه هو (Staff_No) أي يكون هناك ترقيم متسلسل للموظفين بناءً على إسم الشركة حاولت أكثر من محاولة لكن دون جدوى .. فأرجو مساعدتي في ذلك المحاولات: Me.Staff_No = Nz(DMax("[Staff_No]", "Staffs_Table", "[Company_Name] = '" & Me.Company_Name & "'"), 0) + 1 Me.Staff_No.Value = DCount("Company_Name", "Staffs_Table", "Company_Name= ' " & Me.Company_Name.Value & " ' ") + 1 http://www.mediafire.com/file/2i79npmb2pn9td5/site.rar/file توجد أخطاء بالبرنامج بسبب حذف بعض الجداول لتصغير حجم الملف site.rar
  3. مشكور الغالي ما قصرت تصبحون على خير
  4. لا أعرف كيف أشكركم أخي جعر وأخي أبو ياسين فلكم الشكر الجزيل ورحم الله والديكم أكواد الأزرار من الأخ جعفر إستعملتهم وطبعاً راحت كل المشاكل ولله الحمد كود الصور ممتاز .. طبعاً أزال المشكلة التي لدي .. أصبحت هناك مشكلة صغيرة فقط .. وأستطيع أستمر بهذه المشكلة أيضاً .. إلا إذا كان لها حل فهذا شيء ممتاز مربع النص الذي يظهر ... يظهر مرتين ومكتوب به .. 13 Type mismatch تضغط أوكي مرتين ويذهب هذه هي المشكلة فقط ولكم تحياتي وأنا أعجز عن شكركم
  5. السلام عليكم ورحمة الله وبركاته في النموذج وضعت أزرار للجدول الفرعي للنموذج الرئيسي لكن مشكلتي هو عند الوصول لآخر سجل والضغط على الزر للمتابعة يظهر خطأ للكود ... وهو من المفروض ان يعطي تنبيه لعدم وجود سجلات .. أو التوقف فما هو الحل لتعديل هذا الأمر كود السهم للخلف Private Sub Command42_Click() Forms!Violations_Form_Share!Violations_Table_subform.SetFocus DoCmd.GoToRecord , , acPrevious End Sub كود السهم للأمام Private Sub Command41_Click() Forms!Violations_Form_Share!Violations_Table_subform.SetFocus DoCmd.GoToRecord , , acNext End Sub وتقريباً نفس المشكلة في التقرير حيث يحتوي على صور ... في حال وجود سجلات يعمل بشكل ممتاز .. ولكن في حال عدم وجود سجلات وعمل بحث أو معاينة يكون الخطأ في الكود ... فإذا كان بالإمكان وجود حل لذلك Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Me![ImageFrame1].Picture = Me![Picture1] Me![ImageFrame2].Picture = Me![Picture2] Me![ImageFrame3].Picture = Me![Picture3] Me![ImageFrame4].Picture = Me![Picture4] End Sub ولكم مني خالص الشكر والإحترام
  6. وإليك الحل ربما هناك من يستفيد منه ولكن ليس بدالة DSUM الحل عن طريق ماكرو والله ولي التوفيق sub_prev.accdb
  7. أعزائي الملف المرفق للتعديل https://up.top4top.net/downloadf-12835f2id1-7z.html ولكم كل الشكر والإمتنان
  8. أهلين وسهلين أخي عبد اللطيف سلوم المشكلة أنه الملف كبير وحبيت أختصر المووع والصورة واضحة
  9. السلام عليكم ورحمة الله وبركاته هل ممكن مساعدتي في عملية الجمع المدرجة في الصورة المرفقة كالتالي الجمع الموجود : 50 130 250 المطلوب هو 50 50-80=30 80-120=40 50 30 40 فهل ممكن المساعدة في ذلك اسم الجدول: Vehicle Recipient اسم الحقل: KM_No الدالة المستخدمة حالياً: DSum: DSum(" [KM_No] ","Vehicle Recipient","[ID2]<=" & [ID2] & " ") أرجو الإفادة والمساعدة في ذلك مع الشكر الجزيل
  10. ألف شكر لك أخي ... رحم الله والديك .... هذا هو المطلوب
  11. هل من الممكن أن يكون الترقيم التلقائي بناءً على إسم الشركة في المرفق من نموذج : New_Invoice أريد الترقيم يكون بناءً على الحقل : owner company name ويواصل تسلسل الترقيم بناءً على ذلك هل من حل لهذه المسألة مع الشكر الجزيل 13 - Copy.rar
  12. لا أعلم ما المشكلة لكن الملف يظر لي damage ولا يفتح من الملف المضغوط
  13. أمورك شوي متلخبطة ... إطرح موضوع موضوع علشان يكتمل تصميمك صح ...
  14. تفضل أخي عسى أن تكون هذه غايتك حسابات 2018_5.rar غير فقط DMax("[rs]";"[R1]") وإعملها DLast("[rs]";"[R1]")
×
×
  • اضف...

Important Information