AUTOMATICAMENTE OS RESTANTES TEXTBOX

MSMJUDAS 18/08/2011 08:39:13
#381943 Resposta escolhida

Segue um exemplo:

Private Sub TxtCodigo_Change()
On Error GoTo TrataErro
If Trim(TxtCodigo.Text) <> [Ô][Ô] Then
RsProduto.Open [Ô]SELECT DESCRICAO, PRECOVENDA, PESO, ESTOQUE FROM PRODUTOS WHERE CODIGO = [ô][Ô] & Trim(TxtCodigo.Text) & [Ô][ô][Ô], Conexao, adOpenKeyset, adLockReadOnly
If RsProduto.RecordCount > 0 Then
TxtDescricao.Text = Trim(RsProduto([Ô]DESCRICAO[Ô]))
TxtUnitario.Text = FormatNumber(CCur(RsProduto([Ô]PRECOVENDA[Ô])), 2)
TxtPeso.Text = FormatNumber(CCur(RsProduto([Ô]PESO[Ô])), 3)
TxtEstoque.Text = RsProduto([Ô]ESTOQUE[Ô])
Else
TxtDescricao.Text = Empty
TxtUnitario.Text = Empty
TxtPeso.Text = Empty
TxtEstoque.Text = Empty
End If
RsProduto.Close: Set RsProduto = Nothing
End if
Exit Sub
TrataErro:
If RsProduto.State = 1 Then RsProduto.Close
MsgBox Err.Description, vbCritical, [Ô]Erro[Ô]
Exit Sub
End Sub

MAGICMEN 18/08/2011 09:31:57
#381946

Estou bloqueado não pode enviar o exemplo em anexo

obrigado