ابوخليل

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

السلام عليكم
الافضل دايما تحاول تسمي الحقول المجمعة في الاستعلام باسماء  بسيطة يمكنك مناداتها بكل يسر .. بدلا من ان يكون الاسم مختلط حروف عربية وانجليزية
ثم استخدم دالة DlookUp لجلب البيانات بمعلومية اسم المصدر واسم الحقل
تفضل تم التعديل حسب طلبك
testcalc2.rar

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

المتوقع غلق النموذج ثم فتحه وهذا منطقي .. وليس غلق البرنامج
الحل ان التحديث يتم في حدث عداد النموذج
اضبط وقت العداد على 10000 عشرة آلاف اي تساوي  10 ثواني
وفي حدث العداد ضع كود التحديث
لاحظ ان الحدث سيكون في جميع الواجهات الفرعية .. وخصوصا في اي نموذج يكثر العمل عليه جماعيا

الخطأ سببه اعدادات اللغة في  الجهاز
اضبط اعدادات اللغة في الجهاز الجديد مثل الاعدادات في الجهاز الذي تعمل عليه
 

عملك جيد
الامر يسير اطلع على الاستعلام داخل كل مربع تحرير  وانظر المعيار المكتوب
ثم عند الاختيار يتم تحديث المربع المرتبط
New Access Database2.rar

بعد اذن اخوي خليفة
تفضل ..  تحديث الاسعار بناء على معرف المريض
يتم من خلالها تحديث الاسعار والتأشير على الخانة الخاصة بضغطة زر
BBB2.rar

اقرب واسهل طريقة هو ان يتم حفظ قيمة الحقل عند التركيز وقبل اجراء اي تغيير
Dim i As String Private Sub item_GotFocus() i = Me.item End Sub Private Sub item_BeforeUpdate(Cancel As Integer) Me.note = i End Sub  
New2.accdb

تفضل
علما ان حقول القيمة لديك نصية ، والمقارنة باكبر من او اصغر يجب ان تكون الحقول رقمية
تم عمل متغير رقمي يمثل القيمة النصية
Dim i, ii As Integer i = Nz(DLookup("[estelak]", "[OLD_BASIC_DATE]", "[crn] ='" & [Forms]![BASIC_DATE]![address] & "'"), 0) ii = Me.ADD_NO If ii < i Then Beep If MsgBox("الإستهلاك الذى تريد تسجيله حالياً أقل من الإستهلاك السابق هل تريد إضافة القيمة؟", _ vbQuestion + vbYesNo, _ "تننبيه") = vbYes Then Exit Sub Else Undo Exit Sub End If End If  
New Microsoft Access Database2.accdb

السلام عليكم
مشاركة مع احبتي
 ويبدوا اننا اتفقنا بالمشاركة في وقت واحد
عملت وحدة نمطية عامة
Public Function ConAmnt(a As Date, b As Double) Dim i As Double If a < #1/8/2016# Then ConsumD0817 (b) If a >= #1/8/2016# And a <= #7/30/2017# Then i = ConsumA0817(b) If a >= #1/8/2017# And a <= #7/30/2018# Then i = ConsumB0817(b) If a >= #1/8/2018# And a <= #7/30/2019# Then i = Consumc0817(b) ConAmnt = i End Function تستدعيها في الاستعلام  بهذا السطر
Consume_Amount: ConAmnt([issue date];[Consum]) ولكن لاحظ انك في كل سنة جديدة ستزيد سطرا الى الوحدة النمطية
Test2.rar

تفضل
القاعدة2.rar

"UPDATE ZetMotor SET ZetMotor.Filter = [Forms]![frmZetMotor]![Fliter] where ZetMotor.CodeSayara = [Forms]![frmZetMotor]![CodeSayara]"  

ينفع ليه لا ؟
جرب وحاول .. هناك مائة طريقة وطريقة للحماية
1- كتابة الشفرة داخل محرر الفيجوال ( ثم تحويل الملف الى mde او accde
2 - كتابة الشفرة في الجدول وتشفيرها
3- غرس ملف داخل نظام ويندوز يبحث عنه البرنامج عند الاقلاع فإن وجده فتح 
4- البحث عن شفرة معينة داخل ملف في النظام
5- تسجيل  قيمة ومفتاح في الريجستري يتعرف عليها البرنامج عند الاقلاع
وغيرها الكثير من الطرق المعروفة والخاصة غير المعروفة ، بمعنى انه يمكنك ابتكار طريقة خاصة بك
 

تفضل
عملت لك استعلام جدولي يحقق طلبك
انظر في مصدره الذي هو استعلام تحديد وكيف تم تصفية الشهور والسنين وانظر المعيار الذي حدد هذه السنة والتي قبلها فقط
مثال اوفيسنا اجمالي المبيعات الشهرية2.mdb

عليكم السلام
Private Sub textchange_Click() Dim fso, opn, tst Set fso = CreateObject("Scripting.FileSystemObject") Set opn = fso.GetFile(CurrentProject.Path & "\" & "textm.txt") Set tst = opn.OpenAsTextStream(2, 0) tst.Write Me.textfield tst.Close End Sub Private Sub textimport_Click() Dim fso, opn, tst Set fso = CreateObject("Scripting.FileSystemObject") Set opn = fso.GetFile(CurrentProject.Path & "\" & "textm.txt") Set tst = opn.OpenAsTextStream(1, 0) textfield = tst.ReadLine tst.Close End Sub  
textf2.rar

تفضل
انقر نقرا مزدوجا على اي مربع اختيار  للتفعيل ولإلغاء التفعيل
لاحظ ان الموظف سوف يختفي اليوم من الفورم بمجرد اضافة المبلغ له ، احتياطا
ان اردت اظهاره اكتب تاريخا اكبر من تاريخ اليوم
 
 
محاوله2.mdb

لن انتظر  ردك فقد عدلت حسب الفكرة
تفضل
 
dbx2.mdb

غير السطر 
Path = CurrentProject.Path & "\MyBk\" الى
Path= "C:\Users\myuser\Documents\MyBk\" او الى
Path= "C:\Users\myuser\Documents\MyBk"  
لا حظ  يجب تغيير   myuser الى اسم المستخدم عندك في وندوز

يعمل عندي بكل كفاءة .. انظر الصورة
وضعت on error resume next فقد يكون بعض الطلاب ليس لديهم صور فيقفز الخطأ لما بعده
لو وضعت المؤشر على السطر الأصفر  واطلعت على قيم  oldName  و NewName  لتبين لك مكان الخلل

مختصر مفيد 
بدلا من كتابة رقم المنتج داخل الحقل يدويا والنقر على انتر للانتقال الى حقل آخر
قارىء الباركود : يقرأ خطوط الباركود على الملصق/ ويحولها الى رقم  / ويلصقها في الحقل/ وينقر انتر نيابة عنك
 
ليس هناك برمجة ولا اكواد ... فقط تضيف المكتبة الخاصة في النظام
فقط ابحث في المنتدى بكلمة باركود وستحصل على ملف المكتبة .
barcodex.ocx

اعمل ضغط واصلاح ، سيرجع الترقيم من البداية
شرط ان تكون كافة السجلات محذوفة

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

T3Q-Copy3.rar

اهلا وسهلا اخي موسى .. اضافة جميلة ومعلومة قيمة
وكما وعدت الاخ رضوان تم عمل المطلوب بالطريقتين
شرح :
حولت التاريخ ( شهر / يوم ) الى رقم  في عمود ضمن الاستعلام ..  لأن المطلب هو الشهر واليوم 
عملت وحدات نمطية صغيرة لجعلها معايير من اجل سهولة وسرعة التنفيذ
الاستعلام الاول Current Events يعمل آليا 
الاستعلام الثاني qry1 يعمل من خلال حقل في نموذج
هذه هي الوحدات وتعليق بسيط عليها
هاتين الوظيفتين تعملان كمعايير داخل الاستعلام والرقم 2 يعني الايام ، (اكبر من وأصغرمن) تاريخ اليوم' فيمكن زيادة الرقم لزيادة العرض في الاستعلام ، فمثلا يمكن ان تجعل الرقم الموجب 7 لتعرض سبعة ايام بعد تاريخ اليوم ومثله الرقم السالب وهذه الوظيفتين تتعامل مع تاريخ اليوم الحالي وتظهر النتيجة في الاستعلام بلا وسيط Public Function dstePlus() dstePlus = CInt(Format(Date, "mmdd")) + 2 End Function Public Function dsteLoss() dsteLoss = CInt(Format(Date, "mmdd")) - 2 End Function هاتين الوظيفتين مثل السابقتين ولكنها تتعامل مع التاريخ المدرج في النموذج ، الأولى للتاريخ المدرج والثانية تعني اقل من التاريخ المدرج بيومين' Public Function dstechose() dstechose = CInt(Format(Forms!frm1!txt1.Text, "mmdd")) End Function Public Function dsteDown() dsteDown = CInt(Format(Forms!frm1!txt1.Text, "mmdd")) - 2 End Function  
Database11.rar

منطقيا لا يمكن
لان جدول MultiNamesTable يحتوي على حقل مرتبط بالجدول GroupsTable وغير موجود في جدول main1115
الحل ان تدمج جدول GroupsTable مع main1115  باستعلام  ولن تتمكن لانه يجب عليك تنشء حقل مرتبط بينهما
مشكلتك : انك تريد ادراج سجلات جديدة في جدول MultiNamesTable من غير حقل IDMain
لو حذفت العلاقة بين الجدولين ستتمكن من الإلحاق ولكن لن يمكنك الاطلاع على البيانات من خلال جدول GroupsTable الرئيس وسيبقى حقل IDMain خاليا
او ستتمكن لو ان العلاقة بين الجدولين يكون جدول MultiNamesTable هو الرأس وحقل IDMain ترقيم تلقائي
 
 

تفضل
SELECT x1.f2, x1.f1, x1.markName, IIf(mytextvalue() Between [f1] And [f2],""1"",""0"") br2.rar