الأحمري قام بنشر أبريل 8, 2017 مشاركة قام بنشر أبريل 8, 2017 السلام عليكم عندي مستخدمين user1 user2 * عند ادخال بيانات من قبل user1 * يشاهد user2 البيانات ولكن لا يستطيع التعديل عليها أو الحذف كيف الطريقة مع الشكر . رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر أبريل 8, 2017 مشاركة قام بنشر أبريل 8, 2017 السلام عليكم إطلع على هذه المشاركة بها ما تحتاج 3 رابط هذا التعليق شارك More sharing options...
الأحمري قام بنشر أبريل 9, 2017 الكاتب مشاركة قام بنشر أبريل 9, 2017 جزاك الله خيرا اخي لكن هل من طريقة لعمل الآتي / User1 / يستطيع الاضافة ... يستطيع التعديل والحذف على ما اضافه بيوزره فقط .. ايضا User2 نفس الحال يستطيع الاضافة.. والتعديل والحذف على البيانات المدخله بواسطة يوزره . رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 9, 2017 مشاركة قام بنشر أبريل 9, 2017 2 ساعات مضت, الأحمري said: جزاك الله خيرا اخي لكن هل من طريقة لعمل الآتي / User1 / يستطيع الاضافة ... يستطيع التعديل والحذف على ما اضافه بيوزره فقط .. ايضا User2 نفس الحال يستطيع الاضافة.. والتعديل والحذف على البيانات المدخله بواسطة يوزره . فی المحرر فیجوال للنموذج عند الحالي اكتب الكود اذا حقل اليوزر اللي في ريكورد يساوي ب يوزر الحالي اذاً اذن بالتعديل يساوي نعم اذن بالحذف يساوي نعم والا اذن بالتعديل يساوي لا اذن بالحذف يساوي لا انتهى تحياتي 4 رابط هذا التعليق شارك More sharing options...
king5star قام بنشر أبريل 9, 2017 مشاركة قام بنشر أبريل 9, 2017 هذا لمنع الحذف Private Sub Form_Delete(Cancel As Integer) DoCmd.SetWarnings False If User_Num = 1 Then If MsgBox("لا يمكن حذف هذا المستخدم") = vbOK Then DoCmd.CancelEvent On Error Resume Next End If End If DoCmd.SetWarnings True End Sub وهذا لمنع التعديل إلا ان يقوم بادخال رقم المدير . Private Sub User_ID_GotFocus() Dim MYP As String MYP = DLookup("[User_Pass]", "User_Inf", acFirst) If User_Num = 1 Then passwd = InputBox("من فضلك أدخل كلمه سر المدير لتغيير اسم الدخول الخاص به") If passwd = MYP Then User_ID.SetFocus Else DoCmd.CancelEvent MsgBox "الرقم الذي إدخلته خاطئ من فضلك التأكد من الرقم السري وإعاده أدخاله" أمر15.SetFocus End If End If End Sub Private Sub User_Pass_GotFocus() Dim MYP As String MYP = DLookup("[User_Pass]", "User_Inf", acFirst) If User_Num = 1 Then passwd = InputBox("من فضلك أدخل كلمه سر المدير لتغيير الرقم السري") If passwd = MYP Then User_Pass.SetFocus Else DoCmd.CancelEvent MsgBox "الرقم الذي إدخلته خاطئ من فضلك التأكد من الرقم السري وإعاده أدخاله" أمر15.SetFocus End If End If End Sub 2 رابط هذا التعليق شارك More sharing options...
الأحمري قام بنشر أبريل 10, 2017 الكاتب مشاركة قام بنشر أبريل 10, 2017 شكرا للجميع جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.