Run Time Erro '3001'

[alepe]

Caros,

Ao utilizar o find para pesquisar o tipo de tecido ele não localiza e da erro Run time error 3001.

Os argumentos são incorretos, estão fora do intervalo aceitavel ou estão em conflito.

Se a pesquisa fosse por numero ele funciona..

entrada tipo de tecido = RIBANA

Dim codigo As String, criterio As String

'Processo de localização de tecido em estoque
codigo = txttecido.Text

If codigo = Empty Then Exit Sub
criterio = "tipotecido =" & codigo
rs.MoveFirst      
rs.Find criterio, 0, adSearchForward    

If rs.EOF Then

rs.MoveLast

MsgBox "Tecido Não Existe!!!"

End If

rs.Fields("quantidade") = rs.Fields("quantidade") - txtqtdeutilizada.Text

[mestre fyoda]

tente declarar o criterio ou o codigo com integer .

[alepe]

Da erro de tipo de dados Type mismatch...

utilizando typename o campo é string

Existe alguma incompatibilidade do Find com texto.. ?

[jiraiaa]

olha literalmente não acho que possa existir. Mas faça assim.. na recordse, este campo que você ta pesquisando é numerico ou texto?

pode se que o codigo é numerico . e você este colocando um texto

wellington@uau.com.br

[Guest Dimas Guimarães]

Alepe, você deve colocar sua variável dentro de aspas simples. Desta forma:

criterio = "tipotecido ='" & codigo & "'"

Isso se o tipotecido for do tipo string