Eng.Qassim

ربما هذا الموضوع يفيدك
 

وعليكم السلام استاذ احمد
بصراحة لم استطع العمل على ملفك لانه 32 بت
ارفق لك مثال وطبق عليه .. وان كان لديك اي استفسار فانا بالخدمة
اهم شي ان تختار من Design.... web Browser control
وتختار من ال tools المكتبة ... Microsoft Office 15.0 object library
 
pdf Display.rar

مشاركة مع اساتذتي
DELETE USER.id FROM USER WHERE (((USER.id) Not In (SELECT TOP 1 USER.id FROM USER)));  

هذا المثال البسيط للتوضيح فقط ...اما اذا كان التزيع بشكل دوري ..فالموضوع مختلف حيث يتم اضافة بعض المعايير
 
SUM.rar

تفضل
المستخلصات.rar

المفروض ان BE على سيرفر ...حتى لو انقطع احد FE فانه لايؤثر على البقية
ربما السيرفر موجود عند احد FE... وانقطاعه يؤثر على البقية ؟
 

وعليكم السلام
عملت المطلوب بالتفصيل في الاعمدة حتى تعلم ماهي الخطوات ..وطبعا يمكن الاختصار
انظر لحقل الساعات في الاستعلام
OVER TIME.rar

عملت لك نموذج ادخال التاريخ
جرب ووافني بالنتيجة
TEST_2022.rar

وعليكم السلام ورحمة الله وبركاته
في نموذج دخول المستخدم ولنفرض مربع نص اسم المستخدم txtUserName
ضع الكود التالي عند زر فتح الفورم الموجود في نموذج المستخدم
Dim TempUser As TempVars [TempVars]![TempUser] = Me.txtUserName.Value ثم ضع الكود التالي في حدث عند التحميل للفورم لديك
Me.txtUser = [TempVars]![TempUser] txtUser هو اسم مربع النص في الفورم لاظهار اسم المستخدم

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

اذا لم يفتح عندك البرنامج
اضف الكود التالي لاضافة الشهر والسنة ..
Dim rs As DAO.Recordset Dim db As DAO.Database Dim strNew As String Private Sub Combo130_Click() Set db = CurrentDb Set rs = db.OpenRecordset("جدول المرتبات") If rs.RecordCount <> 0 Then rs.MoveFirst While Not rs.EOF strNew = Me.Combo130.Value Me.Dirty = False rs.Edit rs.Fields("الشهر") = strNew rs.Update rs.MoveNext Wend End If rs.Close Me.Requery End Sub Private Sub السنة_Click() Set db = CurrentDb Set rs = db.OpenRecordset("جدول المرتبات") If rs.RecordCount <> 0 Then rs.MoveFirst While Not rs.EOF strNew = Me.السنة.Value Me.Dirty = False rs.Edit rs.Fields("السنة") = strNew rs.Update rs.MoveNext Wend End If rs.Close Me.Requery End Sub  

طيب جرب ان يكون indexed في حقل ال
id = Yes (Duplicates OK)
للجدول tblBounceEndService 

لحساب عدد السجلات في كل صفحة اعمل مربع نص في صفحة التقرير ..قم بتسميته مثلا txtPageCount
اجعل التنسيق له قياسي Format=standard

ثم قم بنسخ الاكواد التالية :
Option Compare Database Option Explicit Public intPageCount As Integer Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) intPageCount = intPageCount + 1 End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) txtPageCount = intPageCount intPageCount = 0 End Sub Private Sub Report_Open(Cancel As Integer) intPageCount = 0 End Sub  

وعليكم السلام اخي ابو هالة
سؤال بريء..انت شو جابك على هيك جدول وانت من الجزائر؟☺️
على كل حال ..يوجد نقص في قوس الغلق
IIf([mon]>0 And [days]>0;("الضريبة" & "=" & [text _bb] & "-" & [tax_old] & "=" & [text _bb]-[tax_old]);0) ثانيا انت محمل الجدول اكثر من طاقته في حقل محسوب وهذا مما لايفضله المبرمج..الجدول لديك فيه مشكلة ولايقبل اضافة اي حقل (لا اعلم لماذا)
اقتراحي ان تعمل استعلام للحقول المحسوبة وتضيف لها الكود اعلاه
انظر للمرفق بعد عمل ضغط واصلاح له لان كان حجمه كبير جدا
 
Database4.rar

وعليكم السلام
اجعل التنسيق الشرطي هكذا

InStr([notes2];"اعتذار") او يمكن عمل موديول يتم استدعاءه عند فتح النموذج مثلا ...لان طريقة التنسيق مطولة
Public Sub colCtrlReq(frm As Form) Dim setColour As String setColour = RGB(175, 175, 175) Dim ctl As Control For Each ctl In frm If ctl.ControlType = acTextBox _ Or ctl.ControlType = acListBox Then If InStr(ctl, "اعتذار") <> 0 Then ctl.BackColor = setColour End If End If Next ctl Set ctl = Nothing End Sub ويتم استدعاءه بهذه الطريقة
Call colCtrlReq(Me)  

وعليكم السلام
لو كنت مرفق مثال كان يسهل علينا بالوقت
انظر للمرفق
مقاس.accdb

1-    مصدر بيانات الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) هو الجدول Sales_Invoice_main

ولاحظ ان نوع البيانات  ل Sales_Invoice_No = Number

بينما الاستعلام customer account sub dollar Query الذي مصدر بياناته الجدول customer account sub dollar والذي نوع البيانات لرقم الفاتورة = short text

يجب هنا توحيد نوع البيانات ..

2-    اذا اردت الحاق نتائج الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) فيجب الحاقها الى الجدول customer account sub dollar وليس الى الاستعلام الناتج عنه

فأذا فتحت استعلام الحاق تفتح لك نافذة (الحاق الى جدول ) وليس الى استعلام ...

بالتوفيق يارب

وعليكم السلام
بصراحة لم افهم الغاية من الطلب لانه عادة مايكون هناك ربط بين الرئيسي والفرعي حتى تكون سجلات الفرعي تابعة لمفتاح فريد
لكن حسب طلبك ..انظر للمرفق
REPORT.accdb

هل هذا طلبك ؟
 
A1.accdb

وعليكم السلام
 
date1.accdb

وعليكم السلام
ضع الكود بالشكل التالي
stLinkCriteria = "[Sys_ID]=" & Me![Sys_ID] & "And [Sys_Year]=" & Me![Sys_Year] & "and [Sys_Type]='" & Me![Sys_Type] & "'"  

بصراحة  لم اطلع على البرنامج كاملا..الدالة    refereshعادة ماتعمل اهتزاز
 
ارجع لكودك  القديم

بصراحة  لم اطلع على البرنامج كاملا..الدالة    refereshعادة ماتعمل اهتزاز
 
ارجع لكودك  القديم

بصراحة  لم اطلع على البرنامج كاملا..الدالة    refereshعادة ماتعمل اهتزاز
 
ارجع لكودك  القديم

شاهد هذه الطريقة
 
 
حضور سائقي الملاكي 2022.rar