[Resolvido]Formatar Campo que aparece numa MsgBox

Bom dia

Private Sub Rubrica_Exit(Cancel As Integer)

If (Not IsNull(DLookup("[Ref]", "Referencia", "[Ref] ='" & Me!Rubrica & "'"))) Then
MsgBox "A Rubrica " & Rubrica & " já existe Tabela de Rubricas.",vbInformation, "Aviso"
Cancel = True 'cancela o evento.
Me!Rubrica = "" 'desfaz a digitação.
Me.Rubrica.SetFocus
End If

A mensagem é exemplo: A Rubrica Caixa já existe Tabela de Rubricas

Nesta ação como formatar a parte a vermelho, para aparecer em Vermelho

Obrigado

Cor só mesmo você fazer um formulario que substituiu a mensagem.

No limite, podemos colocar a Bold;

   If (Not IsNull(DLookup("[Ref]", "Referencia", "[Ref] ='" & Me!Rubrica & "'"))) Then
       Eval ("MsgBox ('A Rubrica " & Rubrica & ".@já existe Tabela de Rubricas..@@',0,' Aviso')")
   Cancel = True 'cancela o evento.
   Me!Rubrica = "" 'desfaz a digitação.
   Me.Rubrica.SetFocus
 End If

Obrigado
JPaulo

Não se pode ter tudo ...

É verdade Assis,

Obrigado pelo retorno, o forum agradece.

Pois é amigos
Embora já esteja resolvido

Deixar parte da linha em negrito (bold) usando @@ já não existe no A2007, uma pena.

Assis

Caso use o A2007 ou 2010, veja esse Tópico.

Abraços