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.