Página 5 de 5
Re: Listview para Planilha
Enviado: Qui Mai 10, 2018 8:59 am
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....
FECHAR COM O X DO FORMULÁRIO
Enviado: Ter Mai 15, 2018 5:42 pm
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...
Re: Listview para Planilha (Resolvido)
Enviado: Qua Mai 16, 2018 4:36 pm
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
Re: Listview para Planilha (Resolvido)
Enviado: Qua Mai 16, 2018 5:20 pm
por CROVADOR
obrigado amigo Francklim deu certo...
Deus abençoe
codigo automatico vba access
Enviado: Ter Mai 29, 2018 2:04 pm
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?
PESQUISA DADOS LISTVIEW
Enviado: Dom Jun 03, 2018 9:42 am
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...
Não Consigo Editar os dados da listvew
Enviado: Sex Out 22, 2021 9:03 am
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
Re: Listview para Planilha (Resolvido)
Enviado: Dom Out 24, 2021 11:29 am
por Reinaldo
Não entendi a demanda.
Mais apropriado abrir um novo tópico detalhar melhor a demanda e fornecer exemplo do banco/planilha
Re: Não Consigo Editar os dados da listvew
Enviado: Seg Out 25, 2021 8:39 am
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.