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

[MO87]

السلام عليكم ورحمة الله وبركاته 

الاخوه الأفاضل 

عندى ٢ نموذج واحد للمستخدم والاخر للمدير حيث التدقيق والمراجعة من المدير 

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

انا جربت كود 

If me. Filddate > now() then

Me. Allowedits = false 

Else

Me. Allowedits = true

لكن هذا وقف التعديل كامل 

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

[ابو جودي]

ممكن مرفق

[jjafferr]

2 ساعات مضت, MO87 said:

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

 

جرب هذا التعديل

If len(me.Filddate & "")=0 then
    Me.Allowedits = true
else
    Me.Allowedits = false 
endif  

 

جعفر

[MO87]

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

هذا مرفق مشابه @jjafferr

@ابا جودى

MMM.rar

[jjafferr]

2 ساعات مضت, MO87 said:

لكن وقف التعديل كامل على النموذج بعد الحفظ

 

هذا كان طلبك :

16 ساعات مضت, jjafferr said:

  19 ساعات مضت, MO87 said:

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

 

جعفر

[ابو جودي]

واستاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @jjafferr قدم الحل بالتمام  جزاه الله كل الخيـــــــــر

المشكلة عندك انت 

انت ياللى كان مفروض عليك تعرف البرنامج ع الموظفين والمدراء 

 

 

MMM.accdb

تم تعديل ديسمبر 23, 2020 بواسطه ابا جودى

[ابو جودي]

الشرح

- تم عمل موديول للاعلان عن متغير عام 
اسم المتغير العام cJob

- فى نموذج LOGIN 
بعد اتمام المصادقة بالتأكد من اسم وكلمة مرور المستخدم  
نسند الوظيفة الى المتغير العام  
cJob = JOB

- فى النموذج  INSPCDATA
استخدام كود الاستاذ جعفر فى حدث الحالى للنموذج بعد ان قمنا بتعريف البرنامج على الوظائف من خلال المتغير العام cJob كالاتى 

  Select Case cJob
    Case Is = "MANGER"
          Me.AllowEdits = True
    Case Else
      If Len(Me.FDATE & "") = 0 Then
          Me.AllowEdits = True
      Else
          Me.AllowEdits = False
      End If
  End Select

 

[MO87]

@ابا جودى @jjafferr

شكراً جزيلاً لكم بصراحه  الله يبارك فيكم ويحفظكم ويزيدكم علما 

بصراحة فخور جدا انى عضو معاكم في هذا المنتدى 

[ابو جودي]

28 دقائق مضت, MO87 said:

@ابا جودى @jjafferr

شكراً جزيلاً لكم بصراحه  الله يبارك فيكم ويحفظكم ويزيدكم علما 

بصراحة فخور جدا انى عضو معاكم في هذا المنتدى 

اهلا بك فى اسرتنا لنا عظيم الشرف انضمامكم لنا ووجودكم بيننا

تم تعديل ديسمبر 23, 2020 بواسطه ابا جودى