Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO [RESOLVIDO]
ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO [RESOLVIDO]
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
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
Re: ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO
boa tarde pessoal segue planilha para quem puder ajudar
- Anexos
-
- CADASTRO Ø E COMPRIMENTO PEÇAS.rar
- (62.19 KiB) Baixado 423 vezes
- Reinaldo
- 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
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
Re: ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO(RESOLVIDO)
MAIS UMA DÚVIDA ESCLARECIDA AI PELOS AMIGOS DO SITE, COMO MUDAR O TITULO PARA RESOLVIDO?