AlwaZeeR

Private Sub Manul_AfterUpdate() If IsNull(Me.Manul.Value) Or Me.Manul.Value = "" Then Me.Manul.BackColor = RGB(255, 255, 255) Else Me.Manul.BackColor = RGB(255, 255, 0) End If End Sub  

وعليكم السلام ورحمة الله وبركاته
على ما يبدو ان المشكلة تكمن في تنسيق التاريخ
UPDATE fordate SET fordate.ada = DSum("pamounts", "amanat", "pdate<=#" & Format([ta], "dd/mm/yyyy") & "#"); جرب هذا الاستعلام
 

مشروع.accdb

وعليكم السلام ورحمة الله وبركاته
طبعا ينفع عزيزي
 
Function GetTotalSum(tableName As String, fieldName As String) As Double Dim db As DAO.Database Dim rs As DAO.Recordset Dim sql As String Dim totalSum As Double Set db = CurrentDb sql = "SELECT SUM([" & fieldName & "]) AS TotalSum FROM [" & tableName & "]" Set rs = db.OpenRecordset(sql) If Not rs.EOF Then totalSum = rs!TotalSum Else totalSum = 0 End If rs.Close Set rs = Nothing GetTotalSum = totalSum End Function ويمكنك استدعاءها هكذا: 

 
Sub TestGetTotalSum() Dim total As Double total = GetTotalSum("Orders", "OrderTotal") MsgBox "Total Sum of OrderTotal: " & total End Sub  

اضافة لما تفضل الاخ محمد ضع حدث اغلاق النموذج بعد فتح التقرير وفي التقرير عند الاغلاق ضع حدث فتح النموذج
 

هذه طريقة مختصرة اكثر
 
test (1)w.accdb

تفضل
كود من ChatGpt
 
Null0.accdb

وعليكم السلام ورحمة الله وبركاته
=Int([minlate]/60) & ":" & Format([minlate] Mod 60,"00")  

وعليكم السلام ورحمة الله وبركاته
DoCmd.OpenForm "Invoicepay", , , "[Idinv]=" & Me.ID  

وعليكم السلام ورحمة الله وبركاته
=Sum(DSum("[payment_id]","[daily]","[code]=" & [code]))  

وعليكم السلام ورحمة الله وبركاته
جرب هذه محاولة
ضع الكود في وحدة نمطية واستدعها ضمن الحقل الذي تريد ان يظهر فيه الرقم
Public Function AlPhaNumber(AutoNum As Integer) As String Dim SallomN As String Select Case AutoNum Case 1 To 1000 SallomN = "A" & AutoNum Case 1001 To 2000 SallomN = "B" & AutoNum Case 2001 To 3000 SallomN = "C" & AutoNum Case Else SallomN = "No Number" End Select AlPhaNumber = SallomN End Function  

من باب الاختصار في كتابة الأوامر وعدم تكرارها
مثال:
لو اردت تطبيق امر من النموذج الرئيسي للفرعي يكتب بدونها هكذا:
 
Forms!MainForm!SubFormName.Form.AllowEdits = Not Forms!MainForm!SubFormName.Form.AllowEdits.AllowEdits Forms!MainForm!SubFormName.Form.AllowEdits.Requery Forms!MainForm!SubFormName.Form.AllowEdits.SetFocus Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Caption = "Test" Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Enabled = False ويكتب باستخدامها هكذا ولك حرية الاختيار 
انا عن نفسي استخدمها 
With SubFormName.Form .AllowEdits = Not .AllowEdits .Requery .SetFocus .cmdName.Caption = "Test" .cmdName.Enabled = False End With المثال السابق 
1- لتحرير نموذج فرعي
2- عمل تحديث للنموذج الفرعي
3- نقل التركيز الى النموذج الفرعي
3- تغيير اسم زر امر الى تست في النموذج الفرعي
4- الغاء التمكين للزر السابق في النموذج الفرعي
ويتم الاستخدام بالطريقة السابقة حسب الحاجة التي تريدها
ولا يتم التطرق لها لان الاغلب يستخدمها في صمت ولا تشكل مشكلة 
::
 

وعليكم السلام ورحمة الله وبركاته
بما ان الاعمدة معروفة الاسم ولا تزيد ولا تنقص
تستطيع تثبيت اسمائها في نفس الاستعلام الجدولي
هكذا
 

استعلام جدولي.accdb

وعليكم السلام ورحمة الله وبركاته
ضع في مربع نص
=Sum("[الرقم]")  
xxx.accdb

طريقة أخرى اكثر شمولية 
ضع في حدث عند الخروج للحقل
If Not IsNumeric(Me.YrField) Then MsgBox "القيمة المدخلة ليست رقم" Cancel = True End If Select Case Len(YrField) Case 12 Case Else MsgBox ("يجب أن يحتوي الحقل على 12 رقم") Cancel = True End Select 🙂
 

وعليكم السلام ورحمة الله وبركاته
تابع الصور واي استفسار لا تترد 
بعد الانتهاء من التطبيق تجد ملف اسمه أمان في المكان الذي اخترته من الصورة الأخيرة
هذا الملف يتم استدعاؤه عن طريق وضع هذا الكود تحت زر امر  في مكان خاص بك في أي نموذج
DoCmd.RunCommand acCmdWorkgroupAdministrator بعد ذلك تضع الاسم الذي تم عمله به
وهنا في الصور
Khalf
بعد الدخول نستطيع تعديل الاذونات كما نريد
الصور تقريبا مرتبة حسب الخطوات
🙂
 
 













 

بالاعتماد على نفس الكود الذي وضعته لك في مشاركة سابقة مع بعض التعديلات
تفضل
Dim File_Path As String Dim File_Name As String Dim Name_Path As String Dim Fso As Object Dim NewPath As String Set Fso = CreateObject("scripting.filesystemobject") File_Path = Application.CurrentProject.Path & "\CONTACT\" NewPath = Application.CurrentProject.Path & "\CONTACT\Old\" File_Name = Dir(File_Path & "\*.*") Name_Path = File_Path & File_Name If InStr(File_Name, crn) > 0 Then MsgBox (" * تم ايجاد تطابق بين رقم كذا والملف - سيتم نقله * ") Fso.MoveFile Name_Path, NewPath Else MsgBox (" * لا يوجد ملفات لنقلها * ") End If  
MoveFile.mdb CONTACT.rar

تفضل
واي استفسار لا تتردد
 
5555.pdf account.mdb

ضع تحت حدث عند تحرك قرص الماوس
في النموذج الرئيسي
الكود التالي
With Me![Request].Form If .RecordsetClone.RecordCount > 0 Then DoCmd.GoToRecord , , acNewRec Else End If End With  

تفضل 
هذه هي النتيجة
 

 
db1_1.rar

وعليكم السلام ورحمة الله وبركاته
طبعا فيه يا أستاذ عبد اللطيف
كنت استخدم هذه الطريقة قبل اكثر من 15 عام
الطريقة:
عمل ملف ما بصيغة مثلا
Dll
ووضعه في السيستم او أي مكان في الجهاز 
بمعنى يتوه داخل الجهاز ولا يعرف مكانه الا صاحب البرنامج
وعند فتح النموذج الرئيسي للبرنامج نستخدم امر اذا كان هذا الملف موجود في المكان الذي حددناه افتح البرنامج
واذا لم يكن موجود اظهر مثلا رسالة تفيد بان البرنامج قد تم نقله الى جهاز اخر
وسيتم اغلاقه
🙂
 

وعليكم السلام ورحمة الله وبركاته
تفضل
 
كشف.accdb

تفضل
 
TestDBv.mdb

وعليكم السلام ورحمة الله وبركاته
لضبط حجم النموذج المنقسم اتبع ما يلي
تأكد ان تغيير الحجم تلقائي 
يجب ان تكون لا
كما في الصورة
اذا لم تفلح هذه الطريقة
استخدم الطريقة التالية
اضبط الاعدادات المناسبة للنموذج المنقسم الخاص بك
ثم اضغط على الدائرة في اعلى الاوفيس
واختر حفظ من داخلها 
كما في الصورة الثانية
::
تحياتي

وعليكم السلام ورحمة الله وبركاته
اسهل طريقة 
أنشئ حقل في جدول 
L
الخاص بك
وليكن اسمه 
DelChk
واجعل نوع البيانات فيه رقم
والقيمة الافتراضية 
false
الان اذهب الى النموذج الخاص بالجدول وهو عندك 
L
وانشئ زر أمر وضع في الحدث الخاص به الكود التالي
CurrentDb.Execute "DELETE * FROM L WHERE [delchk] = true" Me.Requery تفضل هذه قاعدتك عليها مطبق عليها ما ذكرت لك
 
Delchkrecord.accdb