tenho uma tela onde eu digito o código e aparecem todos os dados, menos o campo eqz.
não sei porque. está tudo certo, os campos batem com o banco.
quando vou depurar e chega nessa linha:
cbobrick.Text = IIf(IsNull(rs("eqz")), "", rs("eqz"))
o "depurador" vai para o evento click do cbobrick. e é aí que está o erro. porém sicneramente não sei porque vai no evento click.
deêm uma olhadinha no código que fiz e vejam porque não aparece apenas o campo eqz.
vejam se pode me ajudar.
Dim n As Integer
sql = "SELECT pedido.codigo_pedido, "
sql = sql & "pedido.cancelado, "
sql = sql & "Pedido.cod_pedido_vendedor , "
sql = sql & "Pedido.cod_cliente_dist, "
sql = sql & "cadastrodistribuidor.cnpj_distribuidor, "
sql = sql & "cadastrodistribuidor.razao_social as nome_distribuidor, "
sql = sql & "cadastrofarmacia.cnpj_farmacia, "
sql = sql & "cadastrofarmacia.razao_social, "
sql = sql & "Brick.eqz, cadastrovendedor.nome, "
sql = sql & "cadastrofarmacia.eqz, "
sql = sql & "Pedido.entrega, Pedido.prazo, "
sql = sql & "Pedido.tipo_cd, "
sql = sql & "Pedido.Data, Pedido.cliente, "
sql = sql & "Pedido.aprovacao, Pedido.obs, "
sql = sql & "Pedido.qtde, Pedido.valor_total, "
sql = sql & "Pedido.valor_bruto, "
sql = sql & "Pedido.valor_desconto_total, "
sql = sql & "Pedido.valor_liquido, "
sql = sql & "Pedido.obs2, "
sql = sql & "Pedido.Data2, itens_pedido2.codigo_produto, "
sql = sql & "itens_pedido2.desconto as descontoi, "
sql = sql & "itens_pedido2.qtde as qtdei, "
sql = sql & "itens_pedido2.Valor, "
sql = sql & "itens_pedido2.valor_bruto_i, "
sql = sql & "itens_pedido2.valor_desconto_total_i, "
sql = sql & "itens_pedido2.valor_liquido_i "
sql = sql & "FROM (cadastrovendedor "
sql = sql & "INNER JOIN (cadastrodistribuidor "
sql = sql & "INNER JOIN ((brick "
sql = sql & "INNER JOIN cadastrofarmacia "
sql = sql & "ON brick.eqz = cadastrofarmacia.eqz) "
sql = sql & "INNER JOIN pedido "
sql = sql & "ON (cadastrofarmacia.codigo_farmacia = pedido.codigo_farmacia) "
sql = sql & "AND (brick.eqz = pedido.eqz)) "
sql = sql & "ON cadastrodistribuidor.codigo_distribuidor = pedido.codigo_distribuidor) "
sql = sql & "ON (cadastrovendedor.codigo_vendedor = pedido.codigo_vendedor) "
sql = sql & "AND (cadastrovendedor.codigo_vendedor = brick.codigo_vendedor)) "
sql = sql & "INNER JOIN itens_pedido2 "
sql = sql & "ON pedido.codigo_pedido = itens_pedido2.codigo_pedido "
sql = sql & "WHERE (((pedido.codigo_pedido)= " & txtcodigo.Text & "))"
' MsgBox sql
' Open App.Path & "SQL.txt" For Output As #1
' Print #1, sql
' Close #1
Set rs = db.OpenRecordset(sql)
If rs.EOF Then
MsgBox "Pedido Invalido"
Else
If rs("cancelado") = "Cancelado" Then
optcancelar.Value = True
Else
optcancelar.Value = False
End If
txtcodvendedor.Text = IIf(IsNull(rs("cod_pedido_vendedor")), "", rs("cod_pedido_vendedor"))
txtcodcliente.Text = IIf(IsNull(rs("cod_cliente_dist")), "", rs("cod_cliente_dist"))
cbodist.Text = IIf(IsNull(rs("cnpj_distribuidor")), "", rs("cnpj_distribuidor"))
lbldistribuidora = IIf(IsNull(rs("nome_distribuidor")), "", rs("nome_distribuidor"))
txtcnpjfarmacia.Text = IIf(IsNull(rs("cnpj_farmacia")), "", rs("cnpj_farmacia"))
cbobrick.Text = IIf(IsNull(rs("brick1")), "", rs("brick1"))
lblfarmacia = IIf(IsNull(rs("razao_social")), "", rs("razao_social"))
cbobrick.Text = IIf(IsNull(rs("eqz")), "", rs("eqz"))
txtvendedor.Text = IIf(IsNull(rs("nome")), "", rs("nome"))
txtentrega.Text = IIf(IsNull(rs("entrega")), "", rs("entrega"))
txtprazo.Text = IIf(IsNull(rs("prazo")), "", rs("prazo"))
txtcd.Text = IIf(IsNull(rs("tipo_cd")), "", rs("tipo_cd"))
txtdata.Text = IIf(IsNull(rs("data")), "", rs("data"))
txtcliente.Text = IIf(IsNull(rs("cliente")), "", rs("cliente"))
txtaprovacaopedido.Text = IIf(IsNull(rs("aprovacao")), "", rs("aprovacao"))
txtobs.Text = IIf(IsNull(rs("obs")), "", rs("obs"))
txtqtdetotal.Text = IIf(IsNull(rs("qtdei")), "", rs("qtdei"))
txtpreco.Text = IIf(IsNull(rs("valor_total")), "", rs("valor_total"))
txtvlrbruto.Text = IIf(IsNull(rs("valor_bruto")), "", rs("valor_bruto"))
txtvlrdesctotal.Text = IIf(IsNull(rs("valor_desconto_total")), "", rs("valor_desconto_total"))
txtvlrliq.Text = IIf(IsNull(rs("valor_liquido")), "", rs("valor_liquido"))
txtobsalt.Text = IIf(IsNull(rs("obs2")), "", rs("obs2"))
lbldata2 = IIf(IsNull(rs("data2")), "", rs("data2"))
Do While rs.EOF = False
lstcodigopedido.AddItem rs!codigo_produto
lstdesc.AddItem rs!descontoi
lstqtdepedido.AddItem rs!qtde
lstpreco.AddItem rs!Valor
lstvlrbruto.AddItem rs!valor_bruto_i
lstvlrdesctotal.AddItem rs!valor_desconto_total_i
lstvlrliq.AddItem rs!valor_liquido_i
rs.MoveNext
Loop
End If
For n = 0 To cbobrick.ListCount - 1
Do While rs.EOF = False
cbobrick.AddItem rs("eqz")
rs.MoveNext
Loop
Exit For
Next
Muito obrigado
