جستجو ودر صورت پیدا شدن اضافه کردن دو فیلد

[m_vb1386]

Private Sub Command1_Click()
Dim ch2 As String
ch2 = App.Path & "\kol.mdb"
Form1.Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"persist security info=false;" & _
"data source=" & ch2
Form1.Adodc1.RecordSource = "Select * from tbl_asli where name= '" & Text1.Text & "'"
Set Form1.DataGrid1.DataSource = Adodc1
Form1.Adodc1.Refresh
Adodc1.Recordset.Fields("tel") = Text2
Adodc1.Recordset.Fields("mob") = Text3
End Sub

من این کد رو نوشتم که در صورت پیدا کردن نامی که درتکست1 نوشتم مقدار تلفن و موبایل که به ترتیب در تکست2و3 نوشتم رو تو قرار میده ولی اگه پیدا نشد ارور میده چجوری اون کد رو برای این قسمت هم اصلاح کنم

[vbhamed]

سلام



Private Sub Command1_Click()

On Error Resume Next

Dim ch2 As String

ch2 = App.Path & "\kol.mdb"

Form1.Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"persist security info=false;" & _
"data source=" & ch2

Form1.Adodc1.RecordSource = "Select * from tbl_asli where name= '" & Text1.Text & "'"

Set Form1.DataGrid1.DataSource = Adodc1

Form1.Adodc1.Refresh

If Adodc1.Recordset.RecordCount Then
Adodc1.Recordset.Fields("tel") = Text2
Adodc1.Recordset.Fields("mob") = Text3
End If

End Sub

[m_vb1386]

If Adodc1.Recordset.RecordCount Then
Adodc1.Recordset.Fields("tel") = Text2
Adodc1.Recordset.Fields("mob") = Text3
End If
این قسمت کارش چیه؟

[vbhamed]

سلام
چك مي كنه اگر ركوردي با شرايط تعيين شده وجود داشت دستورات داخل شرط اجرا بشن تا پيام خطا نده