عدم تکرار در تکست باکس

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Ilbar

    • 2017/12/04
    • 7

    [حل شده] عدم تکرار در تکست باکس

    سلام دوستان می خوام وقتی عدد ها در تکست باکس ثبت می شوند وقتی دکمه ثبت را میزنم تکرار تکست باکس را اخطار بدهد و مانع ثبت در شیت گردد تا اخطار رفع گردد مرسی
  • iranweld

    • 2015/03/29
    • 3341

    #2
    نوشته اصلی توسط Ilbar
    سلام دوستان می خوام وقتی عدد ها در تکست باکس ثبت می شوند وقتی دکمه ثبت را میزنم تکرار تکست باکس را اخطار بدهد و مانع ثبت در شیت گردد تا اخطار رفع گردد مرسی
    با سلام

    وقتی عملیات ثبت انجام شد تکست مورد نظر را خالی کنید و شرط بذارید که در صورت پر بودن تکست باکس عملیات ثبت انجام بشه

    و اگر هم منظور شما به این هست که فقط عدد در تکست باکس وارد شود در هنگام ثبت با دستور ذیر میتوانید چک کنید که اعداد ورودی نامبر هستن یا نه

    کد PHP:
    textbox1="" 
    کد PHP:
    If IsNumeric(TextBox1Then 
    Last edited by iranweld; 2019/10/16, 10:10.

    کامنت

    • Ilbar

      • 2017/12/04
      • 7

      #3
      در تکست باکس اول عدد 10 باشد در تکست باکس دوم عدد 10 تکرار بشه اخطار بده که تکراری می باشد

      کامنت

      • iranweld

        • 2015/03/29
        • 3341

        #4
        نوشته اصلی توسط Ilbar
        در تکست باکس اول عدد 10 باشد در تکست باکس دوم عدد 10 تکرار بشه اخطار بده که تکراری می باشد

        فایل پیوست را بررسی کنید
        فایل های پیوست شده

        کامنت

        • Ilbar

          • 2017/12/04
          • 7

          #5
          استاد گرامی اگر این تکست باکس ها مثلا 50 عدد باشه نمیشه این فرمول را براش نوشت راه دیگری نیست؟

          کامنت

          • iranweld

            • 2015/03/29
            • 3341

            #6
            نوشته اصلی توسط Ilbar
            استاد گرامی اگر این تکست باکس ها مثلا 50 عدد باشه نمیشه این فرمول را براش نوشت راه دیگری نیست؟
            این کد را تست کنید

            عدد 50 تعداد تکست باکس های موجود در فرم میباشد

            کد PHP:
            Private Sub CommandButton1_Click()


            Dim list1 As New Collection

            On Error Resume Next

            0

            For 1 To 50

            If Me.Controls("textbox" i) <> "" Then

            list1
            .Add Me.Controls("textbox" i), CStr(Me.Controls("textbox" i))

            1

            End 
            If

            Next


            If <> list1.Count Then

            MsgBox 
            "tekrai"

            Else

            MsgBox "ok"

            End If


            End Sub 

            کامنت

            • Ilbar

              • 2017/12/04
              • 7

              #7
              سلام اخطار تکراری میده با اینکه اعداد تکراری نیست

              کامنت

              • iranweld

                • 2015/03/29
                • 3341

                #8
                نوشته اصلی توسط Ilbar
                سلام اخطار تکراری میده با اینکه اعداد تکراری نیست

                باید تعداد تکست باکس های موجود با عدد آخر دستور for برابر باشه یا عدد 50 را برابر تعداد تکست باکس خود قرار دهید

                کد PHP:
                For 1 To 50 
                فایل های پیوست شده

                کامنت

                چند لحظه..