kaser906

عند انشاء او اضافة مستخدم جديد للنظام

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

☝️

أخي الكريم لقد طرحت الموضوع سابقا ولم تجد اجابه والسبب في اعتقادي ان مرفقك يحتاج اعادة صياغة بالكامل ::بالتوفيق::

شوف هذا الموضوع قريب لطلبك مع ملاحظة نموذج التعديل يختلف عن نموذح الاضافة ::بالتوفيق::

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

جزاك الله خير لاتنسى التأشير بتمة الاجابة ::بالتوفق::

تفضل كود فتح نموذج تعديل كلمة السر On Error GoTo Err_Orders1_Click Dim x As Integer x = DLookup("SN", "users_T", "deCode([UName],'User')='" & Trim(MyUser.USERNAME) & "'") DoCmd.OpenForm "UsersChangePassword_F", , , , , acDialog, x Exit_Orders1_Click: Exit Sub Err_Orders1_Click: MsgBox Err.Description Resume Exit_Orders1_Click وهذا الكود لتعديل كلمة السر بعد التأكد من المطابقة If IsNull([paas]) Then MsgBox "أدخل كلمة المرور hgshfrm", 48, "نقص بالإدخال" Exit Sub ElseIf Me.paas <> Me.Pww Then MsgBox "كلمة المرور السابقة غير مطابقة", 48, "خطأ بالادخال" Exit Sub ElseIf IsNull([PW]) Or IsNull([CPW]) Or [PW] <> [CPW] Then MsgBox "كلمة المرور الجديدة غير متطابقة" + vbCr + "أو أنها فارغة" + vbCr + "الرجاء إعادة كتابة كلمة المرور", vbOKOnly + vbMsgBoxRight + vbExclamation, "خطأ بالإدخال" Exit Sub ElseIf [CPW] = [Pww] Then MsgBox "كلمة المرور الجديدة" + vbCr + "هي نفسها كلمة المرور القديمة " + vbCr + "أدخل كلمة مرور مختلفة ", 48, "خطأ بالادخال" Exit Sub ElseIf Len([CPW]) < 4 Then MsgBox "يجب أن تتكون كلمة المرور " + vbCr + "من أربعة ارقام او حروف على الاقل", 48, "ادخـال خـاطـئ !" Exit Sub Else DoCmd.RunSQL "UPDATE Users_T SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' WHERE ( SN=" & Str(UNUM) & ");" MsgBox "تم تغيير كلمة المرور بنجاح", vbInformation, "تنفيذ" DoCmd.Close End If تم عمل مربعي نص غير منظمين إليك المرفق ::بالتوفيق:: Kaser906 صلاحيات المستخدمين.rar

اذن يجب ان تطلب صلاحيات من قسم الـ IT ::بالتوفيق::

اعمل مجلد جديد في أي مكان تريد وضع به برنامجك ثم اختار المجلد حسب الشرح بالصور ويمكنك ايضا اختيار المجلد الذي يوجد به برنامجك مباشرة ::بالتوفيق::

ويمكنك ايضا اضافة الكود في نهاية كود زر الحفظ اذا كان موجود عندك

الف مبروك استاذ خالد منها للأعلى إن شاء الله

DoCmd.GotoRecord , , acNewRec

اضف مستخدم جديد وستجد ان النموذج في قائمة النماذج واذا اردت اضافة النموذج للمستخدمين القدامى اضف اسم النموذج بالجدول Frm Ability واضف معرف المستخدم بالحقل SN ::بالتوفيق::

الحمد والشكر لله ::بالتوفيق:

حسب علمي لايمكن اصلاح هذه الرسالة في القاعدة الحالية قم بعمل قاعدة بيانات جديدة ثم استورد جميع الكائنات اليها والاهم من ذلك يجب معرفة سبب ظهور هذه الرسالة ::بالتوفيق::

كل مالدي من معلومات انما يعود الفضل فيه بعد الله اليكم استاذي الكريم 🌹

القصد استاذي لازم يكون فيه صلاحية من السيرفر بالصلاحيات لهذه الخاصية جربت سابقا على جهاز مربوط بالدومين وما نجحت وجربته في مكان اخر ونجحت اتضح في الجهاز الاول ان قسم ال It موقف خاصية المواقع الموثوقه من السيرفر حتى لو تم تفعيلها على الجهاز

هذه اهم نقطه من شان تعمل هذه الطريقة

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

في اعتقادي هذا هو السبب لن يعمل معك البرنامج حتى تتواصل مع قسم الـ It بالشركة وتطلب منهم اعطاء صلاحيات لجهازك لتشغيل التطبيقات التي تحتوي على تعليمات برمجية ::بالتوفيق::

بالنسبة لاضافة نموذج جديد قم بوضع اسم النموذج بالجدول FRMS ولا تنسى اضافة الكود للنموذج عند في حدث عند الفتح ::بالتوفيق::

السلام عليكم ورحمة الله وبركاتة هل الاجهزة لديكم بالشركة مربوطة بدومين ؟

السلام عليكم ورحمة الله وبركاتة اضافة استاذي الكريم فقط تستطيع العودة للحصول على الرقم 2 بشرط حذف السجل رقم 3 وعمل ضغط واصلاح للقاعدة

أولا تأكد من إعدادات اللغة ثانيا اذا كان الملف بصيغة Accde أو mde انقل الى جهازك الملف قبل التحويل وقم بتحويله من جهازك او تشغيله مباشرة ::بالتوفيق::