اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Moosak

أوفيسنا
  • Posts

    1,834
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    50

Moosak last won the day on مارس 22

Moosak had the most liked content!

السمعه بالموقع

1,955 Excellent

عن العضو Moosak

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    Graphics Designer, Programmer
  • البلد
    Oman
  • الإهتمامات
    التصميم الجرافيكي ، برمجة الأكسس

وسائل التواصل

  • MSN
    https://www.youtube.com/c/MousaAlKalbani
  • Website URL
    https://www.instagram.com/mousa.alkalbani
  • Yahoo
    mousa.alkalbani@gmail.com

اخر الزوار

8,100 زياره للملف الشخصي
  1. حسب علمي أن المتغيرات من نوع string لا تقبل القيمة Null بل تقبل القيمة "" .. ولا أدري إن كان ذلك ينطبق على الحقول النصية في الجدول أيضا .. Null تقبلها المتغيرات من نوع var Empty تقبلها المتغيرات من نوع object 🙂
  2. الحمدلله أنها جائت كما أردتها 😊 بالنسبة للقضية التي ذكرتها ولأنني بعيد عن الحاسوب ، ضع هذا السطر في حدث (في الحالي) للنموذج الفرعي : KeyPressCount = 0
  3. حياك الله أستاذ @jo_2010 🙂 بأمانة قرأت ردك والسؤال الأول أكثر من مرة ولم أفهم المراد بالضبط ، لعل الصيام مأثر علي 😅🖐🏻 ولكن قمت بعمل تعديل على قدر فهمي لطلبك 😊 وهذا شكل الكود بعد التعديل : عند الضغط على إنتر وهناك عدة تحاليل ينتقل للتحليل التالي حتى يصل للسجل الجديد .. وعند المواصلة على الضغط على الإنتر 3 مرات عندها ينتقل لسجل جديد في النموذج الرئيسي .. إذا كان عدد التحاليل صفر حتى لو تم الاستمرار على مفتاح الإنتر أكثر من 3 مرات يضل المؤشر في مكانه ولا ينتقل. JO-2024.accdb
  4. وعليكم السلام ورحمة الله وبركاته 🙂 تفضل منير .. أنظر للاستعلام ، تم الاستغناء عن حقل المنطقة في الجدول وإحضار الحقل من جدول area بعد ربط الجدولين بعلاقة واحد إلى متعدد : صرف مهام خارجية.rar
  5. السلام عليكم أستاذ يوسف 🙂 كل عام وأنت بخير .. تفضل هذا الكود يوضع في حدث عند الضغط على مفتاح لحقل الرقم : بعد الضغط على الزر إنتر 3 مرات يقوم بالإنتقال لسجل جديد .. 🙂 JO-2024.accdb
  6. شكرا لك أخي @طير البحر 🙂🌷 وهدية مقبولة 😊🌹
  7. وعليك السلام ورحمة الله وبركاته المهندس @Foksh 🙂 ما شا الله تبارك الله .. هذه سابقة لك ما رأيت أحد عرض هذه الفكرة قبلك .. أسأل الله العظيم أن يجعلها في ميزان حسناتك وأن يتقبل منك صالحات أعمالك 😊🤲🏻🌹🌷 الموضوع يستحق التجربة .. ولكن الخوف من أن يؤثر الحجم على أداء الهاتف 😁🖐🏻
  8. تشريف أخي العزيز الوزير 😊🌹 والحقوق متاحة للجميع .. موافق تقابلها ok نعم تقابلها yes موافق تجدها مقرونة بإلغاء الأمر أو وحدها.. ونعم تجدها مقرونة ب لا وأحيانا ( نعم - لا - إلغاء الأمر )
  9. تظهر كاملة عمي @ابوخليل .. ولكن يظهر أن الأستاذ @Sħěrif Ħušsệiñ لم ينتبه للشريط السفلي الذي ينقلك بين الصفحات 🙂
  10. متألق ما شاء الله عليك أخي @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 مع تمنياتي لك بالتوفيق 🙂
  11. هل مواصفات جهازك جيدة ؟ كم نسخة الأوفيس عندك ؟ جرب استخدام هذه النسخة وأخبرني هل النتيجة نفسها ؟ ‏‏Moosak MsgBox 2.accdb
  12. تفضل أخي أبو الحسين @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
×
×
  • اضف...

Important Information