ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Não Consigo Editar os dados da listvew

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

CROVADOR
Colaborador
Colaborador
Mensagens: 96
Registrado em: Ter Mar 13, 2018 11:15 am

Não Consigo Editar os dados da listvew

Mensagem por 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 textbox mas da listview ele só sobrepõe....

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
Anexos
Nova pasta.rar
(1.4 MiB) Baixado 125 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