Private Sub Command1_Click()
</P>
10 N = InputBox(" ", "INTER NUMBER OF EMPLOYEES")</P>
If IsNumeric(N) = False Then</P>
Z = MsgBox("INTER Numeric", vbCritical, "PLEAS"): GoTo 10</P>
End If</P>
Print "N=", N</P>
End Sub</P>ولكم ألف شكر
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم
ممكن تستخدم الأمر Beep وهو يصدر صوت من الجهاز
أو تستخدم Multimedia Control , وقد شرحت مثال لكيفية استخدامها في المنتدى , ابحث عنه
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
ألف شكر وجزاكم الله خير
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم
هذا الموضوع مغلق.