Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Verificar duplicado em txtbox [Resolvido]
- GustavoB
- Colaborador
- Mensagens: 23
- Registrado em: Sex Nov 18, 2011 4:05 pm
- Localização: Campinas - SP
Verificar duplicado em txtbox [Resolvido]
Boa tarde;
Pessoal tenho um cadastro de equipamentos utilizando um Form e nesse Form tem um txtBox *Serie* onde cadastro os numeros de serie que vão para minha planilha e gostaria de quando sair do campo ele verificasse se esse numero ja consta cadastrado, alguem tem alguma dica?
Desde já obrigado pela ajuda....
Pessoal tenho um cadastro de equipamentos utilizando um Form e nesse Form tem um txtBox *Serie* onde cadastro os numeros de serie que vão para minha planilha e gostaria de quando sair do campo ele verificasse se esse numero ja consta cadastrado, alguem tem alguma dica?
Desde já obrigado pela ajuda....
Editado pela última vez por GustavoB em Qui Dez 08, 2011 6:47 pm, em um total de 1 vez.
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Verificar duplicado em txtbox
Gustavo, no proprio modelo do Tomas temos algumas Functions de pesquisa, que podem ser adaptadas.
Então resolvi adptar uma para se realizar Pesquisa, no modelo anexo a "Function ProcuraRefId" adaptada faz a pesquisa por um valor na Coluna "A", criei tres formas de se pesquisar :
uma por um InputBox;
outro atraves de um formulário, onde temos dois Textbox, no primeiro digita-se o código a pesquisar e clica no Botão, o segundo Textbox, associei a rotina ao Evento Exit, ou seja digita-se o código e ao Sair do mesmo é realizado a Pesquisa.
De uma olhada, acredito que não terádificuladades em adaptar a sua necessidade, mas qualquer duvida, retorne.
Funciton Pesquisar []s
Então resolvi adptar uma para se realizar Pesquisa, no modelo anexo a "Function ProcuraRefId" adaptada faz a pesquisa por um valor na Coluna "A", criei tres formas de se pesquisar :
uma por um InputBox;
outro atraves de um formulário, onde temos dois Textbox, no primeiro digita-se o código a pesquisar e clica no Botão, o segundo Textbox, associei a rotina ao Evento Exit, ou seja digita-se o código e ao Sair do mesmo é realizado a Pesquisa.
De uma olhada, acredito que não terádificuladades em adaptar a sua necessidade, mas qualquer duvida, retorne.
Funciton Pesquisar []s
-
- Colaborador
- Mensagens: 96
- Registrado em: Sáb Nov 26, 2011 1:05 pm
- Localização: Rio Grande da Serra - São Paulo
- Contato:
Re: Verificar duplicado em txtbox
Buenas.
Tem como adaptar o código para fazer pesquisa com arquivo em rede (com banco de dados fora da tela de pesquisa).
se puder me ajudar agradeo, estou com o tópico aberto no forum (viewtopic.php?f=20&t=2220).
desde já agradeço.
Abraços
Tem como adaptar o código para fazer pesquisa com arquivo em rede (com banco de dados fora da tela de pesquisa).
se puder me ajudar agradeo, estou com o tópico aberto no forum (viewtopic.php?f=20&t=2220).
desde já agradeço.
Abraços
Mauro Coutinho escreveu:Gustavo, no proprio modelo do Tomas temos algumas Functions de pesquisa, que podem ser adaptadas.
Então resolvi adptar uma para se realizar Pesquisa, no modelo anexo a "Function ProcuraRefId" adaptada faz a pesquisa por um valor na Coluna "A", criei tres formas de se pesquisar :
uma por um InputBox;
outro atraves de um formulário, onde temos dois Textbox, no primeiro digita-se o código a pesquisar e clica no Botão, o segundo Textbox, associei a rotina ao Evento Exit, ou seja digita-se o código e ao Sair do mesmo é realizado a Pesquisa.
De uma olhada, acredito que não terádificuladades em adaptar a sua necessidade, mas qualquer duvida, retorne.
Funciton Pesquisar []s
Verificar duplicado em txtbox
Boa tarde Pessoal;
Estou usando um um cadastro similar ao do Gustavo, porem tenho outras textbox que são atreladas a Plan1, e atravez de um botão cadastrar salvo esses dados.
O PROBLEMA ESTÁ AQUI
Tenho a textbox1 que server apenas para me dizer se o codigo está na plan2, se tiver me retorna com uma msg, se não está, me retorna dizendo que não. Agoraaaaaa vem o problema, se eu apertar o botao cadastrar com a textbox1 preenchida os dados correspondentes preenche todas a celulas da linha 2, e na plan1 é adicionado uma vez na coluna A linha 2 da Plan2.
Na textbox1 inseri esse abaixo,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim RefId As String
'Valor a pesquisar
RefId = TextBox1
If RefId = "" Then
MsgBox "Digite um Valor Inválido"
TextBox1.SetFocus
Exit Sub
Else
'Chama a Function
ProcuraRefId (RefId)
End If
If sLocaliza = True Then
MsgBox "IMEI : " & RefId & " LOCACALIZADO NO BANCO DE DADOS", vbInformation, "Validação"
Else
MsgBox "IMEI NÃO LOCALIZADO NA BASE DE DADOS"
TextBox1= ""
End If
End Sub
E no criei um modulo com esse código abaixo;
Public Function ProcuraRefId(ByVal RefId As String) As String
Dim iLin As Long
Dim sCol As Long
sLocaliza = False
Dim wsDados As Worksheet
Set wsDados = Worksheets("BD IMEI")
iLin = 2 'Linha 2
sCol = 1 'Coluna 1
With wsDados
Do While Not IsEmpty(.Cells(iLin, sCol))
If .Cells(iLin, sCol).Value = RefId Then
sLocaliza = True 'Verdadeiro se encontrado
sCel = .Cells(iLin, sCol).Address(False, False)
Exit Do 'Sai do Loop se encontrar
End If
'Incrementa a linha
iLin = iLin + 1
Loop
End With
End Function
Estou usando um um cadastro similar ao do Gustavo, porem tenho outras textbox que são atreladas a Plan1, e atravez de um botão cadastrar salvo esses dados.
O PROBLEMA ESTÁ AQUI
Tenho a textbox1 que server apenas para me dizer se o codigo está na plan2, se tiver me retorna com uma msg, se não está, me retorna dizendo que não. Agoraaaaaa vem o problema, se eu apertar o botao cadastrar com a textbox1 preenchida os dados correspondentes preenche todas a celulas da linha 2, e na plan1 é adicionado uma vez na coluna A linha 2 da Plan2.
Na textbox1 inseri esse abaixo,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim RefId As String
'Valor a pesquisar
RefId = TextBox1
If RefId = "" Then
MsgBox "Digite um Valor Inválido"
TextBox1.SetFocus
Exit Sub
Else
'Chama a Function
ProcuraRefId (RefId)
End If
If sLocaliza = True Then
MsgBox "IMEI : " & RefId & " LOCACALIZADO NO BANCO DE DADOS", vbInformation, "Validação"
Else
MsgBox "IMEI NÃO LOCALIZADO NA BASE DE DADOS"
TextBox1= ""
End If
End Sub
E no criei um modulo com esse código abaixo;
Public Function ProcuraRefId(ByVal RefId As String) As String
Dim iLin As Long
Dim sCol As Long
sLocaliza = False
Dim wsDados As Worksheet
Set wsDados = Worksheets("BD IMEI")
iLin = 2 'Linha 2
sCol = 1 'Coluna 1
With wsDados
Do While Not IsEmpty(.Cells(iLin, sCol))
If .Cells(iLin, sCol).Value = RefId Then
sLocaliza = True 'Verdadeiro se encontrado
sCel = .Cells(iLin, sCol).Address(False, False)
Exit Do 'Sai do Loop se encontrar
End If
'Incrementa a linha
iLin = iLin + 1
Loop
End With
End Function
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Verificar duplicado em txtbox [Resolvido]
O ideal seria abrir um novo tópico, mencionando este. Codigos devem ser "colocados" utilizando a ferramenta Code Quinto botão na barra acima que inicia com B, oque facilita sua visualização.
Agora sinceridade não entendi a demanda/problema. Os codigos são de pesquisa, nada "ligado" a gravar/salvar
Agora sinceridade não entendi a demanda/problema. Os codigos são de pesquisa, nada "ligado" a gravar/salvar