محسن خليل قام بنشر يناير 2 مشاركة قام بنشر يناير 2 السلام عليكم لدي نموذج في الاكسس اريد ان يتم منع التعديل عند فتح النموذج ادخلت الكود التالي عند حدث عند التحميل ولكن لم يعمل حيث عند فتح النموذج لا يزال يمكنني التعديل اريد مساعدة وجزاكم الله خير جزاء الكود الذي الذي استخدمته Me.AllowEdits = False رابط هذا التعليق شارك More sharing options...
أفضل إجابة safaa salem5 قام بنشر يناير 2 أفضل إجابة مشاركة قام بنشر يناير 2 9 minutes ago, محسن خليل said: السلام عليكم لدي نموذج في الاكسس اريد ان يتم منع التعديل عند فتح النموذج ادخلت الكود التالي عند حدث عند التحميل ولكن لم يعمل حيث عند فتح النموذج لا يزال يمكنني التعديل اريد مساعدة وجزاكم الله خير جزاء الكود الذي الذي استخدمته Me.AllowEdits = False Private Sub Form_Current() If Me.NewRecord Then Me.AllowEdits = True Else Me.AllowEdits = False Me.AllowDeletions = False End If End Sub رابط هذا التعليق شارك More sharing options...
محسن خليل قام بنشر يناير 2 الكاتب مشاركة قام بنشر يناير 2 شكرا جزيلا على الرد ولكن كتبت الكود لكن لم يعمل رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يناير 2 مشاركة قام بنشر يناير 2 13 minutes ago, safaa salem5 said: Private Sub Form_Current() If Me.NewRecord Then Me.AllowEdits = True Else Me.AllowEdits = False Me.AllowDeletions = False End If End Sub ياما انت كريم يارب اخيرا حليت حاجه صح بقولك ايه لو بعد شويه الكود وقف ماليش دعوه ماتحطمش معنوياتى Just now, safaa salem5 said: ياما انت كريم يارب اخيرا حليت حاجه صح بقولك ايه لو بعد شويه الكود وقف ماليش دعوه ماتحطمش معنوياتى لو بتسجل جديد هيفتح لو بتعدل على سجل قديم هيمنع انا مجرباه والله 1 minute ago, safaa salem5 said: ياما انت كريم يارب اخيرا حليت حاجه صح بقولك ايه لو بعد شويه الكود وقف ماليش دعوه ماتحطمش معنوياتى لو بتسجل جديد هيفتح لو بتعدل على سجل قديم هيمنع انا مجرباه والله الصق الكود عند التحميل 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 2 مشاركة قام بنشر يناير 2 Private Sub Form_Open(Cancel As Integer) ' منع التعديل Me.AllowEdits = False End Sub رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يناير 2 مشاركة قام بنشر يناير 2 جرب دا كدا Dim intnewrec As Integer intnewrec = Form.NewRecord If intnewrec = 0 Then Me.AllowEdits = False Else Me.AllowEdits = True End If رابط هذا التعليق شارك More sharing options...
محسن خليل قام بنشر يناير 2 الكاتب مشاركة قام بنشر يناير 2 1 hour ago, safaa salem5 said: جرب دا كدا Dim intnewrec As Integer intnewrec = Form.NewRecord If intnewrec = 0 Then Me.AllowEdits = False Else Me.AllowEdits = True End If شكرا على المجهود اين اضع هذا الكود في الحالي ام عند التحميل وشكرا رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر يناير 3 مشاركة قام بنشر يناير 3 (معدل) السلام عليكم في البداية من تصميم النموذج نعمل الاتي: ثم مفتاح امر في النموذج ونضع الكود الاتي عند الرغبة في تعديل البيانات او الحذف او غيرها ولكن يمكن الاضافة Me.AllowEdits = Not Me.AllowEdits Me.Recalc تم تعديل يناير 3 بواسطه شامل2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان