Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Listview para Planilha (Resolvido)
Re: Listview para Planilha
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....
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 533 vezes
FECHAR COM O X DO FORMULÁRIO
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...
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)
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
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 545 vezes
codigo automatico vba access
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?
alguem pode ajudar?
PESQUISA DADOS LISTVIEW
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...
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 542 vezes
Não Consigo Editar os dados da listvew
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
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
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Listview para Planilha (Resolvido)
Não entendi a demanda.
Mais apropriado abrir um novo tópico detalhar melhor a demanda e fornecer exemplo do banco/planilha
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
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.
Não consegui abrir um novo tópico, me perdoe amigo.
- Anexos
-
- Nova pasta.rar
- (1.4 MiB) Baixado 293 vezes