[Resolvido]Mensagem em MsgBox

Bom dia,

Ao excluir os registros emite uma caixa de mensagem....

Eis o código:

Private Sub btExcluir_Click()
Dim VarCampo As String
   VarCampo = cboAvaliacao
   Dim Msg As String
 
On Error GoTo 1

'Seu codigo aqui...
If MsgBox("Deseja excluir o item: " & VarCampo & "?", vbYesNo + vbInformation, "Atenção") = vbYes Then
       DoCmd.SetWarnings False
....

Funciona tudo certo, porém
na mensagem exibe o número da avaliação ( VarCampo = cboAvaliacao). O campo cbo Avaliacao é chave estrangeira (FK) eu gostaria que exibisse o nome da avaliação.

Obrigada!

Olá Margarete,

Você pode utilizar assim:

If MsgBox("Deseja excluir o item: " & Trim(cboAvaliacao.Text) & "?", vbYesNo + vbInformation, "Atenção") = vbYes Then
DoCmd.SetWarnings False ...


Boa sorte.

[]'s

algo parecido com isso...

VarCampo = cboAvaliacao.column(2)  a coluna 2 deve ser onde se encontram os nomes desejados.

Eita...respondemos juntos Alexandre.

Relaxa Silvão!!!
É tudo nosso aqui...rsss

Obrigada deu certo!!!!

Valeu Margarete..
Obrigado pelo retorno...o fórum agradece!!

Valeu Silvio !!!

Abraços a todos !!!