افراغ الحقول

[بلال اليامين]

السلام عليكم

اريد عند الضغط على زر اضغط تظهر لك نمو\ج اريد عند الضغط على الزر تحديث يتنم نسخ البيانات وافراغ الحقول بالون الاحمر

 

333.rar

[بلال اليامين]

السلام عليكم

عند الضغط على زر اضغط تظهر لك نمو\ج اريد عند الضغط على الزر تحديث يتنم نسخ البيانات وافراغ الحقول بالون الاحمر

[د.كاف يار]

تفضل اخي الكريم

اضف ازرار افراغ الحقول

اضف هذا الكود في الأزرار

Dim ctlNull As Control, I As String, X As Integer
   For Each ctlNull In Me.Controls
   If ctlNull.ControlType = acTextBox Or ctlNull.ControlType = acComboBox Then
   ctlNull = Nul
   End If
   Next ctlNull

 

[بلال اليامين]

السلام عليكم 

اخي الكريم هذا الكود لنسخ البيانات اريد اضافة له افراغ الحقول 

اخي ثلاثة حقول

On Error GoTo Error_ErrorZ
    If Len(Me.B1 & vbNullString) = 0 Or Len(Me.B2 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then
    
    Else
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query11"
    DoCmd.SetWarnings True
'    MsgBox "Done", vbInformation

     Forms![عنصر_تحكم_علامة_جدولة0].Form![نموذج2].Requery
     Forms![عنصر_تحكم_علامة_جدولة0].Form.Requery
     DoCmd.RunCommand acCmdRefresh

     
     
End If
    
Error_ErrorZ:
    MsgBox "تمت العملية بنجاح", vbInformation

[د.كاف يار]

لا اخي الكريم هذا لإفراغ البيانات جرب و اعطيني النتايج

أو ارفق البرنامج لكي يتم التعديل عليه

تم تعديل أغسطس 19, 2020 بواسطه د.كاف يار

[بلال اليامين]

البرنامج- (1).rarاليك البرنامجالبرنامج- (1).rar

البرنامج- (1).rar

تم تعديل أغسطس 19, 2020 بواسطه بلال اليامين

[husamwahab]

مشاركة مع استاذ د.كاف يار

تفضل اخ بلال 

ارجو ان يكون طلبك 

البرنامج-22.rar

[بلال اليامين]

بارك الله فيك