Boa tarde! Meu primeiro tópico no fórum rsrs
Tenho uma tabela com três campos (De, Para e Mensagem) e um relatório com um botão que pega os valores e coloca nessa tabela via VBA. Ele faz tudo certinho com o De e com o Para, mas não salva a Mensagem. Esse é o código que estou usando:
Private Sub BotaoEnviar_Click()
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("TabelaMensagens", dbOpenTable)
rs.AddNew
rs![De] = Forms![FormularioMensageiro]![Nome]
rs![Para] = Forms![FormularioMensageiro]![ListaUsuarios]
rs![Mensagem] = Reports![RelatorioMensageiro]![Msg]
rs.Update
DoCmd.Requery
End Sub
Ele simplesmente deixa o campo Mensagem em branco, mesmo que eu digite um texto gigante na caixa de texto referida (Msg).
Alguém saberia me dizer o que preciso fazer para resolver isso?
Tenho uma tabela com três campos (De, Para e Mensagem) e um relatório com um botão que pega os valores e coloca nessa tabela via VBA. Ele faz tudo certinho com o De e com o Para, mas não salva a Mensagem. Esse é o código que estou usando:
Private Sub BotaoEnviar_Click()
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("TabelaMensagens", dbOpenTable)
rs.AddNew
rs![De] = Forms![FormularioMensageiro]![Nome]
rs![Para] = Forms![FormularioMensageiro]![ListaUsuarios]
rs![Mensagem] = Reports![RelatorioMensageiro]![Msg]
rs.Update
DoCmd.Requery
End Sub
Ele simplesmente deixa o campo Mensagem em branco, mesmo que eu digite um texto gigante na caixa de texto referida (Msg).
Alguém saberia me dizer o que preciso fazer para resolver isso?