[hglogtd]

كود :

Dim value As String
       value = InputBox("صلاحية خاصة", "الحذف", "ادخل الرقم السري")

       If value = "123" Then



       BindingSource.RemoveCurrent()





       Else

           MsgBox("الرقم خطأ", vbOKOnly + vbCritical, "تحذير")

       End If

   End Sub

مشاركة