Pessoal tenho o seguinte codigo

Private Sub t9_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Not IsNumeric(t9.Text) Then
    MsgBox "Preencha apenas com numeros"

    t9.setfocus
    Else
    Dim rs2 As Recordset
    Set rs2 = bd.OpenRecordset("tbproduto", dbOpenTable)
    rs2.Index = "idxp"
    rs2.Seek "=", t9.Text
    T3.Text = rs2.Fields("nome")
    T4.Text = rs2.Fields("chapa")
    T5.Text = rs2.Fields("corte")
    T7.Text = Abs(rs2.Fields("valorc")) * Abs(T6.Text)
    T8.SetFocus
    End If
End If
End Sub
Bl na primeira vez q dou enter ele funciona normal mas na segunda vez se caso fosse trocar o conteudo do t9.text ( um exemplo digito 7 no t9 e dou enter depois me arrependo e digito o 4 no lugar do 7 e dou outro enter)

nese segundo enter ele me retorna um erro " No currente recordset"

como faço pra resolver isto?

e porq desse erro?

Alguem pode me ajudar?

fico grato

 

Você está programando no evento keypress da caixa de texto , então acho que ele está guardando o valor das teclas pressionadas na edit quando você altera o valor , eu tentaria assim , programando a procura no banco de dados no evento LostFocus.