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]Inserir dados em subformulario com botão

    SCHWERTNER
    SCHWERTNER
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 07/08/2015

    [Resolvido]Inserir dados em subformulario com botão Empty [Resolvido]Inserir dados em subformulario com botão

    Mensagem  SCHWERTNER Qua 14 Set - 11:29

    Estou criando um sistema de notas de um colégio. Tenho uma tabela de cadastro de alunos, outra tabela com os períodos que são trimestrais por ano e uma outra tabela com as matérias do currículo.
    Criei um formulário chamado “NOTAS” , um outro formulário dentro dste com o nome de “NOTAS_CT” e dentro deste um subformulário com o nome de “NOTAS_CTSUB”.
    Criei um botão com o nome “INSERIR NOTAS”, que ao clicar ele coloque as matérias dentro do subformulário “NOTAS_CTSUB”. Inseri um código VBA que faz estes lançamentos.
    Acontece que eu quero que somente insira as matérias do currículo, que estão relacionadas com a tabela “TAB_CURRICULO”, pois tem matérias que são tiradas do currículo anual e outras novas inseridas.
    Quero que somente sejam lançadas as matérias relacionadas como “SIM” no cadastro da Tabela “MATÉRIAS” e também somente as matérias desta Tabela e não a um número que está estipulado no código VBA. Segue o código e o BD em anexo. O Access é 97.
    Private Sub Comando17_Click()

    Dim rst As DAO.Recordset
    Set rst = Me.NOTAS_CTSUB.Form.Recordset
    Set db = CurrentDb
    Set tb = db.OpenRecordset("TAB_NOTAS")

    Dim I

    For I = 2 To 20
       tb.AddNew
       tb!COD_MATERIA = I
       tb!COD_PERIODO = Forms!NOTAS!NOTAS_CT!COD_PERIODO
       tb.Update

    Next I

    End Sub
    Anexos
    [Resolvido]Inserir dados em subformulario com botão AttachmentTESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (230 Kb) Baixado 3 vez(es)
    Maicon
    Maicon
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 07/09/2012

    [Resolvido]Inserir dados em subformulario com botão Empty Re: [Resolvido]Inserir dados em subformulario com botão

    Mensagem  Maicon Dom 18 Set - 22:08

    Tente fazer uma consulta com critérios e use o critério sim.
    Depois aponte seu Recordset para a consulta.


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    SCHWERTNER
    SCHWERTNER
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 07/08/2015

    [Resolvido]Inserir dados em subformulario com botão Empty Inserir dados em subformulario com botão

    Mensagem  SCHWERTNER Seg 19 Set - 11:24

    Olá.. Obrigado pela sugestão.

    Consegui resolver de outra forma. Funcionou..

    Consegui resolver de outra forma.

    Private Sub Comando17_Click()

    Dim rst As DAO.Recordset
    Set rst = Me.NOTAS_CTSUB.Form.Recordset
    Set db = CurrentDb
    Set tb = db.OpenRecordset("TAB_NOTAS")

    Dim I

    For I = 2 To DLast("[COD_MATERIA]", "TAB_MATERIA", "[COD_MATERIA]")
    tb.AddNew
    tb!COD_MATERIA = I
    tb!COD_PERIODO = Forms!NOTAS!NOTAS_CT!COD_PERIODO
    tb.Update

    Next I

    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RunCommand acCmdRefresh

    End Sub

    Criei uma consulta de exclusão com critérios sem que apareçam as mensagens de exclusão e executei uma Macro após perder o foco do botão.

    Private Sub Comando17_LostFocus()

    Application.SetOption "Confirm Action Queries", False

    DoCmd.RunMacro "EXCLUIR"

    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RunCommand acCmdRefresh

    End Sub


    Talvez o exemplo sirva para outro integrante do fórum poder adaptar o projeto.

    Abraço e obrigado

      Data/hora atual: Sab 1 Out - 12:01