اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

افراغ الحقول


إذهب إلى أفضل إجابة Solved by husamwahab,

الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه د.كاف يار
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information