ممكن عملها بطريقة أخرى .... وهي أن المربع الاختيار يكون موجود للجميع ... لكن عند اختيار وظيفة معينة يتم وضع علامة صح امام جميع من يمثل تلك الوظيفة ....
اعمل زر وضع هذا الكود في حدث عند النقر
Dim Warning As String
Warning = MsgBox("أنت الآن على وشك مسح البيانات فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير")
If Warning = vbYes Then
On Error GoTo Err_Handler
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
ctl.Value = ""
End If
Next ctl
Exit_Handler:
Set ctl = Nothing
Exit Sub
Err_Handler:
Resume Exit_Handler
Else
DoCmd.CancelEvent
يا اخي مشكلة زرار الاستيراد في مسميات حقول الاكسل بالعربي وعند الاستيراد لا يستورد بسبب اختلافها مع جدول الاكسس ... لذلك قلت لك استبدلها بهذا الكود الذي يصدر بنفس مسميات الحقول الموجودة في الاكسس .. حتى لا يتسبب في خطأ عند الاستيراد ...
أخي بلال أذا كنت لا تحتاج الاكواد فاستخدم طريقة جعل مصدر البيانات استعلام أسرع لك ..... وان كنت مصرا على الأكواد فانظر المثال التالي.......
Nouveau Microsoft Access قاعدة بيانات - kan.accdb