Moosak

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

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

من صاحب السؤال هنا ؟؟ @عادل سرور سرور أم @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

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

يمكنك استخدام هذه الصفحة أيضا للبحث عن المواضيع من خلال عناوينها أو اسم الكاتب : https://officena.net/team/mas/access.html 🙂

أهلا بك أخي @سيد تيمي في المنتدى 🙂🌹 لا تفوت قرائة قواعد المشاركة فى الموقع: 😉👌🏼 اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة أخي @سيد تيمي أكتب سؤالك بشكل أوضح لتحصل على إجابة أدق .. ماذا تقصد بفورم office 365 ؟ وما الغرض من التقويم في النموذج ؟

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل أخي @العبيدي رعد لا تظهر بيانات إلا من كان في ذمته شيء .. الكود يكتب في الحدث فورمات للمجموعة أو التقسيمة : الكود : القروض 10.rar

في الأصل أنه يعمل بشكل طبيعي .. لكن ضع المرفق هنا للفحص 🙂

1- نعم ترجع القيمة كمتتغير ( أنظر إلى الأمثلة الملحقة في الملف ) 2- توجد أمثلة مختلفة في الملف المرفق .. وطالع الفيديو أيضا لمتابعة الشرح 🙂

وعليكم السلام ورحمة الله وبركاته أخي @الطيب عباس 🙂 شكرا جزيلا لك على هذا العطاء ..🌹 لكن للأسف النسخة خاصة بالنظام 32 بت فقط لذا لم أتمكن من فتحها ، ليتك ترسل نسخة 64 بت أيضا .. 🙂

الحمدلله 🙂🌹 ضع الحل هنا ليستفيد الإخوة من تجربتك 👍🏻