سلام دوستان می خوام وقتی عدد ها در تکست باکس ثبت می شوند وقتی دکمه ثبت را میزنم تکرار تکست باکس را اخطار بدهد و مانع ثبت در شیت گردد تا اخطار رفع گردد مرسی
عدم تکرار در تکست باکس
Collapse
این تاپیک قفل است.
X
X
-
وقتی عملیات ثبت انجام شد تکست مورد نظر را خالی کنید و شرط بذارید که در صورت پر بودن تکست باکس عملیات ثبت انجام بشه
و اگر هم منظور شما به این هست که فقط عدد در تکست باکس وارد شود در هنگام ثبت با دستور ذیر میتوانید چک کنید که اعداد ورودی نامبر هستن یا نه
کد PHP:textbox1=""
کد PHP:If IsNumeric(TextBox1) Then
Last edited by iranweld; 2019/10/16, 10:10. -
فایل پیوست را بررسی کنیدفایل های پیوست شدهکامنت
-
عدد 50 تعداد تکست باکس های موجود در فرم میباشد
کد PHP:Private Sub CommandButton1_Click()
Dim list1 As New Collection
On Error Resume Next
k = 0
For i = 1 To 50
If Me.Controls("textbox" & i) <> "" Then
list1.Add Me.Controls("textbox" & i), CStr(Me.Controls("textbox" & i))
k = k + 1
End If
Next
If k <> list1.Count Then
MsgBox "tekrai"
Else
MsgBox "ok"
End If
End Sub
کامنت
-
باید تعداد تکست باکس های موجود با عدد آخر دستور for برابر باشه یا عدد 50 را برابر تعداد تکست باکس خود قرار دهید
کد PHP:For i = 1 To 50
فایل های پیوست شدهکامنت
کامنت