محمد أبوعبدالله

جرب المرفق الجديد باذن الله يكون مناسب لك مثال.rar تخياتي

تفضل اخي الكريم مثال.rar تحياتي

عند حدث عند الخروج للنموذج ضع كود يقوم بنقل قيمة الصافي بعد الخصم الى حقل الاجمالي في الجدول او ضع مرفق ليتم التعديل عليه تحياتي

فضلا ضع مرفق به المشكلة حتى يتم التعديل باذن الله تحياتي

تفضل اخي الكريم Dim X As String, Y As String Y = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =1") X = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =2") MsgBox X, vbInformation, Y db0.rar تحياتي ' متغيرات Dim X As String, Y As String ' عنوان الرسالة Y = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =1") ' نص الرسالة X = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =2") ' عرض الرسالة MsgBox X, vbInformation, Y

ارفق مثال للتعديل عليه بارك الله فيك تحياتي

وعليكم السلام ورحمة الله وبركاته يمكن استخدام دالة DLookup للحصول على الرسالة ووضعها في متغيير من نوع نص ثم استخدم msgbox لعرض المتغيير تحياتي

الحمد لله على انتهاء المشكلة ضع الكود التالي بعد الكود الغاء الفرز Me.requery ان استمرت المشكلة برجاء فتح موضوع جديد بالمشكلة الجديدة تحياتي

غير subform الى اسم النموذج الفرعي لديك تحياتي

السلام عليكم تفضل اخي الكريم me.subform.OrderByOn = false تحياتي

مرحبا اخي الكريم اذن نقوم بطرح (Dates) - (d1) اولا ثم نطرح النائج من (DateD)-(d2) فاذا كان الناتج اقل من 365 يتم وضع ناتج طرح (DateD)-(d2) وإلا تكون النتيجة صفر هكذا iif((DateDiff("d";[D1];[DateS])-DateDiff("d";[DateS];[Dated]))<365;DateDiff("d";[D2];[Dated]);0) ddff.rar تحياتي

وعليكم السلام ورحمة الله وبركاته اذا كنت تريد حقل اسفل التقرير يظهر اجمالي " تم الدفع " واجمالي " لم يتم الدفع " سيكون كالتالي 1 - تم الدقع =Sum(IIf([حالة الدفع]="تم الدفع";[قيمة القسط];0)) 2 - لم يتم الدفع =Sum(IIf([حالة الدفع]="لم يتم الدفع";[قيمة القسط];0)) الاقساط.rar تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم لمعرفة فرق الايام بين تاريخين نستخدم دالة DateDiff وتطبيق الدالة على ماتريد سنتسخدم شرط IIF يكون كالتالي IIf(DateDiff("d";[D1];[DateS])<365;DateDiff("d";[D2];[Dated]);0) ddff.rar تحياتي

السلام عليكم استخدم الامر التالي Me.FilterOn = False F.rar تحياتي

وعليكم السلام ورحمة الله وبركاته شخصيا استخدم الطريقة الثانية سواء في عملية البيع او الشراء لان المرتجع قد يكون من اكثر من فاتورة ولذلك سيكون صعب تطبيق الطريفة الاولى كما ان فصل كل عملية عن الاخرى يعطي مرونة اكثر في الاستعلام ( بيع - شراء - مرتجع بيع - مرتجع شراء - تحويل بين المخازن ) وتوجد طريقة يستخدمها الكثيرون هي حذف الصنف من الفاتورة او تعديل الكمية والسبب الرئيسي في استخدام هذه الطريقة هو تجنب المشاكل سلمنا الله واياكم من كل error تحياتي

رائع دائماً استاذنا الفاضل زادك الله من فضله وعلمه تحياتي

السلام عليكم يوجد الكثير من الاكواد بالمندى لمعرفة رقم الهادر وتفضل هذا كود مختصر لمعرفة رقم الهادر ايأ كان نوعه Sub ShowDriveInfo() On Error GoTo MyErr 'تحديد القرص المراد وضع السيريال نمبر له .. محرك الأقراص سي هنا Set fs = CreateObject("Scripting.FileSystemObject") Set h = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("d:"))) Forms!HardiskNo!HardiskSerial.Value = h.SerialNumber Dim Srl As String Srl = Nz(DLookup("SerialNo", "SerialNo")) If (h.SerialNumber + 123456) * 3 = Val(Srl) Then DoCmd.Close DoCmd.OpenForm "login" Else MsgBox "لم تقم بعد بتسجيل البرنامج", vbInformation, "officena" End If MyErr: End Sub ثم في نموذج HardiskNo نضع الكود التالي في حدث عند الفتح Call ShowDriveInfo تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Me.no_Sea11 = Me.no_Ba11.Column(2) Me.no_dsa11 = Me.no_Ba11.Column(3) Me.no_Lna11 = Me.no_Ba11.Column(4) 11.rar تحياتي

السلام عليكم يمكنك استخدام الكود التالي في حدث قبل التحديث لعنصر كود الصنف If Me.RecordsetClone.RecordCount = 0 Then MsgBox " لاتوجد بيانات", vbInformation, "officena" DoCmd.CancelEvent Exit Sub End If تحياتي

الحمد لله تم الحل بطريقتين والحل الثاني باستخدام الوحدة النمطية التي وضعها استاذنا جعفر نفعنا الله بعلمه بانتظار تجربة ورد اخونا HUSSIN تحياتي

هل يمكنك رفع قاعدة البيانات للنجربة وحل المشكلة باذن الله تحياتي

وعليكم السلام ورحمة الله وبركاته ستجد باذن الله في الرابط التالي ما تبحث عنه تحياتي

وعليكم السلام ورحمة الله وبركاته جرب استخدام ضغط واصلاح لقاعدة البيانات او انشىء قاعدة بيانات جديدة ثم استورد اليها جميع الكائنات تحياتي

وعليكم السلام ورحمة الله وبركاته ضع مثال لتوضيح الموضوع وتحديد المشكلة بارك الله فيك تحياتي

السلام عليكم قم بتصدير الجدول بصيغة csv ثم من برنامج Outlook قم بعمل استيراد للاسماء مثال DoCmd.TransferText acExportDelim, "Both Export Specification", "Both", "D:\Both.csv" Both = اسم الاستعلام D:\Both.csv = مسار التصدير Both Export Specification = مواصفات التصدير ودعم اللغة العربية test.rar تحياتي