Boa tarde
preciso alterar os dados gravados na ordem de serviço
criei um botão para alterar no form ordem_Serviço mas não tive exito ..
por favor ajude-me quem poder amigos...
o codigo abaixo é para editar mas não deu certo
Private Sub cmd_editar_Click()
Dim linha As Long
Dim I As Integer
Dim Item As ListItem
Dim ws As Worksheet
On Error Resume Next
Plan1.Select
If ListView1.ListItems.Count = 0 Then
MsgBox "Adicione Produtos na Lista", 0 + vbInformation, "Lista Vazia"
Exit Sub
End If
'Campos Obrigatórios
If Txt_Id_Cliente = "" Then
MsgBox "Campo Id Cliente é Obrigatório!", 0 + vbInformation, "Campo Obrigatório"
Txt_Id_Cliente.SetFocus
Exit Sub
End If
'Campos Obrigatórios
If Cbo_Tecnico = "" Then
MsgBox "Campo Técnico é Obrigatório!", 0 + vbInformation, "Campo Obrigatório"
Cbo_Tecnico.SetFocus
Exit Sub
End If
'Campos Obrigatórios
If Cbo_Situacao = "" Then
MsgBox "Verifique a Situação O.S !", 0 + vbInformation, "Campo Obrigatório"
Cbo_Situacao.SetFocus
Exit Sub
End If
Set ws = ThisWorkbook.Worksheets("Banco_Dados_Os")
linha = ThisWorkbook.Sheets("Banco_Dados_Os").Cells(Rows.Count, 1).End(xlUp).Row + 1
With ws
For I = 1 To ListView1.ListItems.Count
Sheets("Banco_Dados_Os").Cells(linha, 1) = Ordem_Serviço.Txt_id_Os.Text
Sheets("Banco_Dados_Os").Cells(linha, 7) = Ordem_Serviço.Txt_Id_Cliente.Text
Sheets("Banco_Dados_Os").Cells(linha, 8) = Ordem_Serviço.Cbo_Cliente.Text
Sheets("Banco_Dados_Os").Cells(linha, 9) = Ordem_Serviço.Txt_cpf_cnpj.Text
Sheets("Banco_Dados_Os").Cells(linha, 10) = Ordem_Serviço.Txt_telefone.Text
Sheets("Banco_Dados_Os").Cells(linha, 11) = Ordem_Serviço.Txt_Contato.Text
Sheets("Banco_Dados_Os").Cells(linha, 12) = Ordem_Serviço.Txt_Id_Veiculo.Text
Sheets("Banco_Dados_Os").Cells(linha, 13) = Ordem_Serviço.Txt_Placa_Veiculo.Text
Sheets("Banco_Dados_Os").Cells(linha, 14) = Ordem_Serviço.Txt_Renavan.Text
Sheets("Banco_Dados_Os").Cells(linha, 15) = Ordem_Serviço.Txt_Chassi.Text
Sheets("Banco_Dados_Os").Cells(linha, 16) = Ordem_Serviço.Txt_Frota.Text
Sheets("Banco_Dados_Os").Cells(linha, 17) = Ordem_Serviço.Txt_Pneu.Text
Sheets("Banco_Dados_Os").Cells(linha, 18) = Ordem_Serviço.Txt_Medida_Pneu.Text
Sheets("Banco_Dados_Os").Cells(linha, 19) = Ordem_Serviço.Txt_Tipo_Veiculo.Text
Sheets("Banco_Dados_Os").Cells(linha, 20) = Ordem_Serviço.Txt_Marca.Text
Sheets("Banco_Dados_Os").Cells(linha, 21) = Ordem_Serviço.Txt_Modelo_Veiculo.Text
Sheets("Banco_Dados_Os").Cells(linha, 22) = Ordem_Serviço.Txt_Ano.Text
Sheets("Banco_Dados_Os").Cells(linha, 23) = Ordem_Serviço.Txt_Id_Tacografo.Text
Sheets("Banco_Dados_Os").Cells(linha, 24) = Ordem_Serviço.Cbo_Marca_tco.Text
Sheets("Banco_Dados_Os").Cells(linha, 25) = Ordem_Serviço.Txt_Modelo_Tco.Text
Sheets("Banco_Dados_Os").Cells(linha, 26) = Ordem_Serviço.Txt_Nº_Serie_Tco.Text
Sheets("Banco_Dados_Os").Cells(linha, 27) = Ordem_Serviço.Txt_Km_Tco.Text
Sheets("Banco_Dados_Os").Cells(linha, 28) = Ordem_Serviço.Txt_K_Anterior.Text
Sheets("Banco_Dados_Os").Cells(linha, 29) = Ordem_Serviço.Txt_Fator_K.Text
Sheets("Banco_Dados_Os").Cells(linha, 30) = Ordem_Serviço.Txt_Fator_W.Text
Sheets("Banco_Dados_Os").Cells(linha, 31) = Ordem_Serviço.Txt_Lacre1.Text
Sheets("Banco_Dados_Os").Cells(linha, 32) = Ordem_Serviço.Txt_Lacre2.Text
Sheets("Banco_Dados_Os").Cells(linha, 33) = Ordem_Serviço.Txt_Lacre3.Text
Sheets("Banco_Dados_Os").Cells(linha, 34) = Ordem_Serviço.Txt_Selo1.Text
Sheets("Banco_Dados_Os").Cells(linha, 35) = Ordem_Serviço.Txt_Selo2.Text
Sheets("Banco_Dados_Os").Cells(linha, 36) = Ordem_Serviço.Txt_Selo3.Text
Sheets("Banco_Dados_Os").Cells(linha, 37) = Ordem_Serviço.Txt_Selo4.Text
Sheets("Banco_Dados_Os").Cells(linha, 38) = Ordem_Serviço.Txt_Selo5.Text
Sheets("Banco_Dados_Os").Cells(linha, 39) = Ordem_Serviço.Txt_Selo6.Text
Sheets("Banco_Dados_Os").Cells(linha, 40) = CDate(Ordem_Serviço.Lbl_Data_Atual.Caption)
Sheets("Banco_Dados_Os").Cells(linha, 41) = Ordem_Serviço.Cbo_Tecnico.Text
Sheets("Banco_Dados_Os").Cells(linha, 42) = Ordem_Serviço.Cbo_Situacao.Text
Cells(linha, 2) = ListView1.ListItems(I).Text
Cells(linha, 3) = ListView1.ListItems(I).SubItems(1)
Cells(linha, 4) = ListView1.ListItems(I).SubItems(2)
Cells(linha, 5) = CDbl(ListView1.ListItems(I).SubItems(3))
Cells(linha, 6) = CDbl(ListView1.ListItems(I).SubItems(4))
linha = ThisWorkbook.Sheets("Banco_Dados_Os").Cells(Rows.Count, 1).End(xlUp).Row + 1
Next
MsgBox "Lançado com Sucesso", vbInformation, "Ação Bem Sucedida!"
TextBox1.Text = Empty
TextBox2.Text = Empty
TextBox3.Text = Empty
TextBox4 = Empty
TextBox5 = Empty
Txt_Id_Cliente = Empty
Cbo_Cliente = Empty
Txt_cpf_cnpj = Empty
Txt_telefone = Empty
Txt_Contato = Empty
Txt_Id_Veiculo = Empty
Txt_Placa_Veiculo = Empty
Txt_Renavan = Empty
Txt_Chassi = Empty
Txt_Frota = Empty
Txt_Pneu = Empty
Txt_Medida_Pneu = Empty
Txt_Tipo_Veiculo = Empty
Txt_Marca = Empty
Txt_Modelo_Veiculo = Empty
Txt_Ano = Empty
Txt_Id_Tacografo = Empty
Cbo_Marca_tco = Empty
Txt_Modelo_Tco = Empty
Txt_Nº_Serie_Tco = Empty
Txt_Km_Tco = Empty
Txt_K_Anterior = Empty
Txt_Fator_K = Empty
Txt_Fator_W = Empty
Txt_Lacre1 = Empty
Txt_Lacre2 = Empty
Txt_Lacre3 = Empty
Txt_Selo1 = Empty
Txt_Selo2 = Empty
Txt_Selo3 = Empty
Txt_Selo4 = Empty
Txt_Selo5 = Empty
Txt_Selo6 = Empty
Cbo_Tecnico = Empty
Cbo_Situacao = Empty
ListView1.ListItems.Clear
lbl_soma_dados.Caption = ListView1.ListItems.Count & " ITENS"
lbl_valor_total.Caption = "0,00"
código_altomatico_Id_Os
Me.MultiPage1.Value = 0
Call Bloquear_Controles_Os
End With
End Sub
Postado : 04/04/2018 12:18 pm