مشکل با for ,if درست کارنکردن

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • نیلوفر66

    • 2014/12/22
    • 8
    #1

    مشکل با for ,if درست کارنکردن

    با سلام
    در برنامه ای که نوشتم بعد از جستجوی کد دانشجو نام و نام خانوادگی را نمایش میدهد. مشکل اینجاست که رکورد اول رو جستجومیکنه اما اگه رکورد اخر رو که وارد کنی جواب نمیده. و یک مشکل دیگه هم اینکه پیغام خطا بعد از سه بار no حذف میشه هرکارکردم درست نشد
    فایل های پیوست شده
    برچسب ها: for, if, کارنکردن, مشکل, با, درست
    • Amir Ghasemiyan

      • 2013/09/20
      • 4598
      • 100.00
      #2
      نوشته اصلی توسط نیلوفر66
      با سلام
      در برنامه ای که نوشتم بعد از جستجوی کد دانشجو نام و نام خانوادگی را نمایش میدهد. مشکل اینجاست که رکورد اول رو جستجومیکنه اما اگه رکورد اخر رو که وارد کنی جواب نمیده. و یک مشکل دیگه هم اینکه پیغام خطا بعد از سه بار no حذف میشه هرکارکردم درست نشد
      کد:
      Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("A2:A1000")
[COLOR=#ff0000]If txtstnumber.Text = c.Text Then
سلام دوست عزيز
من كد مربوط به فرم اصلي رو به اين صورت تغيير دادم براتون.

Label6 = c.Offset(0, 1)
Label7 = c.Offset(0, 2)
Label9 = c
[COLOR=#ff8c00]Exit Sub[/COLOR]
Else
Dim x As Integer
x = MsgBox("ÏÇäÔÌæíí ÈÇ äíä ãÔÎÕÇÊí æÌæÏ äÏÇÑÏ!ÂíÇ ÔãÇÑå ÏÇäÔÌæí æÇÑÏÔÏå ÑÇ Èå áíÓÊ ÏÇäÔÌæíÇä ÇÖÇÝå ãí˜äíÏ¿", vbYesNo + vbQuestion, "ÐÎíÑå ÏÇäÔÌæ")
    If x = vbYes Then
        insertstu.Show
    ElseIf x = vbNo Then
        txtstnumber.Text = ""
    End If
End If
Next


End Sub
      text رو نميشه با value مقايسه كرد
      براي خروج سريعتر از برنامه و سرعت دادن به كد[/COLOR]

        کامنت

        • نیلوفر66

          • 2014/12/22
          • 8
          #3
          خوددتون تست کردید؟ من که تست میکنم وقتی رکوردهای دیگه غیر از رکورد اول رو وارد میکنم تشخیص نمیده و پیغام ثبت نشدن نمایش داده میشه!!!!!!!!

            کامنت

            • Amir Ghasemiyan

              • 2013/09/20
              • 4598
              • 100.00
              #4
              نوشته اصلی توسط نیلوفر66
              خوددتون تست کردید؟ من که تست میکنم وقتی رکوردهای دیگه غیر از رکورد اول رو وارد میکنم تشخیص نمیده و پیغام ثبت نشدن نمایش داده میشه!!!!!!!!

              ببخشيد من درست كدتون رو نخونده بودم. از اين كد استفاده كنيد مشكلي نداره ان شالله
              کد:
              Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("A2:A1000")
If txtstnumber.Text = c.Text Then
Label6 = c.Offset(0, 1)
Label7 = c.Offset(0, 2)
Label9 = c
Exit Sub
End If
Next c
x = MsgBox("ÏÇäÔÌæíí ÈÇ äíä ãÔÎÕÇÊí æÌæÏ äÏÇÑÏ!ÂíÇ ÔãÇÑå ÏÇäÔÌæí æÇÑÏÔÏå ÑÇ Èå áíÓÊ ÏÇäÔÌæíÇä ÇÖÇÝå ãí˜äíÏ¿", vbYesNo + vbQuestion, "ÐÎíÑå ÏÇäÔÌæ")
If x = vbYes Then
    insertstu.Show
ElseIf x = vbNo Then
    txtstnumber.Text = ""
End If
End Sub

                کامنت

                قبلی template بعدی
                چند لحظه..