alguém sabe o porque deste error

run timer error 3426

this action was cancelled by an associatec object.

 

tenho 2 txts um para cod e outro para nome.

 

Estou tentando sem sucesso realizar a seguinte operação: Ao digitar um codigo no txt1 e pressionar enter ele retorne o nome referente ao codigo. mas ta difícil.

 

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        Data1.Recordset.FindFirst "cod=" & Text1.Text

        If Data1.Recordset.NoMatch Then
            MsgBox "Código não encontrado!"
        End If
    End If
End Sub

 

Da o erro e a linha vermelha fica selecionada

 

Olá Fernando.

Não consegui reproduzir este erro, mas segue abaixo uma sugestão para solucionar o seu problema:

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

    Dim Db As Database
    Dim Rs As Recordset
   
    Set Db = Workspaces(0).OpenDatabase("Caminho e Nome do banco de dados")

    If KeyAscii = 13 Then
        KeyAscii = 0
       
        Set Rs = Db.OpenRecordset("Select * From SuaTabela Where Cod = '" & Text1.Text & "'")
        Set Data1.Recordset = Rs   ' Assign Recordset.
       
        If Data1.Recordset.EOF Then
            MsgBox "Código não encontrado!"
        Else
            Text2.Text = Rs("Descricao")
        End If
    End If
End Sub

 

Espero que ajude, boa sorte!

Valeu a ajuda mas não funcionou esta dando outro erro.

   Tente:  

      Dado1.Recordset.FindMin "cod = Cdate('" & Text1.Text & "')"
   se cod for Texto, ou:

   se cod for numérico.

 

o uso de aspas(") e aspas simples(') foi motivo de dor de cabeça por muito tempo pra mim, talvez seja isso.

espero ajudar.

 

Tente substituir a linha por Data1.Recordset.FindMin "cod=1" para ver se ele consegue ler um registro. Se não conseguir provavelmente deve ser algo nas propriedades do DATA. Se conseguir ler deve ser algo no conteudo do TEXT1