Amigo, você não existe. Só gratidão mesmo.
Juro que tenho tentado fazer essas alterações, mas sempre dava um erro. Acabei de comprar até um curso online de Access, pois tá difícil.
Ficou ótimo, ou melhor sensacional.
2 coisinhas que ainda precisaria alterar. Já peço desculpas por abusar da sua paciência comigo.
1) O que preciso alterar para não aparecer esta mensagem “Confirmar dados para gravação?”- Pois quero que grave direto. Senão vai precisar ficar dando enter toda vez. E a ideia é que a partir do momento que o aluno digitar a matricula dele já faça e grave o lançamento.
2) Na figura abaixo onde fica (Combinação295) onde tem Aluno: em que aparece uma lista suspensa como eu poderia trocar por DIGITAR neste campo a matrícula e a partir da digitação da matrícula + enter ele aí preencher do jeito que está os demais campos (nome) e (turma), mesmo que apareça matrícula no (matricula).
'------------------ GRAVAR REGISTRO ----------------------------------------------
resposta = MsgBox("Confirma dados para gravação?", vbYesNo, "Confirmação")
If resposta = vbYes Then
' Código para gravar os dados na tabela
'Dim db As Database
'Dim rs As Recordset
Dim db As DAO.Database
Dim rs As DAO.Recordset
' Abra a tabela onde deseja gravar os dados (TbRefeicao)
Set db = CurrentDb
Set rs = db.OpenRecordset("TbRefeicao")
' Adicione os dados aos campos da tabela
rs.AddNew
rs("MatrAluno") = Me.MatrAluno
rs("DataRefeicao") = Me!DtRefeicao
rs("HoraRefeicao") = Me!HrRefeicao
'rs("TipoRefeicao") = Me!TpRefeicao
rs.Update
' Feche o recordset e libere recursos
rs.Close
Set rs = Nothing
Set db = Nothing
' Limpe os controles após a gravação, se desejar
Me.MatrAluno = ""
Me.DtRefeicao = Null
Me.HrRefeicao = Null
Me.TpRefeicao = ""
Me.NomeAluno = ""
Me.TurmaAluno = ""
Me.MatrAluno = ""
Me.Combinação295 = ""
Me.Combinação295.SetFocus
Me.Lista15.Requery
Me.Lista18.Requery
Else
' Caso contrário, não faça nada ou adicione código adicional, se necessário
MsgBox "Dados não foram gravados na tabela.", vbInformation, "Informação"
End If