yasa_sabnet68
سه شنبه 01 دی 1388, 13:24 عصر
form4Adodc1.Recordset.MoveFirst
For I = 0 To form4.Adodc1.Recordset.RecordCount - 1
If form4.Adodc1.Recordset.Fields(0) = Text1(0).Text Then
Form4.Adodc1.Recordset.Delete
Form4.Adodc1.Recordset.MoveNext
Else
Form4.Adodc1.Recordset.MoveNext
End If
Next I
:متفکر:
For I = 0 To form4.Adodc1.Recordset.RecordCount - 1
If form4.Adodc1.Recordset.Fields(0) = Text1(0).Text Then
Form4.Adodc1.Recordset.Delete
Form4.Adodc1.Recordset.MoveNext
Else
Form4.Adodc1.Recordset.MoveNext
End If
Next I
:متفکر: