اريد طريقه لعمل زر cler

[Gamor]

السلام عليكم

شباب كيف اعمل زر cler في النموذج كي لا اطر الى اغلاق البرنامج وفتحه من جديد لعمل تقرير اخر .

ملاحظه: تفريغ حقول النموذج فقط دون المساس بالجدول .

لقد بحثت هنا وهناك وكل ماوجته يحذف البيانات من النموذج والجدول

خالص الود

 

[essam rabea]

DoCmd.GoToRecord , , acNewRec

[kha9009lid]

جرب المرفق

HCT Permit To Work System.mdb

[Gamor]

اخي عصام

لك جزيل الشكر استخدمت الكود وهو فعال

ولاكن يبقي حقل واحد لا يتم تفريغه

اتوقع بسبب ربطه مع حقل اخر

[Gamor]

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

تظهر لى هذه الرسائل

 

1

2

 

شكرا لجهودك اخي ساعتني كثييييير كثيييير

[kha9009lid]

جرب الان

HCT Permit To Work System.mdb

[Gamor]

نفس الوضع

ممكن اصدار اكسس هو المشكلة ؟

2016

[kha9009lid]

جرب حولت الملف للاصدرات الاحدث

المشكلة مالها علاقة بالاصدار وانما الحدث بالخاص بالشريط المتحرك

 

HCT Permit To Work System.accdb

تم تعديل أكتوبر 14, 2019 بواسطه kha9009lid

[Ali Sadiq]

تفضل اخي هذا الكود

بالتوفيق

Dim varFilter As Variant

   varFilter = 0

   With Me.Form

   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
 Else
     .FilterOn = False
 End If
     .Requery
 End With

 

[Gamor]

فيه مشاكل

 

اخي خالد لازالت نفس المشكله

[kha9009lid]

فيه حلول لا تقلق

الاصدار المعدل بالامس هل يعمل بدون مشاكل ?

هنــا

اذا كان يعمل فقط ادخل عرض التصميم واعمل زر امر وضع الكود التالي

On Error Resume Next
DoCmd.GoToRecord , , acNewRec
Me.u_s = Null
Me.sh = Null

وان لم يعمل قم بانشاء قاعدة جديدة فارعة واستورد كافة كائنات القاعدة القديمة

جرب الحل الاول اولا

علما بان الكود المقدم من الاستاذ على يعمل جيد

بالتوفيق

[Gamor]

الكووود شغال ميه ميه شكرا لك والى الاخ علي

[kha9009lid]

العفو في خدمتكم اخي