none
Alterar Dados Ordem Serviço RRS feed

  • Pergunta

  • Bom dia Amigos,

    Tenho um botão para alterar os dados no form ordem de serviço mas não está alterando, os codigos abaixo é para salvar os dados, eu queria um codigo para alterar os mesmos, alguem pode ajudar por favor?

    abraços

    Private Sub cmd_salvar_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

             
    quarta-feira, 4 de abril de 2018 14:21