IMPOR CONDIÇÃO

 Tópico anterior Próximo tópico Novo tópico

IMPOR CONDIÇÃO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#483634 - 02/08/2018 18:04:27

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Última edição em 02/08/2018 19:10:49 por KERPLUNK

Olá, pessoal do fórum!

Queria que ao salvar o código de fabrica não repetisse, caso ele já exista, mas não queria obrigar o usuário a inserir um código...
então tive este raciocínio, mas ele esta funcionando em parte,
se for só até aqui ele funciona>>>>> rs.Open "Select * From TbProdutos Where CodFabrica='" & txtCodFabrica & "'", db, 2, 3

mas quero também colocar se ele estiver em branco queria que ele passasse

rs.Open "Select * From TbProdutos Where CodFabrica='" & txtCodFabrica & "' and CodFabrica<>"" & "'", db, 2, 3

Então como eu faria para acrescentar nesta linha de código se banco de dados estiver diferente de "" e o código de produto for diferente
rs.Open "Select * From TbProdutos Where CodFabrica='" & txtCodFabrica & "'", db, 2, 3


Banco de dados MySql

Att,


Isabella


#483635 - 02/08/2018 18:12:21

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Esqueça código, explique a situação e o que você quer fazer. Assim, fica muito mais fácil pra ajudar.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#483636 - 02/08/2018 18:21:48

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Então,
queria não deixar repetir o código de fábrica e também não obrigar a digitar algo no código de fábrica,
mas se não colocar alguma condição, quando deixar um em branco e for digitar outro novamente em branco ele já dá como código duplicado (existente)

Não deixar repetir código e aceitar em branco todos os que não tiver código...

Att,

Isabella


#483638 - 02/08/2018 18:49:05

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Mude para VB/VBA, está no net.



#483639 - 02/08/2018 18:50:36

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
O que você quer é deixar o código opcional, mas não repetitivo, é isso? Se for, tem  várias maneiras de se fazer:
1 - Uma tabela contendo um contador, que será usado como código de fábrica caso haja algum repetido
2 - A coluna de código como chave primária, não sendo possível duplicar, um pouco mais difícil de se controlar mas possível de ser feito
3 - Gerar o código de fábrica genericamente baseado em algum outro valor que seja obrigatório(o nome do produto por exemplo)


_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#483640 - 02/08/2018 19:04:14

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Citação:
:
Mude para VB/VBA, está no net.


Quando vou em mudar categoria, da como acesso negado!

Isabella


#483641 - 02/08/2018 19:11:02

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Citação:
:
:
Mude para VB/VBA, está no net.

Quando vou em mudar categoria, da como acesso negado!

feito

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#483673 - 03/08/2018 13:42:30

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Citação:
:
Olá, pessoal do fórum!

Queria que ao salvar o código de fabrica não repetisse, caso ele já exista, mas não queria obrigar o usuário a inserir um código...
então tive este raciocínio, mas ele esta funcionando em parte,
se for só até aqui ele funciona>>>>> rs.Open "Select * From TbProdutos Where CodFabrica='" & txtCodFabrica & "'", db, 2, 3

mas quero também colocar se ele estiver em branco queria que ele passasse

rs.Open "Select * From TbProdutos Where CodFabrica='" & txtCodFabrica & "' and CodFabrica<>"" & "'", db, 2, 3

Então como eu faria para acrescentar nesta linha de código se banco de dados estiver diferente de "" e o código de produto for diferente
rs.Open "Select * From TbProdutos Where CodFabrica='" & txtCodFabrica & "'", db, 2, 3


Banco de dados MySql

Att,


Alguém poderia me dizer onde esta o erro, porque este código acima não esta fazendo a função, esta muito errada a ideia?


Isabella


#483674 - 03/08/2018 14:14:43

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Veja bem sua lógica:
Selecione os registros da tabela produto, onde o campo CodigoFabrica seja igual ao valor de txtCodigoFabrica E o campo CodigoFabrica seja diferente de "branco"

Se você já está procurando um valor específico, o que estiver em txtCodigoFabrica, obviamente será diferente de branco desde que txtCodigoFabrica possua um valor. Você está usando o operador errado, não deveria ser E, mas sim OU

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#483675 - 03/08/2018 14:17:44

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
É por isso que digo tanto para focar em descrever e entender a situação. Tente não enxergar o que está fazendo em termos de código, mas sim em termos de lógica. Tente "traduzir" mentalmente o que o código está fazendo, imagine o código como o que ele é, uma linguagem. Não veja comandos e comandos, tente fazer mentalmente o que o código faz na prática, assim, vai entender muito melhor o que está fazendo, vai ter menos dificuldades com sintaxe e vai conseguir resolver problemas mais simples sem ajuda nenhuma, isso fará você ficar mais eficiente.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#483678 - 03/08/2018 17:04:54

LEOCAVALHEIRO
FRANCISCO BELTRAO
Cadast. em:Março/2018


Última edição em 03/08/2018 17:08:56 por LEOCAVALHEIRO

Vamos lá,
Ao usar esse comando
rs.Open "Select * From TbProdutos Where CodFabrica='" & txtCodFabrica & "' and CodFabrica<>"" & "'", db, 2, 3  

Você está procurando no banco de dados se existe algum CodFabrica igual ao txtCodFabrica  e diferente de vazio... acontece que tu não tem nenhum CodFabrica vazio no banco. Na verdade tu teria que validar o TXT e não o CodFabrica...
Caso não queira fazer um IF no código validando o TXT...pode tentar fazer o sequinte:
"Select * From TbProdutos Where CodFabrica='" & txtCodFabrica & "' Or '" & txtCodFabrica & "'=''"

Dessa forma tu valida se o TXT é vazio e não o campo da tabela.
Pelo que entendi é isso que deseja, se for, espero que tenha compreendido a lógica, caso não for, me perdoe.


Leandro Luiz G. Cavalheiro
Software Developer
Skype: leandro.cavalheiro.ti
e-Mail: leo.cavalheiro.ti@gmail.com // black.tech.br@gmail.com
Cel.: (46) 99101-1006

  

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ISABELLASILVA em 06/08/2018 17:09:28