CONDICAO USANDO MID
pessoal, estou um pouco errolado aqui com uma situação.
em um texbox. faço a consulta em uma tabela
mas ai vem uma situção que é a seguinte.
consigo pegar a posição no código de barra, 2602200001054 = código do produto 2200. até aà bela.
sendo que agora preciso pegar o código de barra 7891000002032. e é aqui que preciso diferenciar em uma condição e jogar na sql. ou seja...a posição do código do produto e pegar o código de barra inteiro..
no caso do código 2602200001054. todos começão com 2. será que tem como fazer isso. identificar esse dois e fazer uma condição ?
Set Rst = New ADODB.Recordset [ô]Pega a posição do código do produto
Sql = [Ô]Select Cod_Barra, Prod_Descricao_Completa, Vlr_Venda From Tb_Produtos[Ô]
Sql = Sql & [Ô] Where Cod_Barra =[ô][Ô] & Mid(Codigo_Balanca, 4, 4) & [Ô][ô][Ô]
Rst.Open Sql, Conexao
If Rst.EOF = True Then
MsgBox ([Ô]Produto não Cadastrado ou Código Inválido[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
TxtCodBarra.Text = [Ô][Ô]
TxtCodBarra.SetFocus
TxtQuant.Text = [Ô]1,000[Ô]
Exit Sub
Else
LblDescricao.Caption = Rst!Prod_Descricao_Completa
TxtVlr_Unit.Text = Format(Rst!Vlr_Venda, [Ô]###,##0.00[Ô])
Dim Qtd As Double
Qtd = Format(CDbl(TxtVlr_Unit.Text) * TxtQuant.Text, [Ô]###,##0.00[Ô])
TxtVlr_PrecoTotal.Text = Format(CDbl(Qtd), [Ô]###,##0.00[Ô])
Rst.Close
Set Rst = Nothing
em um texbox. faço a consulta em uma tabela
mas ai vem uma situção que é a seguinte.
consigo pegar a posição no código de barra, 2602200001054 = código do produto 2200. até aà bela.
sendo que agora preciso pegar o código de barra 7891000002032. e é aqui que preciso diferenciar em uma condição e jogar na sql. ou seja...a posição do código do produto e pegar o código de barra inteiro..
no caso do código 2602200001054. todos começão com 2. será que tem como fazer isso. identificar esse dois e fazer uma condição ?
Set Rst = New ADODB.Recordset [ô]Pega a posição do código do produto
Sql = [Ô]Select Cod_Barra, Prod_Descricao_Completa, Vlr_Venda From Tb_Produtos[Ô]
Sql = Sql & [Ô] Where Cod_Barra =[ô][Ô] & Mid(Codigo_Balanca, 4, 4) & [Ô][ô][Ô]
Rst.Open Sql, Conexao
If Rst.EOF = True Then
MsgBox ([Ô]Produto não Cadastrado ou Código Inválido[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
TxtCodBarra.Text = [Ô][Ô]
TxtCodBarra.SetFocus
TxtQuant.Text = [Ô]1,000[Ô]
Exit Sub
Else
LblDescricao.Caption = Rst!Prod_Descricao_Completa
TxtVlr_Unit.Text = Format(Rst!Vlr_Venda, [Ô]###,##0.00[Ô])
Dim Qtd As Double
Qtd = Format(CDbl(TxtVlr_Unit.Text) * TxtQuant.Text, [Ô]###,##0.00[Ô])
TxtVlr_PrecoTotal.Text = Format(CDbl(Qtd), [Ô]###,##0.00[Ô])
Rst.Close
Set Rst = Nothing
Não entendi
Tente isso
If Left(numerodocodigo,1) = 2 then
executa a leitura do código da balança
else
outra leitura dos demais codigos
End If
Tópico encerrado , respostas não são mais permitidas