خطا در فرم ورود اطلاعات

[amerehi]

سلام
من یه فرم برای ورود اطلاعات درست کردم اما ارور میده
اینم یه لینک دیگه
https://up.20script.ir/file/afc5-hosein.ra (https://up.20script.ir/file/afc5-hosein.rar)r

[a.dal65]

textbox 1 و 2توی یوزور فرم ندارید
ولی توی کد ازش استقاده کردید

[Amir Ghasemiyan]

سلام دوست عزيز

خطايي كه ميده خيلي واضحه!
شما تو فرمتون textbox1 تا textbox9 نداريد اما تو كدهاتون ازش استفاده كرديد. براي همين خطا ميده

[iranweld]

با سلام

شماره تکست باکس و کدها اصلاح گردید


Private Sub CommandButton1_Click()


EndRow = Cells(Rows.Count, "A").End(xlUp).Row + 1


If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox "Ñ ˜ÑÏä ÊãÇãí ãæÇÑÏ ÇáÒÇãíÓÊ", vbCritical + vbOKOnly, "ÎØÇ ÏÑ æÑæÏ ÇØáÇÚÇÊ"
Exit Sub
End If




For i = 1 To 42

Cells(EndRow, i) = Me.Controls("textbox" & i)

Next


MsgBox "ÇØáÇÚÇÊ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ", vbDefaultButton3 + vbInformation + vbOKOnly, "ËÈÊ ÇØáÇÚÇÊ"


For i = 1 To 42

Me.Controls("textbox" & i) = ""

Next



TextBox1.SetFocus




End Sub