پرسش خطا در فرم ورود اطلاعات

[amerehi]

سلام

من یه فرم برای ورود اطلاعات درست کردم اما ارور میده
اینم یه لینک دیگه

https://up.20script.ir/file/afc5-hosein.rar

[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