اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Stoic_bird

عضو جديد 01
  • Posts

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

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

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

3 Neutral

عن العضو Stoic_bird

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

  • Gender (Ar)
    ذكر
  • Job Title
    Safety Supv
  • البلد
    Yemen
  • الإهتمامات
    Computer prog

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. أخي العزيز علي بارك الله فيك حلك ممتاز في النموذج لكن الحقل HeaderTotal اصلا موجود في الجدول tblOrder وعند احتساب العمليه في النموذج يظل الحقل في الجدول يحمل القيمه صفر!!
  2. السلام عليكم ورحمة الله وبركاتة اخوتي الكرام لدي نموذج اساسي بحيث بعض حقولة لا تتحدث (مثل حقل الاجمالي والخصم) الا اذا دست على زر الحفظ الموجود في منتصف النموذج والذي يحمل الامر: [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
  3. الاخالاخ الكريم jjafferr هذا هو المطلوب جزاك الله الف خير وجعلة في ميزان حسناتك
  4. الاخ الكريم jjafferr شاكرين ردك ولكن الكود اخذته من موقع اجنبي كما هو والحمد لله شغال معي دون اي مشاكل اللهم ان النموذج لا يفتح كورقة بيانات
  5. السلام عليكم ورحمة الله وبركاتة اخوتي الكرام عملت الكود الاتي والحمد لله شغال Private Sub Command4_Click() DoCmd.OpenForm "frmReturnedbyCus", , , "[CusID]=" & Combo2 End Sub ولكن المشكلة انة يفتح السجل المطلوب في شكل نموذج مفرد وانا حاب انة يفتح في وضع ورقة بيانات datasheet هذ الاظافة اللي تفتح في وضع ورقة بيانات لكن لم اعرف اي اظيفها للكود acFormDS شاكرين تعاونكم
  6. عملت هذا الكود ولم ينفع 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
  7. عملت هذا الكود ولم ينفع Private Sub UnitPrice_AfterUpdate() Me.AvaQu = Me.AvaQu - Me.OutStore End Sub
  8. السلام عليكم ورحمة الله وبركاتة اخوتي الكرام معي المسميات الاتية: النموذج الاساسي 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
  9. الأخوة الافاضل لو تكرمتم هل من حل باستخدام المعادلات فقط
×
×
  • اضف...

Important Information