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

ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
anjosilva
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Fev 09, 2023 4:57 pm

ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO [RESOLVIDO]

Mensagem por anjosilva »

BOA TARDE PESSOAL!
SOU EU DE NOVO..

GOSTARIA DE OBTER AJUDA EM UMA FORM QUE CONTEM UMA MULTPAGE,
A PAGE 1 ESTA O FORMULÁRIO PARA CADASTRAR E NA PAGE2 A LISTVIEW DESSSES CADASTROS, SÓ QUE AO CADASTRAR NESSA PAGE 1 ELA SÓ ATUALIZA A LISTVIEW SE EU FECHAR O FORM.
AGRADEÇO A ATENÇÃO
VI OS VIDEOS DO TOMÁS SOBRE LISTVIEW E RECOMENDO


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.


anjosilva
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Fev 09, 2023 4:57 pm

Re: ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO

Mensagem por anjosilva »

boa tarde pessoal segue planilha para quem puder ajudar
Anexos
CADASTRO Ø E COMPRIMENTO PEÇAS.rar
(62.19 KiB) Baixado 423 vezes


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: ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO

Mensagem por Reinaldo »

experimente alterar no botão "CADASTRAR", como abaixo:

Código: Selecionar todos

Private Sub CommandButton1_Click()
' ATIVA A PLANILHA
Sheets("Planilha1").Activate

' localiza o local para armazenar o nome
Range("A1000000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select

' verifica se o campo foi preenchido
If CboBox4 = "" Then
    'OBRIGATORIO PREENCHIMENTO DO NOME
    MsgBox "obrigatorio o preenchimento do nome"
    Exit Sub
    Else
    
    ' configurando a coleta o nome digitado
    ActiveCell.Value = CboBox4.Text
    
    'desloca para a célula ao lado e coleta ANVISA
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = DESENHO.Text
    
    'desloca para a célula ao lado e coleta ANVISA
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = BARRA.Text
    
    'desloca para a célula ao lado e coleta ANVISA
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = COMPRIMENTO.Text
    
    
    'desloca para a célula ao lado e coleta DATA
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = BEDAME.Text
    
    'desloca para a célula ao lado e coleta MATERIAL
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = MATERIAL.Text
    
    'desloca para a célula ao lado e coleta MATERIAL
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = REFERENCIA.Text
    
    ' MENSAGEM DE CONFIRMAÇÃO DE CADASTRO
    MsgBox "CADASTRO EFETUADO"
    
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then
            ctl.Text = vbNullString
        End If
    Next ctl
End If
Call carregar_Planilha1
End Sub


anjosilva
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Fev 09, 2023 4:57 pm

Re: ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO

Mensagem por anjosilva »

obrigado e sucesso para você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.


anjosilva
Colaborador
Colaborador
Mensagens: 16
Registrado em: Qui Fev 09, 2023 4:57 pm

Re: ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO(RESOLVIDO)

Mensagem por anjosilva »

MAIS UMA DÚVIDA ESCLARECIDA AI PELOS AMIGOS DO SITE, COMO MUDAR O TITULO PARA RESOLVIDO?


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