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

طريقة أخرى اكثر شمولية ضع في حدث عند الخروج للحقل If Not IsNumeric(Me.YrField) Then MsgBox "القيمة المدخلة ليست رقم" Cancel = True End If Select Case Len(YrField) Case 12 Case Else MsgBox ("يجب أن يحتوي الحقل على 12 رقم") Cancel = True End Select 🙂

مركز الملفات هو مكان ممبز بالموقع يتاح فيه اضافة الملفات المفيدة وفق مجموعة مجددة من الافسام و استخدام مركز الملفات مختلف عن المنتدى ، فهنا لا نرد على استفسار او نساعد فى الحل ، و لكن نستخدم هذه الجزئية من الموقع عند الرغبة فى نشر ملف مفيد و فور اضافة الملف سيتم اليا فتح موضوع للجوار باحد الافسام ، و ربطه بصفحة الملف فى مركز الملفات و بمتار المركز بامكانية تتبع الاصدارات المختلفة من الملف و الفروص بينها ، كما يمكن ايضا اضافة تعليقات على الملف مباشرة ، و ذلك بالاضافة الي موضوع الحوار الخاص بالملف و الي سيتم فتحه تلقائيا كما ذكرنا لاحقا ملاحظة صلاحية الاضافة المباشرة دون مراجعة مقتصرة على مجموعات العضوية المتقدمة فقط و ليس كل المجموعات خطوات اضافة الملفات 1- مركز الملفات 2- اضف ملف 3- اختار القسم المناسب 4- اضف الملف 5- - سيظهر بعدها مكان لاختيار الصورة 6- 6- اختار اسم الملف ( اجباري) 7- اختار الوصف الخظوة الخيرة ، اجفظ و اختار الملف 8-

السلام عليكم اخوي ابا جودي 🙂 انا اعرف انه ليس من السهولة عمل تغييرات جذرية في طريقة العمل ، ولكن لكل مجتهد نصيب 🙂 عملت بعض التعديلات على البرنامج ، بحيث جعلته سهل ان يأخذه المستخدم الى كمبيوتر آخر: دمجت الجدولين في جدول واحد ، ودمجت جميع الوحدات النمطية في وحدة نمطية واحدة ، وعملت تغيير بسيط على الدالة Msg 🙂 في شيء آخر صار لي اكثر من اسبوع احاول ان افتح فيه موضوع ، ولكن التهي بشيء او آخر ، وان شاء الله لما اعمله ، اخبرك عنه 🙂 جعفر 1080.dbskn.zip

يمكنك وضع السطر الأول في بداية الكود الذى يسبب اهتزاز الشاشة والسطر الأخر في نهاية نفس الكود

وعليكم السلام ورحمة الله وبركاته ضع في مربع نص =Sum("[الرقم]") xxx.accdb

السلام عليكم -لو كنت تقصد اهتزاز الشاشة يمكنك ادخال هذا السطر في الكود لمنع اهتزاز الشاشة Application.ScreenUpdating = False وهذا السطر الأخر للرجوع للحالة الأولى للملف Application.ScreenUpdating = true على الرغم بعد ذلك عند رفع اى استفسار او مشاركة فلابد من رفع الملف لتوفير الوقت في المساعدة

تسطيع عمل كل ذلك على نفس الرسالة وكما تريد حاليا لا املك الوقت لتطبيق ما ذكرت ولكن يتم كالتالي نضع مربع نص في نموذج الرسالة ولنسميه مثلا Cri الآن عند الضغط على الزر في النموذج الخاص بك والذي يظهر الرسالة حسب الصيغة التي تريد نعطي مربع Cri قيمة مثلا 1 وهذه القيمة تتغير حسب الزر الذي تم الضغط عليه من النمماذج الآن تحت زر الآمر نضع جملة شرطية ولنستخدم مثلا جملة Select ونخبره اذا كان Cri = 1 قم بعمل كذا وهكذااااا انا متأكد أنك ستطبق هذا الأمر

السلام عليكم نزولا عند رغبة احد الاصدقاء برنامج تسجيل الاقساط اوتوماتيك نقوم بتسجيل بيانات العميل كاملة ثم نكبس على الاقساط نفتح لنا شاشة جديدة نكبس على تسجيل الاقساط فتنزل الاقساط اوتوماتيك عند دفع القسط نقوم بتحويل الحالة من لم يتم الدفع الى تم الدفع ثم تكبس على تحديث بعد الدفع نستطيع الحصول على كشف حساب للعميل أتمنى لكم الفائدة واتس أب 00962787787573 اقساط.accdb

بعد تركيب نظام صلاحيات المستخدمين للأستاذ مهند العبادي أجريت تعديلاً بإضافة بعض الحقول لجدول المستخدمين والإشكال الذي أواجه حالياً هو عدم إضافة بيانات المستخدم بعد كتابتها في النموذج Users بداخل الحقول بجدول المستخدمينبيانات المستخدم الجديد لا تسجل في الجدول.rar وقد توقفت حيلتي بعد كثرة المحاولات لذا أود المساعدة شاكرا ممن لديه القدرة علي ذلك

اعجبني وما بعرف مين صممه حكمة اليوم.accdb

جزاكم الله الف الف خير ورحم الله والديك عموووو علي بن محمد

تفضل والكود الأول ينسخ مئة بالمئة ولكن يحتاج لتغيير البيانات حسب ما هو في الجدول الخاص بك جرب ووافني بالنتيجة Pro1N.rar

طيب ممكن لمحة سريعه توضه المطلوب انا لم افهم شئ اخبرنى ماذا تريد لاحاول المساعدة قدر المستطاع

تفضل لك ما طلبت عدد الأيام المتبقية على المناسبات.xlsm

طلبك موجود في المنتدى بكثرة عموما تفضل تم التعديل على نفس مثالك FrmCountr.accdb

اتفضل يا دكتور @حلبي ــــــــــــ هنا الدنيا اختلفت عن المرفق السابق لقد قمت بتطبيق توجيهات وارشادات استاذى الجليل ومعلمى القدير الاستاذ @jjafferr ولا كلمة عربى داخل محرر الاكواد جدول خاص للمفرادات العربية المستخدمة كاسماء الازرار جدول خاص للرسائل يتم جلب ابيانات منهم وقت الحاجة انا تعبت شوية الموضوع فعلا لم يكن بالسهولة التى توقعتها ولكن هذه محاولتى الاولى انتظر رأى الاستاذ @jjafferr بعد الاطلاع على المرفق فى الية العمل التى انتهجتها بس اللذيذ والممتع بخلاف الابتعاد عن مشاكل اللغة العربية داخل المحرر سهولة تغيير الرسائل والتحكم بها من الجداول دون الحاجه لفتح التصميم dbskn(4).zip

الأستاذة @AlwaZeeR @ابا جودى شكرا لكم تم الحل معكم ربي يحفظكم

السلام عليكم, لكثرة سؤال الاخوان حول موضوع الصلاحيات, تفضلو قمت بعمل مثال صغير لكم. Permissions.accdb

الله الله على بساطتك أخانا الفاضل ابوخليل أول ملاحظة إن جاز التعبير .. بفرض المتاح من سلعة معينة 10 قطع .. ففى عملية البيع إذا اخترت هذه السلعة وأخرجت منها 6 قطع ثم فى السطر التالي أخرجت من نفس السلعة 6 قطع أخرى فإنه يقبل ذلك ويكون الرصيد بالسالب (فى مثالى هذا -2) فمن وجهة نظرى المحدودة أرى أن يتم عمل رسالة تفيد بأن الرصيد المتاح لا يكفى ويتم عمل تراجع عن آخر عملية. جزاك الله عنا كل خبر.

تفضل اخى الكريم بنفس معادلة الأستاذ إبراهيم بعد تعديل بسيط جدا =IF(C2="","",IF(MID(REPLACE(C2,1,LEN("فاتورة بيع"),""),1,3)=" AC"," ابواب ",IF(MID(REPLACE(C2,1,LEN("فاتورة بيع"),""),1,3)=" CH","كابينات",IF(MID(REPLACE(C2,1,LEN("فاتورة بيع"),""),1,3)=" YK","سطح ","متفرقة")))) استخراج الصنف.xlsm

Input Mask

Like "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]" ضع هذا السطر فى Validation Rules قواعد التحقق من الصحة

برمجة صندوق الرسائل واقصد هنا برمجته بمعنى الكلمة وليس استدعاءه قبل فترة كنت اتمنى تعريب صندوق الرسائل بحثت ووجدت الامثلة المختلفة ودمجتها مع بعص التعديلات وكانت النتيجة رائعة جدا ومرضية بنسبة 100 % الى ان توقفت فجأه وكان السبب خاصية النموذج المنبثق POP UP ان كانت فعاله يتوقف تعريب الازرار حزنت كثيرا ومع ذلك لم افقد الامل ومع البحث على الانترنت وجدت هذه الاكواد التى تخص الفيجوال بيزك http://www.vbforums.com/showthread.php?840593-Message-Box-with-Four-Buttons عدلت بالقدر الذى يتناسب معى النتيجة مرضية كانت مرضية فى بادئ الامر ولكن المشكلة وضعت الامر الذى اريد تنفيذه داخل الموديول عند الضغط على الزر من صندوق الرسائل اعرف ان هذا عبث منى لان الاحداث التى نريدها بعد الضغط على الزر تختلف يوجد حل مبدئيا ولكم مرهق ان لا يكون الجزء من الكود والذى استدعيه فى النموذج من خلال الموديول بل يكون على النموذج مباشرة المشكله فى ذلك - الكود كبير -لابد من وجوده مع كل حدث مختلف يعنى قد نحتاج الى تكراره اكثر من مره داخل النموذج هل من حل او حيلة عند اساتذتى الافاضل هذا هو الكود Public Sub MyMsg2() Dim md_Earlier As MSGBOXDATA_Earlier Dim md_Later As MSGBOXDATA_Later Dim lBtn(2) As Long Dim sTxt(2) As String Dim iRet As Long ' sTxt(0) = "موافق" lBtn(0) = 1 sTxt(1) = "إلغاء" lBtn(1) = 2 ' ' windows Vista and below use earlier structure. If WindowsVersion() < 61 Then With md_Earlier With .params .cbSize = LenB(md_Earlier.params) .lpszText = StrPtr("Text of the message within windows Vista and below use earlier structure") .lpszCaption = StrPtr("Title of the message windows Vista") .dwStyle = vbMsgBoxRtlReading + vbMsgBoxRight Or vbYesNo End With .DefButton = 0 ' >>--> DefaultButtonOfMsgBox .CancelId = 2 ' >>--> Select the Cancel button .cButtons = 2 ' >>--> NumberButtonsOfMsgBox .pidButton = VarPtr(lBtn(0)) .ppszButtonText = VarPtr(sTxt(0)) .Timeout = -1 End With iRet = SoftModalMessageBox_Earlier(md_Earlier) 'MsgBox "Returns the default value of the Button: " & Format$(iRet) ' 'Execute the command after clicking Select Case Format$(iRet) Case Is = 1 'MsgBox "You are now clicking the OK button" DoCmd.SetWarnings False DoCmd.OpenQuery "qq" DoCmd.SetWarnings True Case Is = 2 'MsgBox "You are now clicking the cancel button" End Select ' windows 7 and higher use higher structure.------------------------------------------------------ Else With md_Later With .params .cbSize = LenB(md_Later.params) .lpszText = StrPtr("Text of the message within windows 7 and higher use higher structure") .lpszCaption = StrPtr("Title of the message windows 7") .dwStyle = vbMsgBoxRtlReading + vbMsgBoxRight Or vbYesNo End With .DefButton = 0 ' >>--> DefaultButtonOfMsgBox .CancelId = 2 ' >>--> Select the Cancel button .cButtons = 2 ' >>--> NumberButtonsOfMsgBox .pidButton = VarPtr(lBtn(0)) .ppszButtonText = VarPtr(sTxt(0)) .Timeout = -1 End With iRet = SoftModalMessageBox_Later(md_Later) 'MsgBox "Returns the default value of the Button: " & Format$(iRet) 'Execute the command after clicking Select Case Format$(iRet) Case Is = 1 'MsgBox "You are now clicking the OK button" DoCmd.SetWarnings False DoCmd.OpenQuery "qq" DoCmd.SetWarnings True Case Is = 2 'MsgBox "You are now clicking the cancel button" End Select End If End Sub الكود ينقسك الى قسمين اولا الذى يخص انظمة التشغيل ويندوز فيستا او الادنى منها اصدارا الجزء الثانى الذى يخص انظمة التشغيل ويندوز سفن والاعلى منه اصدارا الجزء من الكود الذى يخص تنفيذ الامر عندما تختر من الرسالة الذغط على زر موافق Select Case Format$(iRet) Case Is = 1 'MsgBox "You are now clicking the OK button" DoCmd.SetWarnings False DoCmd.OpenQuery "qq" DoCmd.SetWarnings True Case Is = 2 'MsgBox "You are now clicking the cancel button" End Select المشكلة التى لاحظتها الان يمكن فتح الرسالة اكثر من مرة او فتح رسالة اخرى معها برمجة صندوق الرسائل.mdb

السلام عليكم ورحمة الله تعالى وبركاته من منا يمل من كثرة استخدام الرسائل مثلى ويظل يفكر فى كل مرة كيف سيكتب الكود المناسب الان موديول واحد به الحل النهائى المرن فى التعامل مع الرسائل وحتى لا ننسي الفضل لاصحاب هذا العمل الحقيقين الاستاذ @أبو هادي >>----> تعريب الصندوق الاستاذ @ابوخليل >>----> تعريب الصندوق الاستاذ @أبو آدم >>----> تلوين محتوى الرسالة هذا المثال الذى اهديه لكم هو خلاصة دمج الاكواد المستخدمة من كل معلم من هؤلاء العظماء مع بعض التطوير البسيط الذى لا يذكـر اصلا والذى فقط يضفى المرونة فى سهولة استدعاء الكود داخل اى نموذج مع مرونة التغيير فى اضافات الرسالة او عنوان الرسالة حسب متطلبات المبرمج - ملاحظة للمرة الاولى احاول التوفيق بين الأكواد التى تعمل على كل من النواتين 64 بيت والـ 32 بيت ولا اعلم صراحة هل وفقت فى ذلك ام لا شرح سريع لمحتوى المثال المرفق اولا أكواد الموديول هذا الكود للاستاذ الجليل الاستاذ @أبو آدم '---- اللألوان -------------------------------------------------------------------------------- #If Win64 Then Declare PtrSafe Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Declare PtrSafe Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long #Else Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long #End If Public DefaultColour As Long Public Const COLOR_WINDOWTEXT As Long = 8 Public Const CHANGE_INDEX As Long = 1 طريقة استخدام الكود بالاستدعاء داخل اى مكان بالبرنامج DefaultColour = GetSysColor(COLOR_WINDOWTEXT) ' تخزين لون ثيم النظام الافتراضي SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbRed ' اضبط لون ثيم النظام على اللون الأحمر MsgBox "you welcome in officena forums", , "welcome" ' كود الرسالة SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, defaultColour ' استعادة القيمة الافتراضية بعد اغلاق الرسالة الشرح تفصيلا لكل سطر بالكود DefaultColour = GetSysColor(COLOR_WINDOWTEXT) هذا السطر لحفظ تنسيق الالوان المستخدم فى ثيم الويندوز ثم SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbRed هذا يغير اعدادت ثيم الويندوز لتغير لون الكتابة الى اللون الاحمر طبعا يمكن تغيير اللون كيفما تريد بتغير vbRed الى ما تريده انت ثم نكتب الرسالة داخل الكود المخصص لها مثلا MsgBox "you welcome in officena forums", , "welcome" ثم بعد عرض الرسالة العودة مرة اخرى للون المفضل لثيم الويندوز والذى اختفظنا به فى الجزء الاول من الكود SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, DefaultColour وبهذا انتهى جزء تلوين محتوى النص للرسالة الجزء الثانى من الكود داخل الموديول والخاص بتعريب الأزرار الاستاذ @ابوخليل / الاستاذ @أبو هادي #If Win64 Then Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare PtrSafe Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long #Else Declare Function GetCurrentThreadId Lib "kernel32" () As Long Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long #End If Private m_hHook As Long Const IDOK = 1 Const IDCANCEL = 2 Const IDABORT = 3 Const IDRETRY = 4 Const IDIGNORE = 5 Const IDYES = 6 Const IDNO = 7 Const IDCLOSE = 8 Const IDHELP = 9 Const WH_CBT = 5 Const GWL_HINSTANCE = (-6) Const HCBT_ACTIVATE = 5 Public Sub MessageBoxFullArabicButtons(hwndThreadOwner As Long) Dim hInstance As Long Dim hThreadId As Long hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE) hThreadId = GetCurrentThreadId() m_hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, hInstance, hThreadId) End Sub Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If uMsg = HCBT_ACTIVATE Then SetDlgItemText wParam, IDOK, "موافق" SetDlgItemText wParam, IDCANCEL, "إلغاء" SetDlgItemText wParam, IDABORT, "إحباط" SetDlgItemText wParam, IDRETRY, "إعادة" SetDlgItemText wParam, IDIGNORE, "تجاهل" SetDlgItemText wParam, IDYES, "نعم" SetDlgItemText wParam, IDNO, "لا" SetDlgItemText wParam, IDCLOSE, "إغلاق" SetDlgItemText wParam, IDHELP, "مساعدة" UnhookWindowsHookEx m_hHook End If MsgBoxHookProc = False End Function الجزء التالى هو بناء كود عام للرسالة حتى يسهل استخدامه باستدعائه بكل سهولة فى جميع نماذج البرنامج Public Function MyMesg(Mesgtxt As String, _ Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional ByVal Title As String = "تطوير صندوق الرسائل العربى من منتديات اوفيسنا", _ Optional ByVal HelpFile As Variant, _ Optional ByVal Context As Variant) As VbMsgBoxResult MessageBoxFullArabicButtons Application.hWndAccessApp MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title) End Function نلاحظ الاتى بوجه عام هذا الكود تم تصميمه على ان يكوم اقتراضيا بهذا الشكل الرسالة بسيطة تحتوى على زر امر واحد Buttons As VbMsgBoxStyle = vbOKOnly عنوان الرسالة الإفتراضى Title As String = "تطوير صندوق الرسائل العربى من منتديات اوفيسنا" الجزء من الكود هذا MessageBoxFullArabicButtons Application.hWndAccessApp الذى يستدعى تعريب الازرار السطر الاخير البناء الطيعى لتكوين كود الرسالة بالاضافات التى يفضلها المبرمج MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title) طريقة استخدام الكود بالاستدعاء داخل اى مكان بالبرنامج MyMesg "منتديات أوفيسنا ترحب بكم" لتغيير العنوان الافتراضى MyMesg "منتديات أوفيسنا ترحب بكم",,"العنوان الجديد كما تريد" استخدام الاضافات لتغيير الازرار مثلا MyMesg "هل أعجبتك هذه الترجمة و التعديلات والأفكار؟", vbYesNo مع عنوان مخصص MyMesg "هل أعجبتك هذه الترجمة و التعديلات والأفكار؟", vbYesNo,"عنوان جديد" والان وصلنا الى نهاية الموضوع اسأل الله تعالى ان يرزق اساذتنا العظماء الذين كان لهم الفضل فى هذا الموضوع البركة فى العمر والعلم والرزق والاهل والولد اللهم اغفر لهم ولوالديهم واللهم احسن اليهم كما احسنوا هم الينا اللهم تقبل اعمالهم يارب العالمين فى موازين اعمالهم وضاعف حسناتهم و الاجر اضعافا مضاعفة يارب العالمين اللهم ارفع درجاتهم فى أعلى درجات الجنان ودرجاتهم والديهم يارب العالمين امين امين امين Full Arabic Message Box.accdb Full Arabic Message Box.mdb

نفس الكلام اخي, صممه على شكل Form العملية ابسط مما تتخيل.

صمم شكل الرسالة الذي يعجبك على شكل Form ثم استدعيه.

طريقة جميلة, احسنت عزيزي, سبق وطرحت موضوع عن MessageBox بطريقة مختلفة. الموضوع يخص Visual .NET

وعليكم السلام من فضلك وضح المطلوب بكل دقة فالمعادلة تعمل بكل دقة معى وليس بها اية مشاكل

@ابا جودى شكرا جزيلا

حشى لله ان تكون كذلك فأنت من أجمل العقول النيرة التي صادفتها في هذا الصرح العظيم اليك مثال وتطبيق لما ذكرت بما سمح الوقت PopMsgTest1.mdb

قم بعمل call للكود فى الحدث المناسب لك Private Sub TYPE1Value() Select Case RTYPE Case Is = "mk" TYPE1 = 9 Case Is = "KR" TYPE1 = 7 Case Is = "BG" TYPE1 = 3 End Select End Sub مثلا Private Sub RTYPE_AfterUpdate() Call TYPE1Value End Sub او Private Sub Form_Current() Call TYPE1Value End Sub

انا غبى كيف لم افكر ب select case جزاكم الله خيرا كل الشكر والتقدير لكم استاذى الجليل ومعلمى القدير استاذ @AlwaZeeR

من النموذج A ان كان مربع النص x عند الضغط على زر الامر يأتى نموذج الرساله ليخبرنا انه فارغ وعند الضغط على موافق لا يحدث شئ ومن النموذج B عند الضغط على زر الامر يأتى نفس نموذج الرساله ليخبرنا انه سوف يتم تشغيل استعلام الحاق وعند الضغط على موافق يتم تشغيل الاستعلام ان اى نموذج الرساله واحد وعليه زر امر واحد وعند استدعاءه فى كل مره من اى نموذج ينفذ هذا الزر امرا مختلفا حسب الحاجة كيف نفعل هذا

أ @عبد اللطيف سلوم الأمر لا يرجع لي بل هذه طريقة الأستاذ العبادي في إدخال بيانات المستخدمين في نظام صلاحياته والتي تتم كلها عبر الربط والتواصل بين اكواد الاستعلامات بداخل نموذج المستخدمين وبين أسماء الكائنات وهنا الإشكال والذي يحتاج لتدخل المحترفين من الأخوة المبرمجين الذين لديهم خبرة في التعامل مع هذا النظام لتركيب الصلاحيات

أ @عبد اللطيف سلوم هذه ليست مشكلة في اللغة ولكنها تشفير معروف في نظام صلاحيات العبادي لكلمتي الدخول والمرور المهم الآن هو المساعدة ولو بالتوجيه في حل إشكال عدم حفظ أو تسجيل البيانات المدخلة لمستخدم جديد في خلال الفورم Users في جدول المستخدمين رغم أن الإدخال يتم دون أي رسائل خطأ ولكن النتيجة العملية أن البيانات لا تحفظ أو تسجل في الجدول

الأستاذ عب اللطيف الغالي على ما اعتقد لا نستطيع التحكم بحجم الرسالة وخاصة التي تطلبها بل نستطيع التحكم بمكانها فقط والله اعلم، وكل يوم جديد وقد يكون احد الاخوة قرأ انه يمكن تغييرها ونستفيد كلنا من ذلك المهم: دائما هناك بدائل نستطيع استخدامها والتعويض عن أي نقص برمجي لا نستطيع الوصول اليه طرح الاخوة طروحات رائعة وتستطيع استخدامها بما يناسب حاجتك بخصوص هذه المداخلة عزيزي الطيب أبا جودي اليك انت ولكل الاخوة الافاضل هذا المثال -استخدمه في جميع البرامج الخاص بي- كي تطلع عليه وتستفيد منها نستطيع استخدام نموذج واحد فقط ونمرر اليه عنوان يكتب تحت زر الامر ويمكن التحايل بعد ذلك على ما سيظهر وما سيختفي في نموذج الرسالة المنبثقة والتي هي عبارة عن نموذج كما تفضل الاخوة سابقا PopMsg.mdb

فورم لوضع صورة متحركة للحرووف الهجائية الفيديو الصور

وعليكم السلام جرب المرفق test.accdb

لم أشاهد الشفرة بعد.. لكن هذه العبارة بألف كلمة.. تحياتي لك أستاذ جعفر 😇

وعليكم السلام 🙂 مو جميع اكواد VB6 تعمل في بيئة VBA ، والمشكلة هنا في تعاملك مع ملف user32.dll ، وليس في اعدادات الاكسس. انا احب البساطة في العمل ، ولذلك ، وبدل ان ادخل في اكواد لا افهمها ، ممكن ان اعمل نموذج ليقوم بهذا العمل ، بالاكسس 100% 🙂 جعفر

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

بالفعل أستاذ احمد لو حضرتك لاحظت تم دمج هذه المشاركات بالفعل من قبل هنا لأنهما نفس الطلب ونفس الموضوع

وعليكم السلام-تفضل مشكلة الحضور قبل الموعد في الاكسيل.xlsm

الملف موجود بالفعل هنا ويمكنك تحميله من المنتدى في نفس هذه الصفحة تفضل 2014الفرائض والوصــايا بالأكســل.xlsx

https://www.qodoraat.com/?app=article.show.56&amp;fbclid=IwAR3tvpdlAst8E0jw7GLSesGyuinT0Zp_aEg1Dx37es23Ae3oDfT4iGipyZA

غابا يجتاج الباحث الي تعديل تنسيق ما ذكر بين الأقواس ليجعله بخط مائل و للتطبيق على كافة محتويات الملف دفعة واحدة و ليست المنطقة المختارة فقط Sub FormatBetBracketsWholeDoc() Dim cDoc As Word.Document Dim cRng As Word.Range Set cDoc = ActiveDocument Set cRng = cDoc.Content cRng.Find.ClearFormatting With cRng.Find .Forward = True .Text = "(" .Wrap = wdFindStop .Execute Do While .Found cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd cRng.MoveEndUntil Cset:=")", Count:=Word.wdForward cRng.FormattedText.Italic = True cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd .Execute Loop End With End Sub و يمكن ايضا عمل ذلك بعدة طرق بديلة كما هو فى الموضوع الأصلي

التوفيق ...