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

اضافة اسم المنطقة مع اسم المستخدم وكلمة المرور


الردود الموصى بها

12 ساعات مضت, بلال اليامين said:

عند ملء المستخدم  يمسح له بحفظ المعلومات والطباعة وتظهر له رسالة تنبيه فيها اسمه

و عند ترك المستخدم  الحقول فارغة لا يمسح له بحفظ المعلومات والطباعة

 وتجدون البرنامج لتعديل

الموظف.rar 97.08 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

الأخ بلال ما فهمته أنا منك انك تريد لا يتم الدخول إلا إذا أدخل اسم المستخدم بشكل صحيح ثم كلمة المرور ثم المنطقة فيؤذن له بالدخول وإذا اخطأ في كتابة احدهم لا يسمح له بالدخول 

أرجو تجربة المثال المرفق 

اسم المستخدم : 1           كلمة المرور : 1           المنطقة : الرياض 

هذا يملك الصلاحيات من تعديل وإضافة 

المستخدم الاخر : 

اسم المستخدم : 2           كلمة المرور : 2           المنطقة : جدة

لا يملك فتح نافذة FRM1 

أو التعديل أو الإضافة 

بإمكانك إضافة ما تريد بنفس الطريقة المتبعة في الجدولين 

tbl_fbi

tbl_User

وأيضا بالاستعلامين وهما مهمين 

q_fbi

QUSERS

وفي هذه الجداول والاستعلامات تكمن الصلاحيات 

وقبل إضافة مستخدم يجب إضافة المنطقة أولا التابع لها وبعد إضافة المنطقة تتجه لإضافة مستخدم جديد 

وإضافة مستخدم من مسؤولية الآدمن وليس من مسؤولية المستخدمين يعني باليوزر رقم 1 تدخل 

بإمكانك تحويل المستخدم إلى آدمن عن طريق نافذة الآدمن 

 

أتمنى اني وفقت في ذلك 

والله اعلم 

 

 

الصلاحيات.accdb

تم تعديل بواسطه مسفر
رابط هذا التعليق
شارك

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

اخي مازال الحقول الالزامية 

عند ملء معلومات المستخدم  يمسح له بحفظ المعلومات والطباعة وتظهر له رسالة تنبيه فيها اسمه

و عند ترك المستخدم  الحقول فارغة لا يمسح له بحفظ المعلومات والطباعة

تجد نموذج ملء معلومات المستخدم  في البرنامج الموظف الذي ارسلته من قبل 

تم تعديل بواسطه بلال اليامين
رابط هذا التعليق
شارك

في ٢٨‏/٧‏/٢٠١٩ at 01:15, بلال اليامين said:

 

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

اخي مازال الحقول الالزامية 

عند ملء معلومات المستخدم  يمسح له بحفظ المعلومات والطباعة وتظهر له رسالة تنبيه فيها اسمه

و عند ترك المستخدم  الحقول فارغة لا يمسح له بحفظ المعلومات والطباعة

تجد نموذج ملء معلومات المستخدم  في البرنامج الموظف الذي ارسلته من قبل 

 

 

تم تعديل بواسطه بلال اليامين
رابط هذا التعليق
شارك

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

اخي لقد وضعة نافذة اسمها  الرئيسية  اريد تثبت الازرار  وهذا 

عند ما يقوم المستخدم بملء معلومات الخاص به  يمسح له بحفظ المعلومات والطباعة وتظهر له رسالة تنبيه فيها اسمه

عند ما يقوم المستخدم بترك  الحقول فارغة لا يمسح له بحفظ المعلومات والطباعة

وبارك الله فيك 

الصلاحيات المستخدمين.rar

رابط هذا التعليق
شارك

10 ساعات مضت, بلال اليامين said:

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

اخي لقد وضعة نافذة اسمها  الرئيسية  اريد تثبت الازرار  وهذا 

عند ما يقوم المستخدم بملء معلومات الخاص به  يمسح له بحفظ المعلومات والطباعة وتظهر له رسالة تنبيه فيها اسمه

عند ما يقوم المستخدم بترك  الحقول فارغة لا يمسح له بحفظ المعلومات والطباعة

وبارك الله فيك 

الصلاحيات المستخدمين.rar 171.53 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

أرجو يا اخ بلال استخدام اللغة الإنجليزية في المسميات سواء الحقول او النماذج أو غيرها 

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

جرب الدخول باسمك في المنتدى 

كلمة المرور : 1 

المنطقة : الرياض 

وانظر لكيفية وضع الصلاحيات واعمل بمثلها لكل ما تريد 

الصلاحيات_المستخدمين.accdb

رابط هذا التعليق
شارك

اخي وضع هذا كود لملء جميع الحقول 

Option Compare Database
Dim ii As Byte
Private Sub NoEmptyTexts()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If IsNull(ctl) Or ctl = "" Then
ii = 1
MsgBox "تنبيه الرجاء ملء جميع الخانات اجباري"
DoCmd.CancelEvent
ctl.SetFocus
Exit For
Else
ii = 2
End If
End If
Next ctl
End Sub

Private Sub Commande60_Click()
Call NoEmptyTexts
If ii = 1 Then
Exit Sub
DoCmd.CancelEvent
Else
Me.Refresh
MsgBox " تمت عملية تعديل معلومات الموظف الرمز الوظيفي" & "" & Me.sname & "" & " " & "" & usr_, _
    vbInformation, _
    "تنبيه"
End If
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub Form_Open(Cancel As Integer)
 

تم تعديل بواسطه بلال اليامين
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information