ابو جودي

نعم استاذ قم بعمل استعلام اضافة كما بالمثال المرفق

ونقلا عن الاستاذ @ناقل 
اتفضل المرفق 
MusndWZwayid001(2).accdb

اتفضل وهذا مرفقكم بعد التعديل 
 
valu (1).accdb
مفيش أي تعب تحت امر حضرتك يا اهلا بيك 

اتفضل 
 
مساحات (1).accdb

شرح كورس الفيجوال بيسك دوت نت 2019 | من الصفر حتي الاحتراف مجانا
دعمك يشرفنا الرجاء الاشتراك تفعيل الجرس🛎🛎 في القناه وليك للفيديـــــــوووو👍🎬
اثبت وجودك بالتعليــــــــــــق 🥰✍️
جروب الفيس بوك👇👇👇 https://www.facebook.com/groups/https...
واتساب 👇👇👇 http://wa.me/+201091090425
جروب التليجرام 👇👇👇 https://web.telegram.org/#/im?p=g4607...
انستجرام 👇👇👇 https://www.instagram.com/netsys_for_...
لمزيد من الاستفسارات لا تتردد بالاتصال 👇👇👇 00201091090425
كل الشكر و التقدير للمهندس محمد عبد الفتاح صاحب قناة اليوتيوب ومقدم الكورس
 
كورس فيجوال بيسك دوت نت 2019 - YouTube
 

اضف هذا السطر من الكود الى حدث الوقت
txtClock = Format(Now, "HH:nn:ss am/pm") واضف الى النموذج مربع نص وغير اسمه الى txtClock

طبعا ممكن تعديل الكود للمرور على الكائنات التى تريدها انت على النموذج
المرفق تبعك لم يكن يحتوى على عناصر الا من النوع Label لذلك قمت بعمل الكود تبعا لما بالمرفق 
 

yx-2.mdb

وعليكم السلام ورحمة الله وبركاته
طبعا الاستعلام كاستعلام لن يخطى فلن تأتيك منه الا النتائج المنطقية طبقا لأسلوب بنائه
ولكن لا تنسى وجود lag network والذى بدوره قد يسبب ظهور الأخطاء خاصة فى كبر حجم البيانات ومعالجتها فى الاستعلامات بالطرق المختلفة .. والله اعلم

طيب وانت زعلان ليه كده 
اتفضل يا سيدى فى استعلام اهون 
 
Split Full Name (2).mdb

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

إتفضل يا سيدى
MultiSelectInContinuousForms (V3).mdb

ولا يهمك اتفضل
انا جربت المرفق  وكل شئ تمام
اعتذر انا بس تعبان شوى ومش مركز
 
تفعيل وإلغاء الشفت.mdb

اتفضل ☺️
UmAlQuraUp.mdb

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

طيب شوف كده
PPPP (3).accdb

تم التعديل على الكود بصيد الخطأ فى حالة تم الحاق البيانات من قبل
كما تم التعديل على الجدول TableBarcodeBrExh  حتى لا يقبل التكرار 
On Error GoTo Err_CmdMove_Click If IsNull([FBarcod]) Then MsgBox (ChrW("1581") & ChrW("1602") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1575") & ChrW("1585") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1591") & ChrW("1604") & ChrW("1608") & ChrW("1576")) Me.FBarcod.SetFocus Else Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer Dim intQty As Integer Set db = CurrentDb Set rs = db.OpenRecordset("TableBarcodeBrExh") intQty = [Nom] For i = i To intQty rs.AddNew rs("ID") = Me![id] rs("itmCode") = Me![CodeItem] rs("NameItem") = Me![ItemNam] rs("NoBarcode") = Me![FBarcod] + i + 1 rs("Unets") = Me![Unet] rs("NoMat") = 1 rs("Praice") = Me![PrIce] rs("Qty") = 1 rs("Totals") = 1 rs.Update Next i rs.Close Me![Form_BarcodeBrExhSubform].Requery MsgBox "done" End If Exit_CmdMove_Click: Exit Sub Err_CmdMove_Click: If Err.Number = 3022 Then MsgBox (ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1575") & ChrW("1602") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1602") & ChrW("1576") & ChrW("1604")) Else MsgBox Err.Description Resume Exit_CmdMove_Click End If الحمد لله بس خلاص 
رقم الباركود - Update v1 .accdb

طيب بص
دالة CEILING
 
اولا هى دالة من دوال الاكسل وليس الاكسس
ولكن ممكن تحقيقها برمجيا لتناسب الاكسس من خلال الاكواد والمرفق يوضح ذلك
الشــــــــــــرح
الوصف
تُرجع رقماً تم تقريبه للأعلى، بعيداً عن الصفر، إلى أقرب مضاعف للوسيطة significance. على سبيل المثال، إذا كنت تريد تجنب استخدام السنت في الأسعار وكان سعر المنتج 4,42 ر.س.، فاستخدم الصيغة ‎=CEILING(4,42,0,05)‎ لتقريب السعر للأعلى إلى أقرب مبلغ صحيح.
بناء الجملة
CEILING(number, significance)‎
يحتوي بناء جملة الدالة CEILING على الوسيطتين التاليتين:
Number    مطلوبة. وهي القيمة التي تريد تقريبها.
Significance    مطلوبة. وهي المضاعف الذي تريد التقريب إليه.
ملاحظات
إذا كانت قيمة أي الوسيطتين غير رقمية، فستُرجع الدالة CEILING قيمة الخطأ ‎#VALUE!‎.
يتم تقريب القيمة للأعلى عند تعديلها بعيداً عن الصفر، وذلك بغض النظر عن علامة الوسيطة number. أما إذا كانت number عبارة عن مضاعف صحيح للوسيطة significance، فلن يحدث أي تقريب.
إذا كانت قيمة الوسيطتين number وsignificance سالبتين، فيتم تقريب القيمة للأدنى، بعيداً عن الصفر.
إذا كانت قيمة number سالبة وكانت قيمة significance موجبة، فيتم تقريب القيمة للأعلى باتجاه الصفر.
مثال
انسخ البيانات النموذج في الجدول التالي، والصقها في الخلية A1 في ورقة عمل Excel جديدة. لعرض نتائج الصيغ، حدد هذه الأخيرة، ثم اضغط على F2، ثم اضغط على Enter. عند الحاجة، يمكنك ضبط عرض العمود لرؤية البيانات كافة.
الصيغة
الوصف
  ‎=CEILING(2.5, 1)‎
تقريب 2,5 للأعلى إلى أقرب مضاعف لـ 1
3
‎=CEILING(-2.5, -2)‎
تقريب ‎-2,5 للأعلى إلى أقرب مضاعف لـ ‎-2
‎-4
‎=CEILING(-2.5, 2)‎
تقريب ‎-2.5 للأعلى إلى أقرب مضاعف لـ ‎-2
‎-2
‎=CEILING(1.5, 0.1)‎
تقريب 1,5 إلى أقرب مضاعف من لـ 0,1
1,5
‎=CEILING(0.234, 0.01)‎
تقريب 0,234 إلى أقرب مضاعف من لـ 0,01
0,24
امثلة

Ceiling(2.5, 1) equals 3
Ceiling(2.5) equals 3
Ceiling(-2.5, -2) equals -4
Ceiling(-2.5, 2) equals -2
Ceiling(1.5, 0.1) equals 1.5
Ceiling(0.234, 0.01) equals 0.24
 
وهذا المرفق  الذي يخص تحقيقها بالاكسس برمجيا لانها غير موجودة بالاكسس
Ceiling function.mdb
 
وهذا المثال بالحلين الدالة round    ,  الشرح السابق
Asum.accdb
وانظر هنا
 

طيب اتفضل جرب يا مولانا
 
 
BackUp V2.accdb

الشرح
- الاستعلام    qryUnionDate   هو استعلام توحيد وتم توحيد تواريخ الحضور والانصراف من الجدولين
- الاستعلام  qryAttendance    تم ادارج كل من جدول الحضور والانصراف واستعلام التوحيد السابق وتم عمل
علاقة رأس بأطراف من استعلام توحيد التاريخ من حقل التاريخ رأس الى كل من حقول التاريخ بالجدولين أطراف

النموذج FrmRapport
الحقل تم وضع كود فى بعد التحديث
CrntYear = txtYear ومربع السرد Nome_Report عند التفيير تم اضاقة السطر
CrntYear = txtYear وكذلك تم التعديل على هذا السطر 
DoCmd.OpenReport stDocName, acViewPreview ', , "Year(date()) = " & CrntYear & "" لان كانه مشكلة بإلغاء ذلك الجزء منه
', , "Year(date()) = " & CrntYear & ""  

النموذج FrmRapport
الحقل تم وضع كود فى بعد التحديث
CrntYear = txtYear ومربع السرد Nome_Report عند التفيير تم اضاقة السطر
CrntYear = txtYear وكذلك تم التعديل على هذا السطر 
DoCmd.OpenReport stDocName, acViewPreview ', , "Year(date()) = " & CrntYear & "" لان كانه مشكلة بإلغاء ذلك الجزء منه
', , "Year(date()) = " & CrntYear & ""  

النموذج FrmRapport
الحقل تم وضع كود فى بعد التحديث
CrntYear = txtYear ومربع السرد Nome_Report عند التفيير تم اضاقة السطر
CrntYear = txtYear وكذلك تم التعديل على هذا السطر 
DoCmd.OpenReport stDocName, acViewPreview ', , "Year(date()) = " & CrntYear & "" لان كانه مشكلة بإلغاء ذلك الجزء منه
', , "Year(date()) = " & CrntYear & ""  

استدل كود الوحدة النمطية بالاتى
Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1) Dim DB Dim rs As Recordset Set DB = CurrentDb Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _ & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2) Do If rs.AbsolutePosition = rs.BOF Then Horizontal = Format(rs(Feld2), "yyyy/mm/dd") Else Horizontal = Horizontal & " - " & Format(rs(Feld2), "yyyy/mm/dd") End If rs.MoveNext Loop Until rs.EOF rs.Close DB.Close Set rs = Nothing Set DB = Nothing End Function  

اتفضل 
 
البحث فى القران الكريم.zip