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

هل تقصد هكذا 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) ستحل لك الاشكال ان شاء الله ربما أخطأت في كتابة بعض اسماء الدوال لأني بعيد عن الأكسس الآن تأكد من مسميات هذه الداول مرة أخري وجزاكم الله عنا خيرا

يمكنك وضع الدالة في مصدر بيانات مربع نص في نموذج بنفس الصياغة .. ويمكنك وضعها في محرر الأكواد كذلك ولكن ستغير ال (؛) إلى (,) ، وتنتبه لتغيير صيغة المتغير في معايير الدالة هكذا (مثلا) : DCount("[ID]","[Table1]","[اسم المدرسة او القسم] ='" & Me.اسم_المدرسة_او_القسم & "' And [ID] <=" & Me.ID & " ") ملاحظة : يحبذ استخدام اسماء الحقول باللغة الإنجليزية لتجنب الكثير من الأخطاء 🙂

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

تستطيع تنفيذ ما تريد بواسطة الكود لو تكرمت بوضع نموذج سيتم التنفيذ عليه ان شاء الله y = Format$("\#mm\/dd\/yyyy\#")

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

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

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

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

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

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

حبيبي استاذ احمد كل سنه وانت طيب ياغالي 😍 سوف اطلع عليها وارد لك خبر

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

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

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

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

اتفضل On Error GoTo أمر21_Err If MsgBox("هل تريد الحذف", vbYesNo + 48, "رسالة تنبيه") = vbYes Then With CodeContextObject On Error Resume Next DoCmd.GoToControl Screen.PreviousControl.Name Err.Clear If (Not .Form.NewRecord) Then DoCmd.RunCommand acCmdDeleteRecord End If If (.Form.NewRecord And Not .Form.Dirty) Then Beep End If If (.Form.NewRecord And .Form.Dirty) Then DoCmd.RunCommand acCmdUndo End If If (.MacroError <> 0) Then Beep MsgBox .MacroError.Description, vbOKOnly, "" End If End With Else MsgBox "تم الرجوع", 48, "رسالة تنبيه" End If أمر21_Exit: Exit Sub أمر21_Err: MsgBox Error$ Resume أمر21_Exit 20.rar

السلام عليكم ..التعديل هنا Range("B45:H191").Copy تفضل الملف vehicles Cost.xlsm

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

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

الخطوات اللي اتبعتها : 1. إلغاء اخذ القيمة الافتراضية من اعدادات الحقل : . 2. عملنا وحدة نمطية لعمل التسلسل ، ونناديها كلما احتجنا الى اضافة رقم جديد : . 3. والسر في نجاح هذه العملية ، هي حفظ السجل مباشرة بعد اخذ رقم التسلسل الجديد : . جعفر 1282.InvoiceSale_6.accdb.zip

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

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

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

صورة الفورم

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

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

لايمكن أخى تفضل الحل فى المرفق التالى دمج وتنسيق تاريخ.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