سلام من می با کد زیر جای چنتا حرفو باهم با کد
Private Sub Command1_Click()
For i = 1 To Adodc1.Recordset.RecordCount
Text1 = Adodc2.Recordset.Fields("names")
Text4 = Replace(Text1, "ي", Text2)
Adodc1.Recordset.Fields("names") = Text4
Print Text4
Adodc1.Recordset.MoveNext
Next i
End Sub
عوض کنم ولی این ارورو میده
untitled.JPG
ممنون می شم کمکم کنید