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

هل تقصد هكذا 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 الان ع حسب الاكواد انظر الصوره بالتوفيق

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

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

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

تفضل أخي أبو هالة : قمت بعمل استعلام Query1 فيه جميع حقول الجدول ، ثم أضفت حقل اسمه Tsalsul ، واستخدمت كاتب الدوال لكتابة دالة DCount كما يلي .. فكانت النتيجة كما ترى 🙂 : يمكنك أن تقارن النتيجة من خلال عمود تسلسل السابق والعمود الجديد Tsalsul لترى التطابق بين النتيجتين 🙂 وهذه صياغة الدالة : DCount("[ID]";"[Table1]";"[اسم المدرسة او القسم] ='" & [اسم المدرسة او القسم] & "' And [ID] <=" & [ID] & " ") تفضل الملف : 111111111111.accdb

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

اتفضل اخى الفاضل ابو الحسن بالنسبه للتعديلات تم اضافه حقل chek فى الجدول tblData وقيمته الافتراضيه نعم تم اضافه استعلام qryDcount وده علشان احسب عدد السجلات التى قيمتها نعم قبل يوم 1 فالشهر الحالى لتحويلها الى لا يوم 10 فالشهر ومدخلش فالاجراء الخاص بالتحديث كل ما افتح الفورم تم تعديل الكود Private Sub Form_Current() Dim z As String, d As Integer z = DateSerial(Year(Date), Month(Date), 10) 'day 10 TempVars.Add "MonthNow", DateSerial(Year(Date), Month(Date), 1) d = DCount("*", "qryDcount") If Date >= z And d > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tblData SET tblData.chek = False " & _ "WHERE (((tblData.Registration_Date)<[TempVars]![MonthNow]));" DoCmd.SetWarnings True End If If Me.chek = True Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End If End Sub ده باختصار واليك المرفق بعد التعديلات بالتوفيق Date_2_trueOrfalse.accdb

ضع ملفك أخي أبو هالة . يختلف صياغة الدالة حسب موقع استخدامك لها .. 🙂

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

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

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

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

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

اتفضل 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

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

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

السلام عليكم و رحمة الله تعالى وبركاته لقد قمت بتصميم برنامج لمحل تجاري يستخدم 3 أجهزة كمبيوتر في نفس الوقت و صادفتني هذه المشكلة إستخدمت العديد من الحلول لكن تبقى دائما فيها بعض النقائص في لحظات معينة فإهتديت لهذا الحل بأقل أكواد و بدون رسائل أخطاء. قمت بإضافة جدول في برنامج الواجهة و أضفت له حقل رقم الكمبيوتر و نموذج مرتبط به يستطيع المستخدم من خلاله تغيير رقم الكمبيوتر طريقة الترقيم: في خانة القيمة الإفتراضية للحقل بالنموذج نضع كود لجلب أكبر رقم الدالة dmax و نربط معها رقم الجهاز Dmax("id_facture";"tbl_facture") & "." & Dlookup("id_pc";"tbl_pc") id_pc هو رقم الكمبيوتر بهذه الطريقة تصبح الأرقام المنتجة هكذا 1001.1 و 1001.2 يعني لن يحدث أي إعتراض حتى و لو تم إضافة سجل جديد في نفس اللحظة أو تستطيع تغيير الجزء الأول بالدالة التي وضعتها لإنتاج رقم الفاتورة و تحتفظ بالجزء الثاني

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

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

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

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