[Resolvido]Botão para adicionar novo registro do formulário para subformulário

Olá!

Minha sugestão é que vc utilize a consulta INSERT para gravar os dados do formulário direto na tabela, origem do subformulário.  Aproveita e veja neste meu artigo como tratar os vários tipos de dados na consulta INSERT

https://www.usandoaccess.com.br/dicas/tipos-de-dados-consulta-insert-vba.asp

Bom estudo!

Código:

Private Sub Adicionar_novo_curso_Click()

Dim NovoCurso As String

    If MsgBox("Inserir Novo Curso?", vbYesNo + vbInformation, "Atenção") = vbYes Then
        
        'comando que insere no subform os dados que você desejar. O primeiro parênteses se refere aos campos do seu subform, o segundo parênteses são os campos do seu formulário.
        NovoCurso = "INSERT INTO Subformulario (ID_aluno, Nome_Completo, Curso, Modo_de_curso, Valor_mensal, Dia_da_semana) Values ('" & Me.ID_aluno & "', '" & Me.Nome_Completo & "', '" & Me.Curso & "', '" & Me.Modo_de_curso & "', '" & Me.Valor_mensal & "', '" & Me.Dia_da_semana & "')"

        DoCmd.RunSQL (NovoCurso)
        

    End If


End Sub

Código:

Private Sub Comando432_Click()

    'adiciona dados a tabela
    CurrentDb.Execute "INSERT INTO DADOS CURSO_MENSALIDADE ([ID ALUNO], [ALUNO(A)], [PROFESSOR(A)], [CURSO], [DIA DA SEMANA], [HORÁRIO], [VALOR MENSALIDADE], [MODO DE CURSO], [TURMA]) " & _
            " VALUES ('" & Me.ID_ALUNO & "', '" & Me.ALUNO_A_ & "', '" & Me.PROFESSOR__A_ & "', '" & Me.CURSO & "', '" & Me.DIA_DA_SEMANA & "', '" & Me.HORÁRIO & "', '" & Me.VALOR_MENSALIDADE & "', '" & Me.MODO_DE_CURSO & "', '" & Me.TURMA & "')"
            
    'atualiza dados da lista do formulário
    DADOS_CURSO_MENSALIDADE_subformulário.Form.Requery
End Sub


Código:

Private Sub Comando432_Click()

    'adiciona dados a tabela
    NovoCurso = "INSERT INTO DADOS_CURSO_MENSALIDADE (ALUNO, PROFESSOR, CURSO, DIA_DA_SEMANA, HORARIO, VALOR_MENSALIDADE, MODO_DE_CURSO, TURMA) Values ('" & Me.[ALUNO] & "', '" & Me.[PROFESSOR] & "', '" & Me.[CURSO] & "', '" & Me.[DIA_DA_SEMANA] & "', '" & Me.[HORARIO] & "', '" & Me.[VALOR_MENSALIDADE] & "', '" & Me.[MODO_DE_CURSO] & "', '" & Me.[TURMA] & "' )"
DoCmd.RunSQL (NovoCurso)

    'atualiza dados da lista do formulário
    DADOS_CURSO_MENSALIDADE_subformulário.Form.Requery
End Sub