ابوآمنة

ما شاء الله عليك يا استاذي جعفر طلعنا مثلك في وسط المعمعة

صحيح هناك خطأ مطبعي في استعلام القائمة [Formulaires]![show]![maharat] الصحيح [Forms]![show]![maharat]

وهذا مثال في النموذج لتحديث عمليات العد والجمع DSUM&DCOUNT.accdb

تفضل إن شاء الله يكون هذا المطلوب . وهذه الدالة المستخدمة المجموع: IIf([CHK]=True;DSum("[NUMBER]";"[Q1]";"[ID] <= " & [ID] & " and CHK=True");0) العدد: IIf([CHK]=True;DCount("[CHK]";"[Q1]";"[ID] <= " & [ID] & " and CHK=True");0) DSUM&DCOUNT.accdb للمعلومية : العمل داخل الاستعلام يلزم التحديث كل مرة لترى النتائج .

تفضل فقط قمت بتغيير مصدر سجلات القائمة إلى الحقل نوع السكون. إن شاء الله يكون هذا ما تريد . القائمة والمربع.rar

Public Const regpath As String = "HKEY_CURRENT_USER\software" ضيعني هذا السطر شكراً لك على التنبيه لكن هل هو متغيير أم ثابت Const

عن إذن أستاذي ومعلمي صالح تفضل 3333.accdb طبعاً الشفرة تسجل في الريجستري regedit

تفضل يا أخي بلال القائمة.zip

الحمدلله

الكود بعد وضع كود تجاوز الخطأ جرب الآن Sub AuditChanges(IDField As String, UserAction As String, UsedForm As Form) 'كود تجاز الخطاء ' On Error Resume Next Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim ctl As Control Dim datTimeCheck As Date Dim strUserID As String Set cnn = CurrentProject.Connection Set rst = New ADODB.Recordset rst.Open "SELECT * FROM revision", cnn, adOpenDynamic, adLockOptimistic datTimeCheck = Now() strUserID = Environ("USERNAME") Select Case UserAction Case "EDIT" For Each ctl In UsedForm.Controls If ctl.Tag = "Audit" Then If Nz(ctl.Value) <> Nz(ctl.OldValue) Then With rst .AddNew ![DateTime] = datTimeCheck ![UserName] = strUserID ![FormName] = UsedForm.name ![Action] = UserAction ![RecordID] = UsedForm.Controls(IDField).Value ![FieldName] = ctl.ControlSource ![OldValue] = ctl.OldValue ![NewValue] = ctl.Value .Update End With End If End If Next ctl Case "DELETE" For Each ctl In UsedForm.Controls If ctl.Tag = "Audit" Then With rst .AddNew ![DateTime] = datTimeCheck ![UserName] = strUserID ![FormName] = UsedForm.name ![Action] = UserAction ![RecordID] = UsedForm.Controls(IDField).Value ![FieldName] = ctl.ControlSource ![OldValue] = ctl.Value .Update End With End If Next ctl Case Else For Each ctl In UsedForm.Controls If ctl.Tag = "Audit" Then If Nz(ctl.Value) <> Nz(ctl.OldValue) Then With rst .AddNew ![DateTime] = datTimeCheck ![UserName] = strUserID ![FormName] = UsedForm.name ![Action] = UserAction ![RecordID] = UsedForm.Controls(IDField).Value ![FieldName] = ctl.ControlSource ![NewValue] = ctl.Value .Update End With End If End If Next ctl End Select rst.Close cnn.Close Set rst = Nothing Set cnn = Nothing Exit Sub End Sub

انقل الكود فقط تم تعطيل رسالة الخطأ فقط

تفضل واخبرني بالنتائج copy.zip

حياك أخي اشرف كلنا تستفيد من بعض و يا ليتك وضعت مشاركتك ليختار الاخ الانسب له وأيضا هي إثراء للموضوع .

تفضل أضفنا أمر DELETE في الوحدة النمطية ووضعنا الأمر عند الحدث في النموذج . copy.accdb

تفضل إن شاء الله يكون هذا المطلوب المخزون.accdb

شاهد هذا الموضوع

ما شاء الله تبارك الله برنامج رائع ومتعوب عليه سلمت يمينك وفكرك الراقي .

تستطيع إضافة الكميات عن طريق فاتورة المشتريات . كما وضحنا ذلك سابقاً

يحتاج وقت ،،،، في المستقبل إن شاء الله تعالى

أخي بلال تفضل الآن بإمكانك تصدير واستيراد بيانات الموظف من القائمة والتعديل على ملف الاكسيل واستيراد التعديلات على ملف الموظف . كما ذكرت لي في الرسالة الخاصة لك . وبالتوفيق آمل التجربة وإخباري بالنتائج استراد وتصدير.accdb

تفضل بعد التعديل أما طلب رقم 4 لا يمكن وهناك برامج أخرى موجودة في المنتدى قم بالبحث عنها وأما طلب إضافة جهاز الباركود يعمل توجه لتكويد الأصناف وبجوار كود الصنف شيك بوكس "تكويد يدوي" فعل الخيار وقم وضع رقم الباركود من خلال القارئ الباركود وسيتم البيع بالقارئ ، فقط ضع السهم في كود الصنف بالفاتورة جرب الآن واعطينا خبر BuySal20_V14.zip

للأسف لم أجرب الاوتلوك وعلمي به من قديم . لعل من لديه الخبرة في التعامل مع الأوتلوك يخبرك

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

كثر الطلب على زر الشفت ما أدري ويش السالفة تفضل إجابة الأخ الحبيب أبا أشرف عبداللطيف سلوم دائماً استخدم البحث في المنتدى ستجد مواضيع وبرامج كثيرة لإلغاء وتفعيل الشفت بدلاً من فتح موضوح جديد . وشكراً لك

ستجد بإذن الله تعالى حلك في هذه المشاركة