نجوم المشاركات

هل تقصد هكذا Dim i As Byte i = Day(Date) If i = 1 Or i = 2 Or i = 3 Or i = 14 Then Dim Msg, Style, Title, Response, PauseTime Dim Sh_Msgbox As Object PauseTime = 5 'Seconds Msg = "الشاشة ستغلق تلقائيا بعد 5 ثوان " Title = "الوقت انتهى" Set Sh_Msgbox = CreateObject("WScript.Shell") Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title) End If

الفرق بين المحترف والمبتدء مثلي هو زيادة عدد اسطر الكود التي ليس لها داعي ☺️ لكنها مفيدة في التعود على الحلقات التكرارية مشاركة مع استاذي ابو خليل Private Sub Form_Load() Dim i As Integer Dim myDate As Date myDate = DateSerial(Year(Date), Month(Date), Day(Date)) i = Day(Date) For i = 1 To 5 If myDate = DateSerial(Year(Date), Month(Date), i) Then MsgBox "مرحبا" End If Next End Sub

عليكم السلام Dim i As Byte i = Day(Date) If i = 1 Or i = 2 Or i = 3 Or i = 4 Then MsgBox "ضع ما تريد توضيحه هنا" End If Day(Date) يرجع رقم اليوم من التاريخ الافتراضي يمكنك استبدال Date باسم حقل التاريخ عندك واضبط الحدث عند تحميل النموذج مثلا او اي حدث تراه مناسبا

السلام عليكم..تفضل ...الملف ..والكود المستخدم الخلطة.xlsm Sub حفظ_بي_دي_اف() Dim fName As String Application.ScreenUpdating = False With Worksheets("main") fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "d:\" & " " & Cells(5, 4).Text & Nombre & " " & QualityxlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Application.ScreenUpdating = True End Sub

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

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

خطرت في بالي فكرة Dim myPercent As String If Left([IndicatorType], 4) = "نسبة" Then myPercent = Format(Me.AnnualTargetY1 / 100, "Percent") Me.AnnualTargetY1 = myPercent End If

مشكور استاذ : محمد احمد لطفى على المعلومة القيمة : بارك الله فيك تابعت المثال وهو حل جيد التحويل من : DD/MM/YYYY الى YYYY/MM/DD حتى يصبح التاريخ مقروء بالعربي

الان فهمت السؤال من جواب استاذ @Moosak اثار الشيخوخة بدت واضحة عندي

احسنت اخى الكريم سلمت يداك بارك الله فيك تقبل احترامى وخالص الدعاء من اخيك

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

استاذى ومعلمى / @احمد الفلاحجي شوف استاذى انا طبقت الكود على برنامجى ولكن غيرت شويت حاجات عشان يمشى مع البرنامج ولكن انا جربت كلام المهندس / @Eng.Qassim ولقيت انه كلامه وكلامك صح من حيث لا داعى لعمل جدول جديد للنواقص وفعلا عملت استعلام الوارد والمنصرف والموجود الفعلي ونقارنه بحد الطلب وكله طلع تمام اشكرك استاذى ابو بسمله ـ كما اشكر المهندس / قاسم جزاكم الله كل خير

أنظر هنا أخي أبو هالة 🙂☝️ ولتسهيل العمل على دالة DCOUNT استخدم هذه الأداة الجميلة 😄👇

إخوتي في الله؛ رُوّاد موقع أوفيسنا المُباركون؛ فيما يلي كتابٌٌ نافع؛ أرجو أن ننتفع به جميعًا. عُنوان الكتاب: إهداء ثواب العمل للميّت المُسلم. المؤلّف: أ.د. محمد بن فهد بن عبدالعزيز الفريح. من هُنــــــا. المصدر/ مكتبة صيد الفوائد. في أمان الله.

وعليكم السلام تفضل ... وهذا فيديو أيضاً للتوضيح projet2.xlsx

ولا يهمك اخى شوف يجب ان يكون السجلات المتاحه للتعديل فالجدول تحمل القيمه نعم اى مؤشر على حقل الشيك بوكس انظر الصوره وفى اعدادت هذا الحقل بالجدول نجعل القيمه الافتراضيه نعم لجميع السجلات المدخله اما السجلات الموجوده بالجدول يمكنك عمل استعلام تحديث لتحديثها دفعها واحده لنعم وعند تشغيل الفورم سيتم تحديث القيم التى اقل من شهر من يوم 1-5 الان ع حسب الاكواد انظر الصوره بالتوفيق

وعليكم السلام ولكن سأرد أيضاً بدون ملف .. فلنفترض الرقم 5 موجود بالخلية A1 فستكون المعادلات كالتالى : B2 =MROUND($A$1/$A$1,1) أما معادلة الخلية C1 ستكون سحباً للنهاية كالتالى : =IF(SUM($B$1:B1)=>$A$1,"",MROUND($A$1/$A$1,1))

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

وعليكم السلام ورحمة الله وبركاته اجعل نوع الحقل نص بالجدول ثم املأه بأي شىء ارقام او نسبة مائوية لن يضرك من ذالك شىء وان كان الأمر متعلق بعمليات حسابية فدوال تحويل الأنواع مثل (Cint - Cbyte- Cduble) ستحل لك الاشكال ان شاء الله ربما أخطأت في كتابة بعض اسماء الدوال لأني بعيد عن الأكسس الآن تأكد من مسميات هذه الداول مرة أخري وجزاكم الله عنا خيرا

كنت مستمتع جدا معك أخي أبو هالة .. لك تحياتي 😊

@Moosak كنت صبوراً جداً مع طلبي ولم تمل او تكل لك مني كل الاحترام والتقدير استاذي الفاضل الاجابة 100% شكراً لك

افتح على وضع التصميم اخى وضع التنسيق التالى DD/MM/YYYY بالتوفيق ان شاء الله

من تنسيق الخلية فى الجدول اجعله d/m/yyyy or dd/mm/yyyy حسب ما تريد 🚋 test.mdb

وهذا ما نصبوا اليه دعوه صالحه انت عندك فالجدول تواريخ 2022/05/14 ومتاح التعديل فيها ومتاح تعديلات لشهر 5 بالكامل الى يوم 9-6-2022 فالكود انا معتمد ع تاريخ الجهاز فجلب التواريخ وتحديث الشيك بوكس بالجدول للقيمه لا ارجو ان اكون وضحت لك ما سوف تجرب اذا حابب تجرب اغلق الفورم وغير تاريخ الجهاز الى يوم 5-6-2022 وجرب التعديل فى تواريخ شهر 5 ثم اغلق الفورم وغير تاريخ الجهاز ليوم 10-6 -2022 وجرب التعديل على تواريخ شهر 5 مره اخرى بالتوفيق

اخى فى الله استاذى الحبيب احمد الفلاحجي اثقلت كاهلنا بجمايلك اخى لا نملك الا ان ندعوا لك كل يوم على ما فعلته اخى الكريم جدا تقبل احترامى وخالص دعائى لك اخى استاذى المبدع استاذ احمد حفظك الله وحفظ اسرتك الكريمة اللهم امين يارب معلش استاذى انا ذهبت لجدو البيانات وعلمت شيك على كل البيانات وغير اول سطر الى 14/5/2022 حتى يتم التعديل الى 14/6/2022 ولكن عند فتح الفورم ذهبت مرة اخرى للجدول لم اجد شيك ووجدت التعديل مغلق سامحنى اخى الكريم Date_2_trueOrfalse.accdb

شاهدي المرفق Tq.xlsm

هذه طريقة كتابة الدالة لو كان اسم المدرسة موجود كحقل في النموذج ( اختر اسم حقل المدرسة بدل ال First Name ) حسب المثال الذي في ملفك الأكسل : DCount("[ID]","[SampleTable]","[First Name] ='"& [Forms]![SampleForm]![TxtBox1] &"' And [ID] <="& Me.ID &" ") طبعا برعاية الكاتب الذكي لدوال المجال 😊👌🏼 مثل ما تلاحظ وضعت شرطين في الدالة : 1- أن يكون اسم المدرسة هو الاسم الموجود في مربع النص . 2- الشرط الثاني أن يكون ال ID أصغر من أو يساوي ال ID الموجود في السجل الحالي.

صراحه لااعلم وان شاء الله احد اخواننا واساتذتنا يشارك بما لديه وممكن تدخل على منتدى ميكروسوفت وتسال هناك برضه قم بالتسجيل والدخول https://answers.microsoft.com/ar-sa/ اختار الجروب اللى عاوز تسال فيه وهنا ويندوز وقم بالسؤال واخبرنا بالنتيجه عندما يتم الرد عليك بالتوفيق

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

اخي شاهد المرفق _Arabic g11 V1.xlsm

والله العظيم استاذى @احمد الفلاحجي الشكر لايكفيك حقك والله العظيم حضرتك رائع اخى الكريم اتقدم لك بخالص الشكر وخالص الدعاء والله العظيم من القلب لك اخى الكريم زادك الله واكرمك وحفظك وال بيتك اللهم امين يارب بالنسبة لمقترح حضرتك لو تكرمت عليا بمرفق للتوضيح اكون سعيدا وشاكر لك احبك فى الله من قلبى احبك اخى الكريم اكثر الله خيرك اخى

ما شاء الله شكرا كثيرا على هذا المثال الرائع

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

اللهم آمين و اياكم الحمدلله وهو المطلوب بانك تفهم الفكره وتعدل بنفسك ولى اقتراح اخر اضافه حقل من نوع نعم والقيمه الافتراضيه نعم ويتم تحديث القيمه الى لا لجميع السجلات التى قبل الشهر الحالى وهتلاقى الامور بقت اسهل واوضح بالنسبه للحذف ضع هذا الكود لزر الحذف Private Sub btnDel_Click() On Error GoTo MyErr If MsgBox("هل تريد فعلا حذف القيد نهائياً ؟", vbExclamation + vbMsgBoxRight + vbYesNo, "تأكيد عملية الحذف") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If MyExit: Exit Sub MyErr: If Err.Number = 2046 Then MsgBox "الحذف غير متاح لهذا السجل" 'Err.Description End If Resume MyExit End Sub بالتوفيق

جزاك الله خيرا على مشاركتك معنا 💐 طيب المفروض التاريخ اكبر من 10 فالشهر الحالى متاح للتعديل جرب التعديل التالى ووافنى بالنتيجه Date-1 (3_4).accdb

تفضل وجرب الان. Date-1 (3_1).accdb

🤣امال الاستعلام في الاكسس عملوه ليه؟

اسف على التأخير في الرد بسبب عدم التفرغ فيه هذه الايام جزاكم الله كل خير والف شكر للجميع ولكن سؤالي بخصوص الافقية وليس الرأسية اشكرك جدا استاذ محمد صالح على تعاونك وحسن الاستجابة

وعليكم السلام ورحمة الله وبركاته هذا الموضوع ان شاء الله موجود فيه طلبك هنا

تفضل هذه المشاركة اخي الكريم لعلها تحل المشكلة فقط نسخ هذا الكود الصقه في حدث ازرار الحفظ Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT Max(InvoiceNum) FROM InvoiceHT;") InvoiceNum = "A" & Format(Nz(rs.Fields(0), 0) + 1, "1000") rs.Close Set rs = Nothing

اعذرني اخوي القاضي ، بس خلينا نشوف ايش بالضبط اللي عملته ، وايش هذه الرسائل 🙂 لأني انا شخصيا صادفت هذه المشكلة في احد برامجي (من ايام زمان 🙂 ) والحل اللي اعطيتك كان الحل 🙂 جعفر

بعد فتح محرر الأكواد كليك يمين على الفورم ثم Remove كما بالصورة

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

اقدم لكم اليوم يوزرفورم إخفاء وإظهار الأعمدة من خلال كمبوبكس أرجو أن ينال إعجابكم فورم أخفاء وإظهار الأعمدة.rar

تذكير بتاريخ الانتهاء.rar لا أعلم مالمشكلة ولكن تمت إعادة رفع الملف

أستاذنا القدير علاَمة الوطن العربي / عبد الله باقشير أستاذنا العبقري / جمال عبد السميع السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على جميع اعمالكم الرائعة التي ستظل خالدة ونتعلم منها جميعاً جعلها الله في ميزان حسناتكم واسمحوا ليَ بفكرة خطرت ببالي أن نجمع التاريخ والوقت ثم تنسيق الخليه وإليكم الملف . لكم كل التحية والتقدير. دمج وتنسيق تاريخ1.rar

بعد إذن أستاذى " عبد الله بقشير " وزيادة فى الخير حل أخر =TRIM(SUBSTITUTE(TRIM(SUBSTITUTE(TEXT(A2;"DD/MM/YYYY")&","&TEXT(B2;"HH:MM");",";" "));",";"~")) تقبلوا تحياتى

السلام عليكم جرب هذه =TEXT(A2;"dd/mm/yyyy")&" "&TEXT(B2;"hh:mm") تحياتي

السلام عليكم و رحمة الله و بركاته المرفق به user form فيها التاريخ و الوقت لآخر مرة تم فتح الملف فيها و هو منقول للامانه مع بعض التعديلات التى قمت بها و الله اعلى و اعلم Date & Time.rar