أبوبسمله

وعليكم السلام
هكذا
Call Form_FC.ccc بالتوفيق

السلام عليكم ورحمه الله وبركاته
كيفك اخى ازهر كل عام وانت طيب
اتفضل ان شاء الله يكون ما تريد
بالتوفيق
Q2_1.accdb

السلام عليكم ورحمه الله وبركاته
كل عام وانتم بخير
مشاركه مع اخى @kkhalifa1960 جزاه الله خيرا
اتفضل ان شاء الله يكون ما تريد بطريقه اخرى
بالتوفيق
PRindex_1.accdb

وعليكم السلام ورحمه الله وبركاته
وكل عام وانت وجميع الامه الاسلاميه بخير
اتفضل
بالتوفيق
DATE_1.accdb

السلام عليكم
اتفضل
تم التعديل ع الكود التالى فقط بايقاف السطر الاخير
Private Sub ID_DblClick(Cancel As Integer) 'Dim teltoedit As Long 'teltoedit = Me.ID.Value DoCmd.OpenForm "telseditor", acNormal, , "[id]=" & ID 'DoCmd.SearchForRecord acDataForm, "telseditor", acFirst, "[id]=" & ID End Sub بالتوفيق
dbtest.rar

السلام عليكم ورحمه الله وبركاته
مشاركه مع اخى @Foksh جزاه الله خيرا
اتفضل استخدم التعديل التالى
IIf(Len([اسم الخامة] & "")=0;"";Nz(DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]);0)) والاصل قبل الاضافه
DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]) والخطأ لان اسم الخامه يوحى بانه نص فتم كتابه المعيار على انه نص وهو فى الحقيقه رقم
بالتوفيق

السلام عليكم
مشاركه مع اخوانى واساتذتى جزاهم الله خيرا
اتفضل ان شاء الله يكون ماتريد
بالنسبه للتعديلات تمت فى اضافه المتغيرات التاليه فى الوحده النمطيه UserModule
User_Name User_ID ثم فى زر الدخول فى الفورم frm-UserLogon  تم اسناد القيم للمتغيرات
User_Name = Me.user User_ID = Me.user.Column(1) ثم فى فورم MAIN عند الفتح تم اسناد قيم المتغيرات للحقول
Me.Text17 = User_ID Me.us = User_Name بالتوفيق
test AMA.rar

وعليكم السلام
اتفضل ان شاء الله يكون ما تريد
sum.accdb

وعليكم السلام
اتفضل اخى @حسين العربى
=IIf(Len([fary_1]![ddd] & "")=0;0;[fary_1]![ddd]) بالتوفيق
test3.accdb

اتفضل الملف مره اخرى
اختار اسم الماده متكتبش كودها
 
2025_1.accdb

الحمدلله الذى بنعمته تتم الصالحات وجزاهم الله خيرا اخوانى واساتذتى فمنهم تعلمت ومازلت اتعلم
مرفق تعديل آخر لكى نحافظ ع تصميم الجدول كما هو لانى كنت قد اضفت حقل لترقيم السجلات كمجموعات
باالنسبه للطريقه
انشات استعلام qry للحصول على اللجان والصفوف والحصوب على القيم الفريده
SELECT DISTINCT stu_gloos.lagna_no, stu_gloos.alsofof_code FROM stu_gloos WHERE ((Not (stu_gloos.lagna_no) Is Null)); قمت بانشاء استعلام qryU للحصول على عدد اللجان لكل صف
SELECT qry.lagna_no, Count(qry.lagna_no) AS Countlagna_no FROM qry GROUP BY qry.lagna_no; قمت بالدخول لاستعلام qry_reports فى وضع التصميم واضافه الاستعلام  qryU  وقمت بعمل علاقه بينهم عن طريق رقم اللجنه
قمت باضافه الحقل Countlagna_no من الاستعلام qryU   كما بالصوره التاليه

قمت بانشاء التقرير باستخدام المعالج وتحديد مستويات التجميع بناء على الحقل الجديد المضاف ثم اللجنه
هذا ما قمت بعمله فالمرفق الاخير بهذه المشاركه والاستغناء عن تعديلات الجدول واستعلام التحديث
بالتوفيق
 
كشف ملاحظة حسب الصف واللجان -(2).accdb

اتفضلtest1.accdb
 

السلام عليكم
مشاركه مع اخى واستاذى @Eng.Qassim جزاه الله خيرا
هل هذ ما تريد

Me.BEBY_Age = Me.yes & " سنه " & Me.mos & " شهر " & Me.das & " يوم "  
برنامج حضانة.accdb

السلام عليكم
مشاركه مع اخى واستاذى @Eng.Qassim جزاه الله خيرا
هل هذ ما تريد

Me.BEBY_Age = Me.yes & " سنه " & Me.mos & " شهر " & Me.das & " يوم "  
برنامج حضانة.accdb

السلام عليكم
مشاركه مع اخى واستاذى @Eng.Qassim جزاه الله خيرا
هل هذ ما تريد

Me.BEBY_Age = Me.yes & " سنه " & Me.mos & " شهر " & Me.das & " يوم "  
برنامج حضانة.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا
مهو تغيير الايبى يعنى انقطع الاتصال
موضحتش
 

واياكم اخى
فيه خطوه لابد من توضيحها اولا فالاستعلام رئيس قمت باضافه حقل اسمه NumJob لإضافه به رقم حسب المسمى الوظيفى لتسهيل عمليه الفرز وجعل رئيس اللجنه بالاعلى
NumJob: Switch([job2]='رئيس لجنة';1;[job2]='مراقب أول';2;[job2]='مراقب';3;[job2]='ادارى';4;صواب;5) ثم تم عمل التقرير بالطريقه العاديه عن طريق الويزارد واضافه فرز عن طريق الحقل الجديد NumJob
قم بعمل تنسيقاتك واضافاتك بالتقرير السابق لك كما تريد
بالتوفيق
توزيع1.accdb

واياكم اخى
فيه خطوه لابد من توضيحها اولا فالاستعلام رئيس قمت باضافه حقل اسمه NumJob لإضافه به رقم حسب المسمى الوظيفى لتسهيل عمليه الفرز وجعل رئيس اللجنه بالاعلى
NumJob: Switch([job2]='رئيس لجنة';1;[job2]='مراقب أول';2;[job2]='مراقب';3;[job2]='ادارى';4;صواب;5) ثم تم عمل التقرير بالطريقه العاديه عن طريق الويزارد واضافه فرز عن طريق الحقل الجديد NumJob
قم بعمل تنسيقاتك واضافاتك بالتقرير السابق لك كما تريد
بالتوفيق
توزيع1.accdb

واياكم اخى
فيه خطوه لابد من توضيحها اولا فالاستعلام رئيس قمت باضافه حقل اسمه NumJob لإضافه به رقم حسب المسمى الوظيفى لتسهيل عمليه الفرز وجعل رئيس اللجنه بالاعلى
NumJob: Switch([job2]='رئيس لجنة';1;[job2]='مراقب أول';2;[job2]='مراقب';3;[job2]='ادارى';4;صواب;5) ثم تم عمل التقرير بالطريقه العاديه عن طريق الويزارد واضافه فرز عن طريق الحقل الجديد NumJob
قم بعمل تنسيقاتك واضافاتك بالتقرير السابق لك كما تريد
بالتوفيق
توزيع1.accdb

وعليكم السلام استاذ @Amr Ashraf
جرب ووافنى بالنتيجه
 
Amr.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا
ولا يهمك اخى بالنسبه للزر احذفه فليس له اى داعى كنت قد قمت بكتابه الكود تحته ولكن لما نقلت الاكواد نسيت احذفه
بالتوفيق

السلام عليكم
مشاركه مع اخى الفاضل @ابو محمد 316 جزاه الله خيرا 💐
اتفضل اخى @mrbakr ان شاء الله يكون ما تريد
Private Sub Command405_Click() Dim strSql As String Dim TempQdf As QueryDef Dim db As DAO.Database Set db = CurrentDb strSql = "Select * from الموظفين" If Me.Fr_U.Form.Filter <> "" Then strSql = strSql & " WHERE " & Me.Fr_U.Form.Filter End If Set TempQdf = db.CreateQueryDef("ExportFiltered", strSql) DoCmd.OutputTo acOutputQuery, TempQdf.Name, acFormatXLSX, "", True, "", , acExportQualityPrint db.QueryDefs.Delete TempQdf.Name 'DoCmd.OutputTo acOutputQuery, "u", acFormatXLSX, "", True, "", , acExportQualityPrint End Sub بالتوفيق
123_1.accdb

وعليكم السلام استاذ @ازهر عبد العزيز
مجرد فكره ربما تنفعك

بالتوفيق
qm.accdb

وعليكم السلام
اتفضل ان شاء الله يكون ما تريد
NSave: Right([save];Len([save])-Len(Left([save];1)))
بالتوفيق
onevalue (1)(1).accdb

مشاركه مع اخى واستاذى @محمد أبوعبدالله
جرب التعديل كالتالى بتغيير Or الى And
ووافنا بالنتيجه
If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# And Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then Me.sDate = Date - 1 Else Me.sDate = Date End If بالتوفيق