-
Posts
6,503 -
تاريخ الانضمام
-
Days Won
167
Community Answers
-
ابو جودي's post in مساعدة في ترحيل البيانات الى جدول اخر و استعادتها مرة اخر was marked as the answer
نعم استاذ قم بعمل استعلام اضافة كما بالمثال المرفق
-
ابو جودي's post in مساعدة في إظهار نماذج فرعية وإخفائها was marked as the answer
ونقلا عن الاستاذ @ناقل
اتفضل المرفق
MusndWZwayid001(2).accdb
-
ابو جودي's post in مساعدة في تعديل كود ترحيل بيانات was marked as the answer
اتفضل وهذا مرفقكم بعد التعديل
valu (1).accdb
مفيش أي تعب تحت امر حضرتك يا اهلا بيك
-
ابو جودي's post in طريقة لظهور القيمة المساوية للحقل was marked as the answer
اتفضل
مساحات (1).accdb
-
ابو جودي's post in كورس الفيجوال بيسك دوت نت 2019 | من الصفر حتي الاحتراف was marked as the answer
شرح كورس الفيجوال بيسك دوت نت 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
-
ابو جودي's post in مساعدة في اضافة ساعة الكترونية الى نمودج يحتوي عداد وقت was marked as the answer
اضف هذا السطر من الكود الى حدث الوقت
txtClock = Format(Now, "HH:nn:ss am/pm") واضف الى النموذج مربع نص وغير اسمه الى txtClock
-
ابو جودي's post in مساعدة في تثبيت حجم الخط في النمودج was marked as the answer
طبعا ممكن تعديل الكود للمرور على الكائنات التى تريدها انت على النموذج
المرفق تبعك لم يكن يحتوى على عناصر الا من النوع Label لذلك قمت بعمل الكود تبعا لما بالمرفق
-
ابو جودي's post in مساعدة في تغيير موضع حقل في النمودج من خلال الازرار was marked as the answer
yx-2.mdb
-
ابو جودي's post in مناقشة .. هل يمكن ان يستدعى الاستعلام بيانات خاطئة ؟ was marked as the answer
وعليكم السلام ورحمة الله وبركاته
طبعا الاستعلام كاستعلام لن يخطى فلن تأتيك منه الا النتائج المنطقية طبقا لأسلوب بنائه
ولكن لا تنسى وجود lag network والذى بدوره قد يسبب ظهور الأخطاء خاصة فى كبر حجم البيانات ومعالجتها فى الاستعلامات بالطرق المختلفة .. والله اعلم
-
ابو جودي's post in عدم تجزئة الاسم الأخير was marked as the answer
طيب وانت زعلان ليه كده
اتفضل يا سيدى فى استعلام اهون
Split Full Name (2).mdb
-
ابو جودي's post in تجاهل المسافات فى البحث was marked as the answer
هو انت من الناس اللى محدش يتوقعها
هاهاهاهاهاها زعلان انت كده بقه واللا فرحان
-
ابو جودي's post in هدية متواضعة : مربع اختيار غير منضم فى نموذج مستمر ☺ was marked as the answer
إتفضل يا سيدى
MultiSelectInContinuousForms (V3).mdb
-
ابو جودي's post in توقف زر فتح نافذة فتح ملف بعد تركيب Access 64 bit was marked as the answer
ولا يهمك اتفضل
انا جربت المرفق وكل شئ تمام
اعتذر انا بس تعبان شوى ومش مركز
تفعيل وإلغاء الشفت.mdb
-
ابو جودي's post in طلب تحويل أسماء الشهور العربية في الكود إلى الترميز العالمي was marked as the answer
اتفضل ☺️
UmAlQuraUp.mdb
-
ابو جودي's post in كيفية منع المستخدم فى قاعده البيانات ان يطلع على سجلات المستخدم الاخر اثناء البحث فى النموذج او التنقل بزر السابق او الاخير was marked as the answer
خلاص قول لكل مستخدم ما تبصش فى قاعدة اخوك اللى جنبك 😄
هات مرفق يا قمر
-
ابو جودي's post in طلب مساعدة في اضافة اصناف تلقائيا مثل الباركود was marked as the answer
تم التعديل على الكود بصيد الخطأ فى حالة تم الحاق البيانات من قبل
كما تم التعديل على الجدول 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
-
ابو جودي's post in اريد رقم صحيح was marked as the answer
طيب بص
دالة 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
وانظر هنا
-
ابو جودي's post in إنشاء شريط تقدم - Progress Bar was marked as the answer
طيب اتفضل جرب يا مولانا
BackUp V2.accdb
-
ابو جودي's post in استدعاء يوم الانصراف في نفس يوم الدخول؟ was marked as the answer
الشرح
- الاستعلام qryUnionDate هو استعلام توحيد وتم توحيد تواريخ الحضور والانصراف من الجدولين
- الاستعلام qryAttendance تم ادارج كل من جدول الحضور والانصراف واستعلام التوحيد السابق وتم عمل
علاقة رأس بأطراف من استعلام توحيد التاريخ من حقل التاريخ رأس الى كل من حقول التاريخ بالجدولين أطراف
-
ابو جودي's post in فتح عدة نقارير بواسطة combobox was marked as the answer
النموذج FrmRapport
الحقل تم وضع كود فى بعد التحديث
CrntYear = txtYear ومربع السرد Nome_Report عند التفيير تم اضاقة السطر
CrntYear = txtYear وكذلك تم التعديل على هذا السطر
DoCmd.OpenReport stDocName, acViewPreview ', , "Year(date()) = " & CrntYear & "" لان كانه مشكلة بإلغاء ذلك الجزء منه
', , "Year(date()) = " & CrntYear & ""
-
ابو جودي's post in فتح عدة نقارير بواسطة combobox was marked as the answer
النموذج FrmRapport
الحقل تم وضع كود فى بعد التحديث
CrntYear = txtYear ومربع السرد Nome_Report عند التفيير تم اضاقة السطر
CrntYear = txtYear وكذلك تم التعديل على هذا السطر
DoCmd.OpenReport stDocName, acViewPreview ', , "Year(date()) = " & CrntYear & "" لان كانه مشكلة بإلغاء ذلك الجزء منه
', , "Year(date()) = " & CrntYear & ""
-
ابو جودي's post in فتح عدة نقارير بواسطة combobox was marked as the answer
النموذج FrmRapport
الحقل تم وضع كود فى بعد التحديث
CrntYear = txtYear ومربع السرد Nome_Report عند التفيير تم اضاقة السطر
CrntYear = txtYear وكذلك تم التعديل على هذا السطر
DoCmd.OpenReport stDocName, acViewPreview ', , "Year(date()) = " & CrntYear & "" لان كانه مشكلة بإلغاء ذلك الجزء منه
', , "Year(date()) = " & CrntYear & ""
-
ابو جودي's post in تعديل فى كود الوحدة النمطية was marked as the answer
استدل كود الوحدة النمطية بالاتى
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