اخواني السلام عليكم ورحمة الله وبركاته ارجو  المساعده في اخفاء الباسوورد الذي يتضمنه الكود المرفق حيث ليس فيه ( تكست بوكس ) واظهار نجوم بدل الارقام   Private Sub أمر242_Click() Dim pwd As String pwd = InputBox("ادخل كلمة المرور") If pwd = "350" Then DoCmd.OpenForm "امر حذف الملاحظات" Else MsgBox "كلمة مرور خطاء" DoCmd.CancelEvent End If End Sub