[Resolvido]Dúvida: Inserir dados a uma tabela usando o VBA

Bom dia amigos fórum!

É o seguinte: Estou fazendo um app para utilizar na escola bíblica na igreja.

Está quase concluído! vou explicar como funciona:

Tenho uma tabela (Controle_Ponto) onde armazena a frequência dos alunos, tantos para os
alunos "MATRICULADOS" quanto os "VISITANTES".

Para atribuí um "Visitante" na respectiva classe usei um botão de comando.

resumindo: Quero capturar "VISITANTE" e sua respectiva "CLASSE" na tabela "Controle_Ponto"


Observação:Quando Clico no botão do Visitante correspondente a "Classe", Ele capta a data o código e hora.
no caso não consigo captar o nome "Visitante" e a "Classe" respectiva.

segue abaixo a imagem ilustrando.. e código e também o bd para visualizarem.

Código:

Dim sql As String
Dim rst As Recordset

sql = "SELECT * FROM matricula WHERE cd=" & Me.txt_rf.Value

        Set rst = CurrentDb.OpenRecordset(sql)

If IsNull(DLookup("[cd]", "matricula", "[cd]=" & Me!txt_rf)) Then
    MsgBox "Registro não encontrado !", vbOKOnly + vbCritical, "Atenção"
    Me.txt_rf.Value = ""
    DoCmd.CancelEvent
Else
    Me.txt_aviso.Visible = True
    Me.txt_aviso.BorderStyle = 0
    Me.txt_aviso.Caption = rst!nome1
    Me.txt_sala.Visible = True
    Me.txt_sala.BorderStyle = 0
    Me.txt_sala.Caption = rst!Sala1
    Me.Foto.Visible = True
    Me.Foto = rst!Foto
End If


If MsgBox("CLICK EM OK OU TECLE ENTER PARA CONFIRMAR!", vbOKCancel, "REGISTRAR PONTO") = vbOK Then



        DoCmd.SetWarnings False 'desativa a exibição de mensagens do sistema
 DoCmd.RunSQL "INSERT INTO controle_ponto (cd,entrada1,pontodata) select " & Me.txt_rf & ",#" & Time & "#,#" & Format(Date, "mm/dd/yyyy") & "#"
        DoCmd.SetWarnings True
      
       Me.txt_rf.Value = Null
    Me.txt_aviso.Visible = False
    Me.txt_aviso.BorderStyle = 0
    Me.txt_aviso.Caption = ""
    Me.txt_sala.Visible = False
    Me.txt_sala.BorderStyle = 0
    Me.txt_sala.Caption = ""
    Me.Foto.Visible = False
    Me.Foto = ""
End If

    Set rst = Nothing
End Sub

https://www.dropbox.com/s/ss9rgo99wc2td4r/SISTEMA%20PARA%20ESCOLA%20BIBLICA%20DOMINICAL.accdb?dl=0
agradeço desde já meus amigos.

Boa tarde,
DoCmd.RunSQL "INSERT INTO controle_ponto (cd,entrada1,pontodata) VALUES (" & Me.txt_rf & ",#" & Time & "#,#" & Format(Date, "mm/dd/yyyy") & "#)"

Grande Alexandre!

Obrigado pelo retorno.

Ficou perfeito meu amigo

É muito bom contar com pessoas como você e outros
que compartilham seus conhecimento enriquecendo aprendizado
com o access. E sem falar que o aprendizado fica como legado em poder ajudar outras pessoas com dúvidas.

Abraços.

DoCmd.RunSQL "INSERT INTO controle_ponto (cd,entrada1,pontodata,nome_aluno,classe,status)VALUES('" & Me.txt_rf & "',#" & Format(Date, "mm/dd/yyyy") & "#,#" & Time & "#, '" & Me.txt_nome & "','" & Me.txt_classe & "', '" & Me.txt_status & "')"

Grande Alexandre!

Obrigado pelo retorno.

Ficou perfeito meu amigo

É muito bom contar com pessoas como você e outros
que compartilham seus conhecimento enriquecendo aprendizado
com o access. E sem falar que o aprendizado fica como legado em poder ajudar outras pessoas com dúvidas.

Abraços.

Boa tarde,
Ainda bem que resolveu
Não altere as dúvidas colocadas e que ajudarão outros colegas a entender cada passo da construção da solução