Moosak

دالة Round تقرب الأعداد الفردية للأعلى والزوجية للأسفل مثال: 1.2 > 1 1.5 >2 1.9 > 2 2.2 > 2 2.5 >2 2.9 >3 ----------------------------------------------------- ولجعل هذه الدالة ترفع دائما للأعلى نستخدم الصيغة التالية : -Int(-Number) حيث Number هو الرقم أو الحقل المطلوب 1.2 > 2 1.5 >2 1.9 > 2 2.2 > 3 2.5 >3 2.9 >3 ------------------------------------------------- دالة Int تقرب للأسفل مثال: 1.2 > 1 1.5 >1 1.9 > 1 2.2 > 2 2.5 >2 2.9 >2 ------------------------------------------------- دالة Fix تقرب للرقم الأقرب للصفر بمعنى الأعداد الموجبة تنزلها والسالبها ترفعها مثال: 1.2 > 1 1.5 >1 1.9 > 1 2.2 > 2 2.5 >2 2.9 >2 -1.2 > -1 -1.5 >-1 -1.9 > -1 -2.2 > -2 -2.5 >-2 -2.9 >-2 ------------------------------------------------- دالة Fix تقرب للرقم الأقرب للصفر بمعنى الأعداد الموجبة تنزلها والسالبها ترفعها مثال: 1.2 > 1 1.5 >1 1.9 > 1 2.2 > 2 2.5 >2 2.9 >2 -1.2 > -1 -1.5 >-1 -1.9 > -1 -2.2 > -2 -2.5 >-2 -2.9 >-2

تفضل عمي @Foksh 🙂 : Replace(Replace(Format(Time, "hh:mm:ssAM/PM"), "PM", ""), "AM", "") والنتيجة :

🙂

وعليكم السلام 🙂 بدل نقلها ملف ملف .. أنقل المجلد كاملا بما فيه هكذا : FileCopy "C:\1", "C:\2"

أولا : لمعرفة العناصر المرتبطة بأي جدول أو استعلام ( النماذج والتقارير التي تم استخدام هذا الجدول فيها ) .. اتبع الخطوات التالية : بعدها ستظهر لك جميع النماذج أو التقارير التي تستخدم هذا الجدول أو الاستعلام .. كرر هذه الخطوات لمعرفة العناصر المرتبطة بالجداول الأخرى .. 🙂 ثانيا : لتحليل أداء قاعدة البيانات لديك .. اتبع الخطوات التالية (ختر جميع العناصر الجداول والاستعلامات والنماذج والتقارير وووو....) : بعدها ستحصل على تقرير ونصائح للكائنات المذكورة في القائمة لتحسين الأداء 🙂

ما شاء الله تبارك الله 🙂 شكرا لك يا @طير البحر على الهدية الرائعة والجهد المبذول 👍🏻😊 موضوع متميز ويستحق التثبيت 😉👌🏻

اعرض الملف 🎁✨ :: الرسائل الإبداعية :: 🌼🌷 :: استبدل الرسائل العادية برسائل قمة في الجمال 😊👌🏻 السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم بكل خير وسرور .. وتقبل الله منا ومنكم صالحات الأعمال .. 😊🤲🏻 يطيب لي أن أقدم لكم هذا الهدية المتواضعة بمناسبة هذا الشهر الفضيل 🙂🌼🎁 استبدل الرسائل العادية في أكسس برسائل ذات تصاميم قمة في الإبداع وبمميزات إضافية . من مميزات هذه الرسائل: - تصميم جميل وألوان جذابة. - خاصية ذاتية الاختفاء. - عنوان رئيسي + عنوان فرعي - تحكم بالنص ( عربي - إنجليزي ) ( توسيط - محاذاة على اليمين أو اليسار) - سهلة الاستخدام . الشرح على اليوتيوب : التحميل 🙂 Moosak MsgBox.accdb ولا تنسوني من صالح دعواتكم 😊🌷🌼🌹 صاحب الملف Moosak تمت الاضافه 13 أبر, 2024 الاقسام قسم الأكسيس  

شكرا لك أخي الأستاذ @عبد اللطيف سلوم هدية مقبولة 🙂🌹🌼🌷

تفضل على الرحب والسعة أخي العزيز 🙂

من صاحب السؤال هنا ؟؟ @عادل سرور سرور أم @kams3008 ؟؟ 🤔

حسب علمي أن المتغيرات من نوع string لا تقبل القيمة Null بل تقبل القيمة "" .. ولا أدري إن كان ذلك ينطبق على الحقول النصية في الجدول أيضا .. Null تقبلها المتغيرات من نوع var Empty تقبلها المتغيرات من نوع object 🙂

عدت والعود أحمد 😊🌹

الحمدلله أنها جائت كما أردتها 😊 بالنسبة للقضية التي ذكرتها ولأنني بعيد عن الحاسوب ، ضع هذا السطر في حدث (في الحالي) للنموذج الفرعي : KeyPressCount = 0

حياك الله أستاذ @jo_2010 🙂 بأمانة قرأت ردك والسؤال الأول أكثر من مرة ولم أفهم المراد بالضبط ، لعل الصيام مأثر علي 😅🖐🏻 ولكن قمت بعمل تعديل على قدر فهمي لطلبك 😊 وهذا شكل الكود بعد التعديل : عند الضغط على إنتر وهناك عدة تحاليل ينتقل للتحليل التالي حتى يصل للسجل الجديد .. وعند المواصلة على الضغط على الإنتر 3 مرات عندها ينتقل لسجل جديد في النموذج الرئيسي .. إذا كان عدد التحاليل صفر حتى لو تم الاستمرار على مفتاح الإنتر أكثر من 3 مرات يضل المؤشر في مكانه ولا ينتقل. JO-2024.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل منير .. أنظر للاستعلام ، تم الاستغناء عن حقل المنطقة في الجدول وإحضار الحقل من جدول area بعد ربط الجدولين بعلاقة واحد إلى متعدد : صرف مهام خارجية.rar

السلام عليكم أستاذ يوسف 🙂 كل عام وأنت بخير .. تفضل هذا الكود يوضع في حدث عند الضغط على مفتاح لحقل الرقم : بعد الضغط على الزر إنتر 3 مرات يقوم بالإنتقال لسجل جديد .. 🙂 JO-2024.accdb

شكرا لك أخي @طير البحر 🙂🌷 وهدية مقبولة 😊🌹

وعليك السلام ورحمة الله وبركاته المهندس @Foksh 🙂 ما شا الله تبارك الله .. هذه سابقة لك ما رأيت أحد عرض هذه الفكرة قبلك .. أسأل الله العظيم أن يجعلها في ميزان حسناتك وأن يتقبل منك صالحات أعمالك 😊🤲🏻🌹🌷 الموضوع يستحق التجربة .. ولكن الخوف من أن يؤثر الحجم على أداء الهاتف 😁🖐🏻

تشريف أخي العزيز الوزير 😊🌹 والحقوق متاحة للجميع .. موافق تقابلها ok نعم تقابلها yes موافق تجدها مقرونة بإلغاء الأمر أو وحدها.. ونعم تجدها مقرونة ب لا وأحيانا ( نعم - لا - إلغاء الأمر )

تظهر كاملة عمي @ابوخليل .. ولكن يظهر أن الأستاذ @Sħěrif Ħušsệiñ لم ينتبه للشريط السفلي الذي ينقلك بين الصفحات 🙂

متألق ما شاء الله عليك أخي @hassan123 🙂 .. أفكار إبداعية جديدة 😄👌 ملاحظات وأفكار 🙂 : 1 - لاحظت أنك أدرجت ملف التحديث من ضمن الملفات ولا أضنك ستحتاج إليه بعد الآن مع التحديث الجديد 🙂 : 2 - للفائدة يمكنك الاستغناء عن الملف الذي يقوم بعملية التحديث والاستعاضة عنه بملف VBS أو ملف CMD وذلك لتجنب مشكلة الحاجة لتوثيق ملف الأكسس قبل فتحه .. فقد جربت هذه الطريقة سابقا و واجهتني مشكلة أن المستخدمين الذين لم يسبق لهم فتح ملف التحديثات ولم يتم توثيقة تقف عندهم عملية التحديث بسبب هذا الأمر .. وهذا الكود الذي أستخدمه أنا لغرض إنشاء ملف ال VBS يمكنك الاستفادة من إن أحببت 🙂 : ' Updater VBS File Path dim UpdaterFilePath UpdaterFilePath = CurrentProject.Path & "\Updater.VBS" ' ************************************************** delete Old Updater File If Len(Dir(UpdaterFilePath, vbDirectory)) > 0 Then Kill (UpdaterFilePath) End If ' ************************************************** Write The VBS File Which Updates The DB Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") Dim oFile dim txtOldFEPath dim txtNewFEPath txtOldFEPath = "E:\Open DB\الملف المصدر.accdb" txtNewFEPath = "E:\Open DB\الملف الهدف.accdb" ' Creat vbs File with ANSI Coding ' الترميز الذي يدعم العربية Set oFile = FSO.CreateTextFile(UpdaterFilePath, True, False) oFile.WriteLine "Dim fs, strCopyFrom, strCopyTo" oFile.WriteLine "Set fs = CreateObject(""Scripting.FileSystemObject"")" ' Start writing The Updater File ' sleep 3 seconds oFile.WriteLine "Dim SecWait" oFile.WriteLine "SecWait = DateAdd(""s"", 3, Now())" oFile.WriteLine "Do Until (Now() = SecWait)" oFile.WriteLine "Loop" ' copy files oFile.WriteLine "strCopyFrom = " & """" & txtNewFEPath & """" oFile.WriteLine "strCopyTo = " & """" & txtOldFEPath & """" oFile.WriteLine "fs.CopyFile strCopyFrom, strCopyTo, True" ' open the new version oFile.WriteLine "CreateObject(""Shell.Application"").Namespace(0).ParseName(strCopyTo).InvokeVerb ""Open""" oFile.WriteLine "Set fs = Nothing" oFile.Close Set FSO = Nothing Set oFile = Nothing ' ************************************************** Open the VBS Updater File Shell "explorer.exe" & " " & UpdaterFilePath, vbMinimizedNoFocus ' ************************************************** Close FE Database Application.Quit 3- أزيدك من الشعر بيت 😄 .. هذا كود لإضافة ملف التحديثات الجديدة لحقل المرفقات في الجدول بطريقة سهلة ( يفتح مستعرض الملفات >> تختار ملف التحديث >> وتم بحمد الله ) 🙂 Option Compare Database Option Explicit Public Sub AddAttacmentToTable(TableName As String, AttachmentFieldName As String, IDField As String, IDvalue As Long) 'TableName = اسم الجدول 'AttachmentFieldName = اسم حقل المرفقات 'IDField = اسم حقل الآيدي 'IDvalue = رقم الآيدي On Error GoTo HandleError Dim db As DAO.Database Dim rs As DAO.Recordset Dim attachFld As DAO.Recordset Dim file As String file = selectFile Set db = CurrentDb Set rs = db.OpenRecordset("select * from " & TableName & " where " & IDField & " = " & IDvalue & ";") ' Or OpenRecordset("TableName") ' Debug.Print "select * from " & TableName & " where " & IDField & " = " & IDvalue & ";" If Not rs.BOF And Not rs.EOF Then rs.MoveFirst rs.Edit Set attachFld = rs.Fields(AttachmentFieldName).Value attachFld.AddNew attachFld.Fields("FileData").LoadFromFile file attachFld.Update rs.Update End If MsgBox "done" rs.Close Set db = Nothing Set rs = Nothing HandleExit: Exit Sub HandleError: If Err.Number = 0 Then Exit Sub Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.Description End If Resume HandleExit End Sub Public Function selectFile() ' دالة مستعرض الملفات On Error GoTo ErrHandler Dim fd As Object Dim filedialogPath As String Set fd = Application.FileDialog(1) fd.AllowMultiSelect = False fd.Title = "حدد الملف المطلوب" ' fd.InitialFileName = CurrentProject.Path fd.Filters.Clear fd.Filters.Add "كل الملفات", "*.*" If fd.Show = True Then selectFile = fd.SelectedItems(1) ' Exit Function Else MsgBox "لم تقم باختيار أي ملف" Exit Function End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description ' End If End Function Sub testing() 'للتجربة AddAttacmentToTable "att", "Att_T", "ID", 4 End Sub مع تمنياتي لك بالتوفيق 🙂

هل مواصفات جهازك جيدة ؟ كم نسخة الأوفيس عندك ؟ جرب استخدام هذه النسخة وأخبرني هل النتيجة نفسها ؟ ‏‏Moosak MsgBox 2.accdb

تفضل أخي أبو الحسين @abouelhassan 🙂 If MyMsgBox("هل تريد حذف السجل؟؟", "" _ , , msg_Critical, Btn_Yes_No) = Yes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tblFinancial_Records.*, tblFinancial_Records.Reg_Number, * FROM tblFinancial_Records WHERE (((tblFinancial_Records.Reg_Number)=[forms]![frm_search]![Reg_Number]))" DoCmd.SetWarnings True Else Exit Sub End If If Err.Number <> 0 Then MyMsgBox "حدث خطأ: " & Err.Description End If MyMsgBox "ليس لديك صلاحية بالدخول", "تنبيه", , msg_Critical, Btn_OK_Only If MyMsgBox("خروج من البرنامج...!؟", "", , msg_Critical, Btn_Yes_No) = Yes Then MyMsgBox "تم انشاء نسخة احتياطية بنجاح" & vbNewLine & "Backup successfully created" & vbNewLine & vbNewLine & _ "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & _ "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & _ "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, "emphasis" & "/" & "تاكيد", , msg_Information, Btn_OK_Only, Arabic_Right End If

أعتقد أنك ستجد حاجتك هنا 🙂 :