BOTAO SALVAR VERIFICANDO 2 REGISTROS
Olá Pessoal
Preciso criar uma solução para evitar que seje gravado 1 registro com 2 campos iguais.
Exemplo:
qtd item tipo
2 anzol robalo
1 boia robalo
2 boia tucunare
1 anzol robalo
No exemplo acima os 3 primeiros registros não se repetem então devem ser gravados,
ja o 4 registro é repetido e deve ser impedido de se gravar.
Eu só consigo checar 1 campo usando a rotina abaixo.
query = [Ô]select * from cadastro where item = [ô][Ô] & txtitem & [Ô][ô][Ô]
eu preciso verificar alem do Item,o tipo,mas não sei como colocar no select.
desde já agradeço pela ajuda.
Preciso criar uma solução para evitar que seje gravado 1 registro com 2 campos iguais.
Exemplo:
qtd item tipo
2 anzol robalo
1 boia robalo
2 boia tucunare
1 anzol robalo
No exemplo acima os 3 primeiros registros não se repetem então devem ser gravados,
ja o 4 registro é repetido e deve ser impedido de se gravar.
Eu só consigo checar 1 campo usando a rotina abaixo.
query = [Ô]select * from cadastro where item = [ô][Ô] & txtitem & [Ô][ô][Ô]
eu preciso verificar alem do Item,o tipo,mas não sei como colocar no select.
desde já agradeço pela ajuda.
Basta completar com o operador AND, Fica assim
query = [Ô]select * from cadastro where item = [ô][Ô] & txtitem & [ô] AND tipo = [ô][Ô] & txtTipo & [Ô][ô][Ô]
Esta dando erro no Apostrofo.
E no caso do campo tipo é um option com 3 possiblidades.
è possivel colocar o option no lugar do txttipo.
Valeu..
E no caso do campo tipo é um option com 3 possiblidades.
è possivel colocar o option no lugar do txttipo.
Valeu..
Vamos por parte.
O erro no apostrofo é que faltou uma aspas antes dele
Quanto a questao do option é simples. Declare uma variável do tipo String
Agora na query você faz:
O erro no apostrofo é que faltou uma aspas antes dele
query = [Ô]select * from cadastro where item = [ô][Ô] & txtitem & [Ô][ô] AND tipo = [ô][Ô] & txtTipo & [Ô][ô][Ô]Quanto a questao do option é simples. Declare uma variável do tipo String
Dim varTipo As String
If Option1.Value = True Then
varTipo = [Ô]Opção 1[Ô]
ElseIf Option2.Value = True Then
varTipo = [Ô]Opção 2[Ô]
ElseIf Option3.Value = True Then
varTipo = [Ô]Opção 3[Ô]
End If
Agora na query você faz:
query = [Ô]select * from cadastro where item = [ô][Ô] & txtitem & [Ô][ô] AND tipo = [ô][Ô] & varTipo & [Ô][ô][Ô]
Funcionou perfeito.Show de bola.
Muito obrigado.
Muito obrigado.
Tópico encerrado , respostas não são mais permitidas