Não Consigo Editar os dados da listvew (1 Viewer)

[Antonio Augusto Crovador]

Boa Tarde 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 ...

Não estou conseguindo editar os dados conforme o código abaixo, ele edita os dados da caixa de texto mas da lista de visualização ele só sobrepõe ....

Sub privado cmd_salvar_Click ()
On Error GoTo tratativas
Dim Conexao As Banco de dados
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 = ConexapenRecordset ("TB_CIDADES")

If lb_funcao_ativa .Caption = "FUNÇÃO ATIVA: INSERINDO NOVO REGISTRO ....."
Se TXT_CIDADE.Text <> "" E TXT_UF.Text <> "" Então

Gravar.AdicionarNovo

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

codigo = Gravar! Código
Gravar.Update

Set Gravar = ConexapenRecordset ("tb_saidas_itens")

'Loop como 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

Seguinte j
Next i

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

msg = "CAMPOS OBRIGATÓRIOS NÃO PREECHIDOS!" E












Gravar! UF = TXT_UF.Text

Gravar.Update

Set Gravar = ConexapenRecordset ("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 "
'Chamada ATUALIZAR
Chamada Limpar
Chamada
bloquear cmd_editar.Locked = True

End Se

tratativas:

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

End Sub

 

[arnelgp]

can you post the workbook or a link to it?

 

[Antonio Augusto Crovador]

você pode postar a pasta de trabalho ou um link para ela?

Vou mandar uma massa, excel com banco access...

 

[arnelgp]

i can't open the workbook (catastrophic error!).

 

[Antonio Augusto Crovador]

não consigo abrir uma pasta de trabalho (erro catastrófico!).

Você descompactou o arquivo?
Aqui abre normalmente, tem que ver suas bibliotecas se está registrado.

Minha Versão do Office é 2019