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

تفضل هذا الكود اخي الكريم مع مراعا و ضع اسم عنصر التحكم ( الأزرار ) في المكان المخصص فكرة هذا الكود :- - الصق هذا الكود في اي مكان في شاشة الأكواد VBA Function control is not visible() On Error GoTo errorhandle DoCmd.SetWarnings False If DateDiff("h", DLookup("[EndTime]", "[StingTime]", "[TimeNo]=1"), Now()) > 24 Then DoCmd.RunSQL "Update StingTime SET EndTime = Now() WHERE [TimeNo]=1;" [ضع اسم عنصر التحكم هنا].Visible = True Else [ضع اسم عنصر التحكم هنا].Visible = False End If errorhandleexit: Exit Sub errorhandle: If Err.Number = 3078 Then DoCmd.RunSQL "CREATE TABLE StingTime (TimeNo int , EndTime DATE );" DoCmd.RunSQL "INSERT INTO StingTime VALUES (1, Now());" End If Resume errorhandleexit DoCmd.SetWarnings True End Function - يجب وضع هذا الكود في حدث عند الفتح و كذلك في الازرار المستهدف Call control is not visible() - سيتم انشاء جدول كما ذكر من قبل اخي الكريم @ محمد أبو عبدالله محمد أبوعبدالله - سيتم تحديث هذا الجدول كل 24 ساعة أو اكثر - يمكنك التعديل على الجدول باضافة عمود لاسم المستخدم - سيتم اخفاء عنصر التحكم مرد الدخول على النموذج و مجرد الضغط على الأزرار مع مراعاة نقل التركيز قبل تنفيذ الكود

تم تعديل كود حذف التكرار الروضة.xlsm

تفضل اخي الكريم تم التعديل ليتم التصفية من خلال الكود Dim myCriteria As String myCriteria = myCriteria & "(" myCriteria = myCriteria & "[Full_Name] Like '*" & Me.bb & "*'" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.البحث.Form.Filter = myCriteria Me.البحث.Form.FilterOn = True test9.rar تحياتي

سيتم اخفاء الشيتات بعد الوقت المحدد ويظهر الشين الاول فقط مع الاحتفاظ بكل البيانات هذا هو الحل الثاني expare file excel2.xlsm

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

Try this file Show_hid.xlsm

تفضل التعديل ملاحظة : يجب اولا فك الضغط Desktop.zip

تفضل اخي الكريم APE - Copy.rar تحياتي

وعليكم السلام انشىء جدول به حقل نوع تاريخ واجعل تنسيقه General Date وعند الضغط على الزر يقوم بتحديث الحقل الى الوقت والتاريخ الحالي now() وعند فتح النموذج يتم عمل مقارنة بين الوقت الحالي والوقت الموجود بالجدول تحياتي

لعمل تصفية حسب الكمبوبوكس تفضل الكود التالي Dim myCriteria As String myCriteria = myCriteria & "(" myCriteria = myCriteria & "[IDED]= " & Me.cmbfind myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Filter = myCriteria Me.FilterOn = True program.rar تحياتي

حياك الله .... بالتوفيق

جرب الملف --------->> Ba_55.accdb

بعم يمكن ذلك استخدم هذا الكود Private Const TIMEOUT = 99 Public Sub Restart() Dim scriptpath As String scriptpath = Application.CurrentProject.FullName & ".dbrestart.bat" If Dir(scriptpath, vbNormal) <> "" Then If DateAdd("s", TIMEOUT * 1, FileDateTime(scriptpath)) < Date Then Kill scriptpath Else Application.Quit acQuitSaveAll Exit Sub End If End If Dim s As String s = s & "SETLOCAL ENABLEDELAYEDEXPANSION" & vbCrLf s = s & "SET /a counter=0" & vbCrLf s = s & ":CHECKLOCKFILE" & vbCrLf s = s & "ping 0.0.0.255 -n 1 -w 100 > nul" & vbCrLf s = s & "SET /a counter+=1" & vbCrLf s = s & "IF ""!counter!""==""" & TIMEOUT & """ GOTO CLEANUP" & vbCrLf s = s & "IF EXIST ""%~f1.%3"" GOTO CHECKLOCKFILE" & vbCrLf s = s & "start "" "" ""%~f1.%2""" & vbCrLf s = s & ":CLEANUP" & vbCrLf s = s & "del %0" Dim intFile As Integer intFile = FreeFile() Open scriptpath For Output As #intFile Print #intFile, s Close #intFile Dim dbname As String, ext As String, lockext As String Dim idx As Integer For idx = Len(CurrentProject.FullName) To 1 Step -1 If Mid(CurrentProject.FullName, idx, 1) = "." Then Exit For Next idx dbname = Left(CurrentProject.FullName, idx - 1) ext = Mid(CurrentProject.FullName, idx + 1) If Left(ext, 2) = "ac" Then lockext = "laccdb" Else lockext = "ldb" End If s = """" & scriptpath & """ """ & dbname & """ " & ext & " " & lockext Shell s, vbHide Application.Quit acQuitSaveAll End Sub ثم استدعيه بهذا الكود Private Sub btRestart_Click() Utilities.Restart End Sub

هذا الخطأ بالتقريب موجود في برنامج الاكسل وغيره من البرامج، والسبب كما يقولون هو التقريب الحاصل نتيجة تخزين الأرقام العشرية بالكمبيوتر بصيغة الرقم الثنائي binary number ويمكن ملاحظة ذلك في المثال التالي: والمتحدثون عن ذلك يقترحون حلين: 1- استخدام الدالة round لتخطي خطأ التقريب 2- التعديل بخيار الاكسل لاعتبار العدد كما هو ظاهر وتجاهل الدقة غير المعروضة بعد تعديل الخيارات، ظهرت النتيجة للمزيد ممكن الاطلاع على: https://docs.microsoft.com/ar-sa/office/troubleshoot/excel/floating-point-arithmetic-inaccurate-result https://www.microsoft.com/en-us/microsoft-365/blog/2008/04/10/understanding-floating-point-precision-aka-why-does-excel-give-me-seemingly-wrong-answers/ بالتوفيق

تفضل-يمكنك استخدام هذه المعادلة =SUMIF(Sheet1!$B:$B,$B2,Sheet1!$F:$F) Total.xlsx

تفضل hide_rows.xls

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا 💐 بعد بعض البحث تم العمل على المثال الاخير المرفق من الاستاذ سامى عند فتح المثال سيتم فتح ع النموذج MainMenu ستجد به زرين ريسيت وتعيين اضغط رسيت ثم انظر للاعدادت كما بالصوره ستجد انه قد تم ازاله النموذج MainMenu ووضع القيمه الافتراضيه none اختار من الكمبو اى نموذج تريد ثم اضغط الزر تعيين ثم انظر الاعدادات مره اخرى ان شاء الله يكون ما تريد MyMenu1.accdb

طبعا هناك معادلات يمكن دمجها، ولكن أحببت أن تكون الأمور لك أكثر وضوح لتسهيل تكرار العملية في ملفك ولاتنس أن بعض المعادلات تحتاج الضغط على ctrl+shift+enter أتمنى أن الصورة وضحت

تم كتابة المعادلات للبحث، وتم انشاء أعمدة مساعدة ويمكنك البحث بالرقم أو اسم أو اسم واسم آخر وتم تجاهل نقاط الياء، وكذلك التاء المربوطة ة أما الهمزة فالاكسل يتجاهلها بالتوفيق البحث.xlsx