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

هل تقصد هكذا 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 استخدم هذه الأداة الجميلة 😄👇

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

وعليكم السلام ولكن سأرد أيضاً بدون ملف .. فلنفترض الرقم 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 بالتوفيق ان شاء الله

تفضل أخي أبو هالة : قمت بعمل استعلام 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

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

شاهدي المرفق 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/ اختار الجروب اللى عاوز تسال فيه وهنا ويندوز وقم بالسؤال واخبرنا بالنتيجه عندما يتم الرد عليك بالتوفيق

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

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

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

جزاك الله خيرا على مشاركتك معنا 💐 طيب المفروض التاريخ اكبر من 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

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

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