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

ارجو ان يكون هذا هو المطلوب D: IIf(([TextBox1])<(([TextBox])/4);"راسب لعدم حصوله على ربع الدرجة";IIf(([TextBox1])<8;"راسب فى المادة";"ناجح")) تحياتي

السلام عليكم وعليكم ورحمة الله وبركاته تفضل احي الكريم D : IIf(([TextBox1])<(([TextBox])/4);"راسب";"ناجح") TextBox = درجة المادة TextBox1 = حقل درجة الطالب تحياتي

جزاك الله خيراً اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته لاخفاء القيمة المختارة عدل عرض الاعمدة كالتالي 0سم;2.544سم;2.544سم;2.544سم تحياتي

وعليكم السلام ورحمة الله وبركاته المثال يعمل جيداً قمت بنحربة اضافة سجل جديد وبعد التنقل يحتفظ بالقيمة المدخلة بدون مشاكل تحياتي

السلام عليكم ضع مسافة بينهم هكذا 2017 / 2018 تحياتي

وعليكم السلام ورحمة الله وبركاته لحساب الفرق بين تاريخين نستخدم دالة = DateDiff مثال نقوم بانشاء استعلام ويكون حقل التاريخ باسم = date1 ونضع به الكود التالي d: DateDiff("d";[date1];Date()) لمعرفة عدد سنوات الخبرة نقوم بتحويل الايام الى سنين كالتالي e: [d]/365 واليك الكود كامل في الاستعلام اسم الجدول = tbl1 SELECT tbl1.date1, DateDiff("d",[date1],Date()) AS d, [d]/365 AS e FROM tbl1; تحياتي المعذرة اخي جعفر لم انتبه لردك الكريم فقد سبقتني بدقيقة :) تحياتي

السلام عليكم ورحمة الله وبركاته برجاء الاطلاع على الاستعلام الجديد = QTotal اجمالي المبيعات بالشهر.rar تحياتي

السلام عليكم ورحمة الله وبركاته ما شاء الله عليك اخي الغالي ابوخليل بعد اذنك اخي العالي في فاتورة البيع وضعت كود في حقل الكمية Private Sub quant_AfterUpdate() Me.ejmale = CLng(Nz([quant] * [Price]) * Nz(1 - [kasm]) * 100) / 100 If Me.quant > DLookup("[Rsnf]", "[Qryasnaf]", "[ID_Sanf]=[ID_Sanf1]") Then MsgBox "رصيد غير كافي" Else End If End Sub مثال للمشكلة التي ظهرت معي صنف "خلوي ايفون" رصيد الكمية الموجودة مثلاً = 10 اذا قمت بعملية بيع = 7 قطع فسيتم قبول الكمية بدون مشاكل اما اذا اردنا ان نقوم بتعديل الكمية الى 6 فسوف تظهر الرسالة لان الرصيد حالياً = ( 10 - 7 = 3 ) مع اننا لم نقوم بعملية جديدة ولكن هي هي نفس العملية ولكن تعديل القيمة فقط فكيف يمكننا تصحيح الكود او تصحيح العملية دمتم بكل خير تحياتي testPro14.rar

غير اسم الوحدة النطية الى اسم جديد لا يكون اسم الدالة تحياتي

السلام عليكم ورحمة الله وبركاته ضع الكود التالي في وحدة نمطية جديدة Option Compare Database Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub وفي نموذج البداية ضع الكود التالي في حدث عند الفتح Private Sub Form_Open(Cancel As Integer) Call HideAccess End Sub تحياتي

بدون الشرط سيتم عرض جميع السجلات اما بوضع الشرط فلن يتم الا ما يوافقه في النموذج تحياتي

وعليكم السلام ورحمة الله وبركاته قم بتعديل الكود في النموذح الى DoCmd.OpenReport "mdfoaatSub", acViewPreview وفي التقرير وفي مصدر التقرير وفي حقل id ضع الشرط التالي في المعيار [forms]![Mad]![id] تحياتي

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

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

وعليكم السلام ورحمة الله وبركاته المعذرة لاني تاخرت عليك ومرفق البرنامج بعد تصميم فاتورة شراء مبيعات 4.rar تحياتي

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

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

وعليكم السلام ورحمة الله وبركاته Total : (Nz([amount])*Nz([price]))-Nz([deduct]) تحياتي

وعليكم السلام ورحمة الله وبركاته وما الهدف من انشاء الاستعلامين الان ؟ اقصد هل هناك هدف ضرورة الان لانشاء الاستعلامات ؟ اقترح الان ان نقوم بانشاء استعلام باسم Qdetails_bought_invoice لجدول details_bought_invoice وفيه نقوم بضرب الكمية في السعر - الخصم Total : (Nz([amount])*Nz([price]))-Nz([deduct]) ثم نقوم باشاء نموذج جدولي مصدره استعلام Qdetails_bought_invoice مرفق الملف من جديد بعد تطبيق التعديلات مبيعات_4.rar برجاء تطبيق نفس الافكار على جدول العملاء تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي ابوزاهر الحفظ بعد اكتمال البيانات.rar تحياتي

وعليكم السلام ورحمة الله وبركاته انشىء نموذج ضع به ازرار لفتح التماذج والتقارير ثم تقوم باخفاء الاكسيس وعند تشغيل قاعدة البيانات يظهر النموذج الجديد فقط مرفق مثالك بغد التعديل تجريب_3.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته من بعد اذن استاذي الفاضل ابوخليل نفعنا الله به لدي فكرة ايضاً : في النموذج الفرعي frmSubSales يتم اضافة حقل غير منضم باسم XCount ومصدر عنصر التحكم له = =Count(*) وفي النموذج الرئيسي frmSales وفي حدث عند الاغلاق نضيف الكود التالي On Error Resume Next DoCmd.SetWarnings False If Forms!SubSales!XCount > 0 Then DoCmd.RunSQL "DELETE Hrakatsanf.*, Hrakatsanf.Rjmfatwra FROM Hrakatsanf WHERE (((Hrakatsanf.Rjmfatwra)=[Forms]![frmSales]![Rjmfatwra]));" Else If Me.Xsave = -1 Then Else DoCmd.GoToControl "Rjmfatwra" DoCmd.RunSQL "DELETE Hrakatsanf.*, Hrakatsanf.Rjmfatwra FROM Hrakatsanf WHERE (((Hrakatsanf.Rjmfatwra)=[Forms]![frmSales]![Rjmfatwra]));" DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If End If DoCmd.SetWarnings True الحفظ بعد اكتمال البيانات.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم db1.rar تحياتي