MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Inserir dado em registro já inserido

    Compartilhe

    varjal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 03/11/2011

    [Resolvido]Inserir dado em registro já inserido

    Mensagem  varjal em Sab 17 Ago 2013, 17:38

    Uma construtora usa um banco de dados que eu criei para inserir lotes de um condomínio vendidos. A partir de dados do formcontratos são inseridas todas as parcelas a vencer até a liquidação da compra.

    Utilizo o código abaixo para inserir parcelas de um contrato:

    Private Sub Comando83_Click()
    On Error GoTo Err_Comando83_Click

    Dim I As Integer

    For I = 1 To Parcelas_Quantidade

    CurrentDb.Execute "INSERT INTO tab_Parcelas([Contrato],[Versão],[Cliente],[Tipo],[Empreendimento],[Objeto],[Vencimento],[Valor],[OBS],[Parcela],[De]) VALUES ('" & Número & "','" & Versão & "','" & Cliente & "','" & Tipo1 & "','" & Empreendimento & "','" & Objeto & "','" & DateAdd("m", I - 1, Parcelas_DataInicial) & "'," & Parcelas_Valor & ",'" & OBS & "'," & I & "," & Parcelas_Quantidade & ")"
    Next


    Me.Requery

    MsgBox "Prestações Inseridas", vbOKOnly, "OK"



    Exit_Comando83_Click:
    Exit Sub

    Err_Comando83_Click:
    MsgBox Err.Description
    Resume Exit_Comando83_Click

    End Sub

    Até aí tudo funciona. agora preciso, todo mês, abrir as parcelas que estão vencendo e aplicar uma correção (índice divulgado pelo governo). teria como criar um código, provavelmente adaptar deste, para que ele abra as prestações com vencimento no mês que vou informar e insira um número no campo correção?


    PS: quando o BD ficar pronto irei postá-lo na íntegra no Repositório.

    Grato

    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 506
    Registrado : 31/12/2012

    boa tarde

    Mensagem  matheuspereira em Sab 17 Ago 2013, 19:26

    Olá amigo, use uma consulta atualização, para buscar os registro que quer e atualiza-los da maneira que vc necessita. Qualquer duvida poste seu bd que tento ajudar vc..

    varjal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 03/11/2011

    ok

    Mensagem  varjal em Sab 04 Out 2014, 02:54

    ok

      Data/hora atual: Qua 07 Dez 2016, 20:11