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

[نیلوفر66]

با سلام
در برنامه ای که نوشتم بعد از جستجوی کد دانشجو نام و نام خانوادگی را نمایش میدهد. مشکل اینجاست که رکورد اول رو جستجومیکنه اما اگه رکورد اخر رو که وارد کنی جواب نمیده. و یک مشکل دیگه هم اینکه پیغام خطا بعد از سه بار no حذف میشه هرکارکردم درست نشد

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

با سلام
در برنامه ای که نوشتم بعد از جستجوی کد دانشجو نام و نام خانوادگی را نمایش میدهد. مشکل اینجاست که رکورد اول رو جستجومیکنه اما اگه رکورد اخر رو که وارد کنی جواب نمیده. و یک مشکل دیگه هم اینکه پیغام خطا بعد از سه بار no حذف میشه هرکارکردم درست نشد

سلام دوست عزيز
من كد مربوط به فرم اصلي رو به اين صورت تغيير دادم براتون.

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
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 مقايسه كرد
براي خروج سريعتر از برنامه و سرعت دادن به كد

[نیلوفر66]

خوددتون تست کردید؟ من که تست میکنم وقتی رکوردهای دیگه غیر از رکورد اول رو وارد میکنم تشخیص نمیده و پیغام ثبت نشدن نمایش داده میشه!!!!!!!!

[Amir Ghasemiyan]

خوددتون تست کردید؟ من که تست میکنم وقتی رکوردهای دیگه غیر از رکورد اول رو وارد میکنم تشخیص نمیده و پیغام ثبت نشدن نمایش داده میشه!!!!!!!!

ببخشيد من درست كدتون رو نخونده بودم. از اين كد استفاده كنيد مشكلي نداره ان شالله

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