Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Verificar duplicado em txtbox [Resolvido]

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Avatar do usuário
GustavoB
Colaborador
Colaborador
Mensagens: 23
Registrado em: Sex Nov 18, 2011 4:05 pm
Localização: Campinas - SP

Verificar duplicado em txtbox [Resolvido]

Mensagem por GustavoB »

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....
Editado pela última vez por GustavoB em Qui Dez 08, 2011 6:47 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
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

Mensagem por Mauro Coutinho »

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
Function Pesquisa.rar
(12.99 KiB) Baixado 700 vezes
[]s


Avatar do usuário
GustavoB
Colaborador
Colaborador
Mensagens: 23
Registrado em: Sex Nov 18, 2011 4:05 pm
Localização: Campinas - SP

Re: Verificar duplicado em txtbox

Mensagem por GustavoB »

Bom dia;
Obrigado pela ajuda era exatamente o que precisava...


Henry-Systems
Colaborador
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

Mensagem por Henry-Systems »

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
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
Function Pesquisa.rar
[]s


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


DVD
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Set 25, 2018 4:30 pm

Verificar duplicado em txtbox

Mensagem por DVD »

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


Avatar do usuário
Reinaldo
Jedi
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]

Mensagem por Reinaldo »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder