MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Cadastrar contas na tabela saldos mensais

    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    [Resolvido]Cadastrar contas na tabela saldos mensais Empty [Resolvido]Cadastrar contas na tabela saldos mensais

    Mensagem  cleverson_manaus Qua 15 Out - 21:01

    Caros

    Antes de postar esse tópico tive o cuidado de pesquisar, achei casos similares mas não consegui adaptar ao meu.

    Então venho pedir ajuda ao forum, agradeço antecipadamente qualquer forma de ajuda.

    Bem, criei duas tabelas com os seguintes campos:

    Contas - id, número;

    Saldos - id, mês/ano, conta;

    Minha dúvida

    Antes de iniciar os lançamentos na tabela diário preciso inserir na tabela saldos cada conta cadastrada junto com o mês/ano, que será informado em um formulário.

    Estou tentando realizar essa operação através de um procedimento ao clicar um botão de comando.

    Espero ter conseguido ser claro.

    Muito obrigado pela oportunidade.
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 19/01/2013

    [Resolvido]Cadastrar contas na tabela saldos mensais Empty Re: [Resolvido]Cadastrar contas na tabela saldos mensais

    Mensagem  João Ricardo Seg 20 Out - 21:47

    Olá amigo!
    Se vc criar uma consulta e associar a execução dela ao botão de comando resolveria seu problema?
    Se vc já tiver uma parte dos dados inseridos na referida tabela, estes deverão ser diferenciados dos novos registros assim que forem necessários?


    .................................................................................
     cheers Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  study   scratch 
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    [Resolvido]Cadastrar contas na tabela saldos mensais Empty Cadastrar Saldos Mensais

    Mensagem  cleverson_manaus Qua 22 Out - 12:29

    Caros,

       Após pesquisar, encontrei um code e consegui adaptá-lo, bem inserir uma imagem do form que criei, como é a primeira vez, espero que consigam visualizá-lo.

        Bem concluindo, esse código na verdade pega os id das contas cadastradas e os insere na tabela saldos mensais, juntamente com o mês e ano informado em um campo do form Saldos Cadastrados, quanto aos créditos do autor do code original, o mesmo é anônimo, mas desde já agradeço antecipadamente.

    Agradeço as visualizações dos colegas do fórum, e ao colega João Ricardo.
       
    Resolvi postar o mesmo para que sirva de ajuda ou referência para outras situações semelhantes.

    Abraços,


    Cleverson

    Código:
    Private Sub Salvar()

    'Fazendo transação com o banco de dados

    On Error GoTo TrataErros

    'Fazendo transação com o banco de dados

    On Error GoTo TrataErros

    Dim WS As DAO.Workspace
    Dim db As DAO.Database

    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset


    Set WS = DBEngine.Workspaces(0)
    Set db = CurrentDb()

    Set rs1 = db.OpenRecordset("tb_plano_contas")
    Set rs2 = db.OpenRecordset("tb_saldos")


    strUserName = basMachineName.fOSMachineName()

    lin = Chr$(13) & Chr$(10)


        blnOK = Confirmar("" & strUserName & ", Confirmar a Inclusão?" & lin _
                        & lin & "Data      :  " & Me.DS_SD & lin _
                        & lin & "Mês/Ano   :  " & Format(Me.MA_SD, "mmm/yyyy") & "")

        If blnOK Then
            
                
            rs1.MoveFirst
            Do While Not rs1.EOF()
            With rs2
              .AddNew
              !ID_SD = Nz(DMax("ID_SD", "tb_saldos"), 0) + 1
              !MA_SD = Me.MA_SD
              !CT_SD = rs1!ID_PC
              !RC_SD = strUserName
              !DS_SD = Me.DS_SD
              .Update
            End With
            rs1.MoveNext
            Loop

        
                ExclMsg "Saldo(s) Cadastrado(s) com sucesso!"
        
        Else
            
                InfoMsg "Inclusão Cancelada"
                DoCmd.CancelEvent
        
        End If

    rs1.Close
    rs2.Close
                    
    Set rs1 = Nothing
    Set rs2 = Nothing

    db.Close
    Set db = Nothing

    Saida:
    Exit Sub

    TrataErros:

    If Err.Number = 2279 Then

        CritMsg "Por favor! Preencha todos os dígitos do campo."
        
        Exit Sub

    End If

    If Err.Number = 3022 Then

            CritMsg "Saldos Mensais já estão cadastrados!"

        Exit Sub

    End If

    If Err.Number = 3101 Then

        CritMsg "Registro com dados por salvar."
        
        Exit Sub

    End If

        CritMsg "Ocorreu um erro! " & Err.Description & "."
        
        Exit Sub

    Resume Saida
    End Sub
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 19/01/2013

    [Resolvido]Cadastrar contas na tabela saldos mensais Empty Re: [Resolvido]Cadastrar contas na tabela saldos mensais

    Mensagem  João Ricardo Qui 23 Out - 6:02

    Ok! Cleverson

    Obrigado pelo retorno.

    Dê um resolvido aí


    .................................................................................
     cheers Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  study   scratch 
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    [Resolvido]Cadastrar contas na tabela saldos mensais Empty Re: [Resolvido]Cadastrar contas na tabela saldos mensais

    Mensagem  cleverson_manaus Sex 24 Out - 9:46

    Brother já havia finalizado o tópico

    Abraços


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 19/01/2013

    [Resolvido]Cadastrar contas na tabela saldos mensais Empty Re: [Resolvido]Cadastrar contas na tabela saldos mensais

    Mensagem  João Ricardo Sex 24 Out - 15:03

    Maravilha!

    Não prestei atenção!!


    .................................................................................
     cheers Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  study   scratch 

    Conteúdo patrocinado


    [Resolvido]Cadastrar contas na tabela saldos mensais Empty Re: [Resolvido]Cadastrar contas na tabela saldos mensais

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 28 Mar - 16:36