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

Listview para Planilha (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
CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha

Mensagem por CROVADOR »

BOM DIA SAULO TUDO BEM AMIGO?

PRIMEIRAMENTE OBRIGADO POR ESTAR ME AJUDANDO.
FIZ OS TESTES E ESTÁ OK, POREM QUANDO EU APAGO OS SERVIÇOS E PRODUTOS DOS LISTVIEW O ORÇAMENTO SOME, QUANDO GRAVO SEM PRODUTOS E SERVIÇOS ELE FUNCIONA, MAS QUANDO GRAVADO COM OS MESMOS E APAGO SERVIÇO E PRODUTOS O ORÇAMENTO DESAPARECE....

VERIFIQUEI TAMBEM QUE QUANDO GRAVO UM NOVO ORÇAMENTO E SO ADICIONO MAIS DE UM SERVIÇOS E APERTO GRAVAR ELE DUPLICA O NUMERO DE ORÇAMENTO...


AGUARDO SEU RETORNO AMIGO....

DEUS ABENÇOE POR SUA BONDADE E VONTADE DE AJUDAR....
Anexos
ORÇAMENTO.zip
(79.87 KiB) Baixado 504 vezes


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.


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

FECHAR COM O X DO FORMULÁRIO

Mensagem por CROVADOR »

BOA TARDE AMIGOS...
QUERIA VER SE VCS TEM UM CÓDIGO QUE EU POSSA FECHAR O FORMULÁRIO PELO BOTÃO X, O DETALHE É QUE QUANDO FECHAR COM O BOTÃO X TEM QUE SALVAR E FECHAR TUDO...


AGUARDO AJUDA AMIGOS

DEUS ABENÇOE...


Francklim
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Qui Fev 08, 2018 12:57 pm

Re: Listview para Planilha (Resolvido)

Mensagem por Francklim »

Boa tarde CROVADOR,

Apesar de eu ser um novato no Excel, imagino que você possa resolver esta questão usando este código:

Private Sub UserForm_Terminate()
ActiveWorkbook.Save
Application.Quit
End Sub
Anexos
Pasta1.rar
(16.68 KiB) Baixado 517 vezes


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR »

obrigado amigo Francklim deu certo...

Deus abençoe


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.


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

codigo automatico vba access

Mensagem por CROVADOR »

boa tarde amigos tenho um cadastro de produto e quero gerar um codigo automatico, mas o banco de dados esta em access ...

alguem pode ajudar?


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

PESQUISA DADOS LISTVIEW

Mensagem por CROVADOR »

BOM DIA AMIGOS,
TENHO UM FORMULARIO CHAMADO ORDEM DE SERVIÇO E QUANDO VOU PESQUISAR PELO NUMERO QUE CORRESPONDE A OS ELE PREENCHE COM DADOS DE OUTRA OS NA LISTVIEW.
SEGUE ANEXO PARA MAIS AJUDA...
O BANCO DE DADOS É DO ACCESS..

OBRIGADO...
Anexos
OS.rar
(315.16 KiB) Baixado 514 vezes


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Não Consigo Editar os dados da listvew

Mensagem por CROVADOR »

Bom dia Amigos, Estou tentando editar os dados mas ele sobrepõe e não apaga para retornar com os registros atuais.
Aguardo ajuda Deus abençoe...

Private Sub cmd_salvar_Click()
On Error GoTo tratativas
Dim Conexao As Database
Dim Gravar As Recordset
Dim msg As String
Dim codigo As Integer
Dim i, j As Integer

Set Conexao = OpenDatabase(ActiveWorkbook.Path & "\DatabaseEstoque.mdb")
Set Gravar = Conexao.OpenRecordset("TB_CIDADES")

If lb_funcao_ativa.Caption = "FUNÇÃO ATIVA: INSERINDO NOVO REGISTRO....." Then
If TXT_CIDADE.Text <> "" And TXT_UF.Text <> "" Then

Gravar.AddNew

Gravar!cidade = TXT_CIDADE.Text
Gravar!UF = TXT_UF.Text

codigo = Gravar!Código
Gravar.Update

Set Gravar = Conexao.OpenRecordset("tb_saidas_itens")

'Loop as lignes
For i = 1 To ListView1.ListItems.Count

'Loop as colunas
For j = 1 To 1
Gravar.AddNew
Gravar!id_seq = txt_seq.Text / 1
Gravar!cod_produto = ListView1.ListItems(i).ListSubItems(1).Text
Gravar!qtd = ListView1.ListItems(i).ListSubItems(3).Text / 1
Gravar!vl_unitario = ListView1.ListItems(i).ListSubItems(4).Text / 1
Gravar!vl_total = ListView1.ListItems(i).ListSubItems(5).Text / 1

Gravar.Update

Next j
Next i

MsgBox "REGISTRO SALVO COM SUCESSO!", 0 + vbInformation, "SALVO COM SUCESSO"
'Call ATUALIZAR
Call Limpar
Call bloquear
cmd_editar.Locked = True
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else

msg = "CAMPOS OBRIGATÓRIOS NÃO PREECHIDOS!" & vbNewLine
MsgBox msg, 0 + vbInformation, "CAMPOS OBRIGATÓRIOS"

Exit Sub
End If
Else

Gravar.Index = "PrimaryKey"
Gravar.Seek "=", ListView1.SelectedItem / 1
Gravar.Edit

'Campos não Obrigatórios
Gravar!cidade = TXT_CIDADE.Text
Gravar!UF = TXT_UF.Text

Gravar.Update

Set Gravar = Conexao.OpenRecordset("tb_saidas_itens")

'Loop as lignes
For i = 1 To ListView1.ListItems.Count

'Loop as colunas
For j = 1 To 1
Gravar.AddNew
Gravar!id_seq = txt_seq.Text / 1
Gravar!cod_produto = ListView1.ListItems(i).ListSubItems(1).Text
Gravar!qtd = ListView1.ListItems(i).ListSubItems(3).Text / 1
Gravar!vl_unitario = ListView1.ListItems(i).ListSubItems(4).Text / 1
Gravar!vl_total = ListView1.ListItems(i).ListSubItems(5).Text / 1

Gravar.Update

Next j
Next i

codigo = ListView1.SelectedItem / 1

MsgBox "REGISTRO ALTERADO COM SUCESSO!", 0 + vbInformation, "SALVO COM SUCESSO"
'Call ATUALIZAR
Call Limpar
Call bloquear
cmd_editar.Locked = True

End If

tratativas:

Select Case Err.Number
Case 3022
MsgBox "JÁ CADASTRADO!", 0 + vbCritical, "INCLUSÃO CANCELADA"
Case 53
Case 13
MsgBox "FORMATO INVÁLIDO, TENTE NOVAMENTE!", 0 + vbCritical, "SOMENTE VALOR NUMÉRICO"
End Select

End Sub


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: Listview para Planilha (Resolvido)

Mensagem por Reinaldo »

Não entendi a demanda.
Mais apropriado abrir um novo tópico detalhar melhor a demanda e fornecer exemplo do banco/planilha


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Não Consigo Editar os dados da listvew

Mensagem por CROVADOR »

Bom dia amigo, não estou conseguindo editar os dados conforme o código acima, ele edita os dados da textbox mas da listview ele só sobrepõe....

Não consegui abrir um novo tópico, me perdoe amigo.
Anexos
Nova pasta.rar
(1.4 MiB) Baixado 265 vezes


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