ابوخليل

واذا نظام الوندز عندك 64 بت
جرب استبدال الجملة في اعلى المحرر
Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long بهذه
Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long التغير هو فقط باضافة  PtrSafe

واذا نظام الوندز عندك 64 بت
جرب استبدال الجملة في اعلى المحرر
Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long بهذه
Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long التغير هو فقط باضافة  PtrSafe

واذا نظام الوندز عندك 64 بت
جرب استبدال الجملة في اعلى المحرر
Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long بهذه
Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long التغير هو فقط باضافة  PtrSafe

الحل انك تعمل وحدة نمطية عامة تحمل قيمة الحقل ID
بكذا تستطيع مناداتها من اي مكان من البرنامج
تفضل المثال بعد التعديل
Downloads.rar

ايسر طريقة لمنع الحفظ التلقائي هو جعل خصيصة احد الحقول في الجدول : مطلوب=نعم
بهذه الطريقة لن يتم حفظ السجل الا بعد تعبئة هذا الحقل
طرفة في الحيل :
اذكر واحد من الاخوة هنا قام بالتحايل على على هذه العملية بانشاء حقل  في الجدول و يكون مخفي داخل النموذج وجعله مطلوب=نعم 
وعند النقر على زر الحفظ يتم تعبئته بقيمة = 0
 

هو بالفعل مبني على الاستعلام ،، لاحظ انه لن يتم عرض المخطط حتى تدخل التواريخ
تفضل التعديل حسب طلبك
 

Newe2.rar

تفضل هذا الموضوع 

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

سيصبح الكود هكذا
=DMax("date_catch";"TBCatch";"id_reader=" & [id_reader] & " And typy_cach='" & "catch" & "'")  

Private Sub amount_BeforeUpdate(Cancel As Integer) If IsNull(Me.amount) Then Exit Sub Dim i, j As Integer i = DLookup("salary", "emp", "id=" & emp_name) j = DSum("amount", "qryAmountInMonth", "emp_name=" & emp_name) If j + Me.amount > i Then Undo MsgBox "المبلغ يتجاوز المرتب الشهري" Exit Sub End If End Sub  
delete2.accdb

الاعلان عن متغير عام
Public wrCombVal As String هذا المتغير يأخذ قيمته عند النقر على الزر في اي نموذج من النماذج الثلاث
جعل مربع التحرير يأخذ  قيمة المتغير  wrCombVal عند فتح النموذج
Private Sub Form_Load() Me.FS.RowSource = wrCombVal End Sub تفضل
FFF2.accdb

odate = Dlookup("your filedDate name","your table name") بدلا من 
odate = #3/28/2021# باعتبار your filedDate name هو اسم حقل التاريخ في الجدول و your table name هو اسم الجدول

عليكم السلام
مع ان تصميم الجدول سيء ويوجد عليه كثير من الملاحظات
ولكني احببت ان اضع هنا حل في تطبيق فكرة السؤال ، وذلك لدلالة العنوان
فقمت بتغيير المسميات الى حروف لاتينية حتى تتمكن وغيرك ممن يمر من هنا قراءة الجملة البرمجية بصورة صحيحة
ولو تم تضمين المسميات العربية لما تمكن احد من قراءة الكود بالصورة الصحيحة ، حيث ستختلط المسميات يمينا ويسارا 
فنصيحتي الا تستخدم الحروف العربية عند تصميم الجداول وتجنب المسافات الخالية بين الكلمات
الحل وحدة نمطية ترجع بآخر قيمة من الرصيد بالاعتماد على اعلى رقم في مفتاح الجدول
ثم نضع هذه الدالة في القيمة الافتراضية لحقل الباقي من التمويل
Public Function rsdsabq() Dim i As Integer i = DMax("id", "tbl_tmweel") rsdsabq = DLookup("raseed", "tbl_tmweel", "id=" & i) End Function  
الرصيد.accdb

عليكم السلام
مع ان تصميم الجدول سيء ويوجد عليه كثير من الملاحظات
ولكني احببت ان اضع هنا حل في تطبيق فكرة السؤال ، وذلك لدلالة العنوان
فقمت بتغيير المسميات الى حروف لاتينية حتى تتمكن وغيرك ممن يمر من هنا قراءة الجملة البرمجية بصورة صحيحة
ولو تم تضمين المسميات العربية لما تمكن احد من قراءة الكود بالصورة الصحيحة ، حيث ستختلط المسميات يمينا ويسارا 
فنصيحتي الا تستخدم الحروف العربية عند تصميم الجداول وتجنب المسافات الخالية بين الكلمات
الحل وحدة نمطية ترجع بآخر قيمة من الرصيد بالاعتماد على اعلى رقم في مفتاح الجدول
ثم نضع هذه الدالة في القيمة الافتراضية لحقل الباقي من التمويل
Public Function rsdsabq() Dim i As Integer i = DMax("id", "tbl_tmweel") rsdsabq = DLookup("raseed", "tbl_tmweel", "id=" & i) End Function  
الرصيد.accdb

عليكم السلام
مع ان تصميم الجدول سيء ويوجد عليه كثير من الملاحظات
ولكني احببت ان اضع هنا حل في تطبيق فكرة السؤال ، وذلك لدلالة العنوان
فقمت بتغيير المسميات الى حروف لاتينية حتى تتمكن وغيرك ممن يمر من هنا قراءة الجملة البرمجية بصورة صحيحة
ولو تم تضمين المسميات العربية لما تمكن احد من قراءة الكود بالصورة الصحيحة ، حيث ستختلط المسميات يمينا ويسارا 
فنصيحتي الا تستخدم الحروف العربية عند تصميم الجداول وتجنب المسافات الخالية بين الكلمات
الحل وحدة نمطية ترجع بآخر قيمة من الرصيد بالاعتماد على اعلى رقم في مفتاح الجدول
ثم نضع هذه الدالة في القيمة الافتراضية لحقل الباقي من التمويل
Public Function rsdsabq() Dim i As Integer i = DMax("id", "tbl_tmweel") rsdsabq = DLookup("raseed", "tbl_tmweel", "id=" & i) End Function  
الرصيد.accdb

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

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

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

تعديل بسيط  ان شاء الله يكون هو  المتقن والمعتمد
On Error Resume Next Dim i As Integer Dim ii, j As Long Dim rs1, rs2 As Dao.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT TAB.MNO, TAB.TNO FROM TAB WHERE TAB.TYPE1 =1 ORDER BY TAB.TNO") Set rs2 = CurrentDb.OpenRecordset("SELECT TAB.MNO, TAB.TNO FROM TAB WHERE TAB.TYPE1 >1 ORDER BY TAB.TNO") rs1.MoveLast: rs1.MoveFirst For i = 0 To rs1.RecordCount Step 0 i = i + 1 rs1.Edit rs1!MNO = i rs1.Update rs1.MoveNext Next i rs2.MoveLast: rs2.MoveFirst ii = 10000 For ii = 10000 To (rs2.RecordCount + ii) Step 0 ii = ii + 1 rs2.Edit rs2!MNO = ii rs2.Update rs2.MoveNext Next ii Set rs1 = Nothing Set rs2 = Nothing  

عليكم السلام
سؤالك عام ، واجابته ستكون عامة
ان اردت اظهار جميع الموظفين كقائمة في تقرير  يجب عليك استخدام استعلام تجميعي خلال شهر  تعمل فيه مقارنة بين ساعة الحضور المطلوبة ووقت الحضور الفعلي
وان اردت الاستفسار عن موظف معين خلال يوم محدد  فسطر  برمجي يقوم بالمهمة
اخي الكريم حتى تحصل على اجابة سريعة من الأعضاء  يلزمك رفع مرفق يشتمل على جدول الحضور  وغيره من الكائنات التي تريد التعديل عليها

البيانات في المرفق ليست حقيقية تماما
فحقل النوع يشتمل على الدخول فقط  "I"  ولا يوجد الخروج
لذا قمت بالتعديل على اليوزر  رقم 2  وعدلت في حقل النوع فوضعت توقيعين متتالين خروج
الآن سيكون مصدر البيانات الأساسي هو الاستعلام  qry_In_Out  بدلا من الجدول 
طبعا سوف يتم التصفية على اول توقيع خلال يوم محدد سواء دخول او خروج
انظر في المرفق 
 
att2000_1.rar

بالتأكيد السبب هو  كثرة الأوامر داخل الاستعلام
واسهل طريقة هي تجزئة الاستعلام
انظر  مثالك بعد التعديل
نسبة الاستهلاك1 .rar

تفضل .. اتمنى يكون هو مطلوبك
Upالملاك 2021.rar

تفضل .. اتمنى يكون هو مطلوبك
Upالملاك 2021.rar

تفضل .. اتمنى يكون هو مطلوبك
Upالملاك 2021.rar