[Resolvido]Obrigar campo do formulário

Bom dia Galera!!
Estou trabalhando com o sistema de Chat que nosso amigo João Marcos publicou, inclusive parabenizo ele pelo trabalho!

Não manjo de vba mas precisava de uma solução para o seguinte problema que o sistema possui:
Quando realizamos um login e iniciamos o chat, é extremamente importante selecionar o usuário de destino da mensagem, caso isso não ocorra o Access apresenta um erro de tempo de execução e interrompe a execução do código. Sendo assim as mensagens perdem seu remetente e só chegam ao destino quando o usuário realiza logoff no seu usuário e mesmo assim não chegam com o nome do remetente.

Uma solução seria obrigar o usuário a escolher o destinatário antes de qualquer coisa, porém como fazer isso?
OBS: Os campos já estão marcados como "Requeridos".
OBS 2: Os usuários são "admin" e "user" ambos com a senha "123"

Desde já agradeço a atenção e prontidão de todos!

Bom dia,

Vá na tabela em modo design e no campo dest marque a opção "Requerido" como NÃO.

Abraço.

Opa! deu certo.
Mas agora preciso que a tabela armazene apenas registros com o campo "dest" preenchido, sem salvar as mensagens incompletas.

Boa tarde,

Nestes casos, procure sempre fazer a verificação de preenchimento no próprio formulário e não na tabela. Isso evita idas e trabalho desnecessários na tabela.

Dito isto, troque o codigo do cmdSubmit pelo abaixo:

Código:

Private Sub cmdSubmit_Click()
    If Not IsNull(UsuCadastrados) = True Then
        Dim db As Database
        Dim rs As Recordset
        Dim Dest As String
        Dim Remet As String
       
        Set db = CurrentDb
        Set rs = db.OpenRecordset("tblConversation")
       
        Dest = "UsuCadastrados"
        Remet = getUsuarioAtual()
       
        rs.AddNew
        rs!Dest = UsuCadastrados
        rs!Remet = getUsuarioAtual()
        rs!conversation1 = getUsuarioAtual() & ": " & txtSayThis
        rs.Update
       
        rs.Close
        db.Close
       
        txtSayThis.SetFocus
        txtSayThis = ""
    Else
        MsgBox "Informe o destinatário da mensagem!", vbCritical, "Erro"
        UsuCadastrados.SetFocus
    End If
End Sub

Abraço.

Amigo, deu certo!!
Era exatamente o que precisava!!!
Brigadão! Vocês são feras.

Bom dia,

O forum agradece o retorno.

Abraço.