slamco2000

شكراً جزيلاً أخي وفقك الله لكل خير هو ما أريده بالضبط مع إني لم أستطيع عمل العلاقة بين الجدولين كما عملت فإذا كان عدك وقت لشرحها أكون ممنون لك ألف شكر

السلام عليكم ورحمة الله وبركاته أخواني لدي نموذج مرفق أريد ترقيم الموظفين بناءً على إسم الشركة (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

مشكور الغالي ما قصرت تصبحون على خير

لا أعرف كيف أشكركم أخي جعر وأخي أبو ياسين فلكم الشكر الجزيل ورحم الله والديكم أكواد الأزرار من الأخ جعفر إستعملتهم وطبعاً راحت كل المشاكل ولله الحمد كود الصور ممتاز .. طبعاً أزال المشكلة التي لدي .. أصبحت هناك مشكلة صغيرة فقط .. وأستطيع أستمر بهذه المشكلة أيضاً .. إلا إذا كان لها حل فهذا شيء ممتاز مربع النص الذي يظهر ... يظهر مرتين ومكتوب به .. 13 Type mismatch تضغط أوكي مرتين ويذهب هذه هي المشكلة فقط ولكم تحياتي وأنا أعجز عن شكركم

السلام عليكم ورحمة الله وبركاته في النموذج وضعت أزرار للجدول الفرعي للنموذج الرئيسي لكن مشكلتي هو عند الوصول لآخر سجل والضغط على الزر للمتابعة يظهر خطأ للكود ... وهو من المفروض ان يعطي تنبيه لعدم وجود سجلات .. أو التوقف فما هو الحل لتعديل هذا الأمر كود السهم للخلف 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 ولكم مني خالص الشكر والإحترام

وإليك الحل ربما هناك من يستفيد منه ولكن ليس بدالة DSUM الحل عن طريق ماكرو والله ولي التوفيق sub_prev.accdb

أعزائي الملف المرفق للتعديل https://up.top4top.net/downloadf-12835f2id1-7z.html ولكم كل الشكر والإمتنان

أهلين وسهلين أخي عبد اللطيف سلوم المشكلة أنه الملف كبير وحبيت أختصر المووع والصورة واضحة

السلام عليكم ورحمة الله وبركاته هل ممكن مساعدتي في عملية الجمع المدرجة في الصورة المرفقة كالتالي الجمع الموجود : 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] & " ") أرجو الإفادة والمساعدة في ذلك مع الشكر الجزيل

ألف شكر لك أخي ... رحم الله والديك .... هذا هو المطلوب

هل من الممكن أن يكون الترقيم التلقائي بناءً على إسم الشركة في المرفق من نموذج : New_Invoice أريد الترقيم يكون بناءً على الحقل : owner company name ويواصل تسلسل الترقيم بناءً على ذلك هل من حل لهذه المسألة مع الشكر الجزيل 13 - Copy.rar

لا أعلم ما المشكلة لكن الملف يظر لي damage ولا يفتح من الملف المضغوط

أمورك شوي متلخبطة ... إطرح موضوع موضوع علشان يكتمل تصميمك صح ...

الملف لا يفتح ... به مشكلة

تفضل أخي عسى أن تكون هذه غايتك حسابات 2018_5.rar غير فقط DMax("[rs]";"[R1]") وإعملها DLast("[rs]";"[R1]")