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

IMPEDIR REGISTROS IGUAIS COM VARIAS TEXTBOX

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
peculio
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Fev 18, 2022 1:24 pm

IMPEDIR REGISTROS IGUAIS COM VARIAS TEXTBOX

Mensagem por peculio »

Bom dia á todos, tenho uma user forme de cadastro de recolhimento de impostos porem nosa meus documentos fisicos tem muitas duplicatas, e separadas e como não lembro pois são muitos cadastro, gostaria de saber se tem como criar uma macro para impedir dados repetidos em varias textbox diferentes ?

esta é a rotina do meu botão salvar.

Private Sub SALVAR_Click()

Dim vlinha As Integer

Sheets("Auditoria").Select
Range("A1").Select

vlinha = 1


Do While ActiveCell.Offset(vlinha, 0).Value <> ""

vlinha = vlinha + 1

Loop

ActiveCell.Offset(vlinha, 5) = CADASTRO_PECULIO.TextBox_MATR.TEXT
ActiveCell.Offset(vlinha, 6) = CADASTRO_PECULIO.TextBox_NOME.TEXT
ActiveCell.Offset(vlinha, 9) = CADASTRO_PECULIO.ComboBox_TIP_MOV.TEXT
ActiveCell.Offset(vlinha, 3) = CADASTRO_PECULIO.TextBox_DATA_DOC.TEXT
ActiveCell.Offset(vlinha, 0) = CADASTRO_PECULIO.TextBox_NU_DOC.TEXT
ActiveCell.Offset(vlinha, 1) = CADASTRO_PECULIO.TextBox_NU_PASTA.TEXT
ActiveCell.Offset(vlinha, 2) = CADASTRO_PECULIO.TextBox_ANO_DOC.TEXT
ActiveCell.Offset(vlinha, 4) = CADASTRO_PECULIO.TextBox_COD_DOC.TEXT
ActiveCell.Offset(vlinha, 7) = CADASTRO_PECULIO.TextBox_VALOR.TEXT
ActiveCell.Offset(vlinha, 14) = CADASTRO_PECULIO.TextBox_NUM_BANCO.TEXT
ActiveCell.Offset(vlinha, 12) = CADASTRO_PECULIO.TextBox_DATA_MOV_BANCO.TEXT
ActiveCell.Offset(vlinha, 15) = CADASTRO_PECULIO.ComboBox_UNI_DEB.TEXT
ActiveCell.Offset(vlinha, 16) = CADASTRO_PECULIO.ComboBox_UNI_CRED.TEXT
ActiveCell.Offset(vlinha, 17) = CADASTRO_PECULIO.TextBox_OBS_PEC.TEXT
ActiveCell.Offset(vlinha, 20) = CADASTRO_PECULIO.TextBox_USUARIO.TEXT
ActiveCell.Offset(vlinha, 21) = CADASTRO_PECULIO.TextBox_DATA_ATUAL.TEXT
ActiveCell.Offset(vlinha, 22) = CADASTRO_PECULIO.TextBox_HORA_ATUAL.TEXT

MsgBox ("Dados Salvos na Planilha Auditoria com sucesso"), vbInformation, "Sucesso"

Call PESQUISA_PEC_PASTA_CADAS


End Sub


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.


PHSabater
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Qui Mar 10, 2022 7:21 pm

Re: IMPEDIR REGISTROS IGUAIS COM VARIAS TEXTBOX

Mensagem por PHSabater »

Jeito tem.
Tem que ver a estrutura da sua base, faz a pesquisa por algum ou alguns campos chaves antes de salvar o registro.
Fica mais fácil se postar parte ou todo o arquivo pra te ajudar.


Responder