-
Posts
39 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
3 Neutralعن العضو Stoic_bird

البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
Safety Supv
-
البلد
Yemen
-
الإهتمامات
Computer prog
اخر الزوار
بلوك اخر الزوار معطل ولن يظهر للاعضاء
-
Stoic_bird changed their profile photo
-
أخي العزيز علي بارك الله فيك حلك ممتاز في النموذج لكن الحقل HeaderTotal اصلا موجود في الجدول tblOrder وعند احتساب العمليه في النموذج يظل الحقل في الجدول يحمل القيمه صفر!!
-
هلو هل من حل
-
الأخوة الأعزاء هل من إفادة لو تكرمتوا!!
-
السلام عليكم ورحمة الله وبركاتة اخوتي الكرام لدي نموذج اساسي بحيث بعض حقولة لا تتحدث (مثل حقل الاجمالي والخصم) الا اذا دست على زر الحفظ الموجود في منتصف النموذج والذي يحمل الامر: [Forms]![frmOrder]![HeaderTotal] = [Forms]![frmOrder]![frmOrderDetails]![Text22] Exit Sub [Forms]![frmOrder]![InvoiceNetTotal] = [Forms]![frmOrder]![HeaderTotal] - [Forms]![frmOrder]![Discount] Exit Sub DoCmd.Save acForm, "frmOrder" هل ممكن الغي الزر نهائيا و انقل الامر واجعلة في اخر سجل يحدث في النموذج الفرعي اللي هو سجل الاجمالي طبعا ممكن حذف السطر الاخير في الكود والذي ليس له داعي DoCmd.Save acForm, "frmOrder" اتمنى الفكرة وصلت الفكرة شوفو الملف المرفق شاكرين تعاونكم Test.accdb
-
كود اجبار النموذج ان يفتح على شكل ورقة بيانات
Stoic_bird replied to Stoic_bird's topic in قسم الأكسيس Access
الاخالاخ الكريم jjafferr هذا هو المطلوب جزاك الله الف خير وجعلة في ميزان حسناتك -
كود اجبار النموذج ان يفتح على شكل ورقة بيانات
Stoic_bird replied to Stoic_bird's topic in قسم الأكسيس Access
الاخ الكريم jjafferr شاكرين ردك ولكن الكود اخذته من موقع اجنبي كما هو والحمد لله شغال معي دون اي مشاكل اللهم ان النموذج لا يفتح كورقة بيانات -
السلام عليكم ورحمة الله وبركاتة اخوتي الكرام عملت الكود الاتي والحمد لله شغال Private Sub Command4_Click() DoCmd.OpenForm "frmReturnedbyCus", , , "[CusID]=" & Combo2 End Sub ولكن المشكلة انة يفتح السجل المطلوب في شكل نموذج مفرد وانا حاب انة يفتح في وضع ورقة بيانات datasheet هذ الاظافة اللي تفتح في وضع ورقة بيانات لكن لم اعرف اي اظيفها للكود acFormDS شاكرين تعاونكم
-
في حد عندة حل ياشباب افيدونا
-
تسلم يابو ياسين بس اش مشكلة الرسالة اللي تظهر؟
-
عملت هذا الكود ولم ينفع Private Sub UnitPrice_AfterUpdate() If Forms!frmOrder!frmOrderDetails!OutStore.Value > Forms!frmOrder!frmOrderDetails!AvaQu Then MsgBox "No storage enough", vbCritical DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 Exit Sub Else Me.AvaQu = Me.AvaQu - Me.OutStore End If End Sub
-
عملت هذا الكود ولم ينفع Private Sub UnitPrice_AfterUpdate() Me.AvaQu = Me.AvaQu - Me.OutStore End Sub
-
السلام عليكم ورحمة الله وبركاتة اخوتي الكرام معي المسميات الاتية: النموذج الاساسي frmOrder النموذج الفرعي frmOrderDetails حقل في النموذج الفرعي بمسمى UnitPrice حقل في النموذج الفرعي بمسمى ProQu حقل في النموذج الفرعي بمسمى AvaQu عندما يتم تحديد حقل الكمية المطلوبة يجب ان يتم تنقيصها من المخزون وذالك عندما يتم تحديث حقل السعر قمت بوضع هذا الكود ولكن لا يستجيب ولست اعلم ما هو الخطاء Private Sub UnitPrice_AfterUpdate() [Forms]![frmOrder]![frmOrderDetails].[Form]![AvaQu] = [Forms]![frmOrder]![frmOrderDetails].[Form]![AvaQu] - [Forms]![frmOrder]![frmOrderDetails].[Form]![OutStore] End Sub الرجاء مشاهدة الملف المرفق MS Access - Test.accdb
-
الأخوة الافاضل لو تكرمتم هل من حل باستخدام المعادلات فقط
-
شوف المرفق الصفحه الثانيه Test.xlsx