MSGBOX

MAICONLS 31/05/2005 13:27:21
#86147
Alguém saberia me dizer aonde esta o erro no codigo abaixo, pois quando troco de linha este código fica vermelho..


Private Sub cmdexcluir_Click()

MsgBox "Deseja realmente excluir o cliente &frmconsultaclientes.txtnomecliente.text&?",vbCritical+vbOKCancel,"Atenção!", vbok then


End Sub
[txt-color=#ff0000] [/txt-color]
TRUHILLO 31/05/2005 13:31:50
#86150
Esse vbok depois do título "Atenção!" tá fora do lugar.
MAICONLS 31/05/2005 13:36:08
#86151
Não esta certo ali ? Onde seria então ?
USUARIO.EXCLUIDOS 31/05/2005 13:45:03
#86154 Resposta escolhida
não existe ele...
MsgBox "Deseja realmente excluir o cliente" & frmconsultaclientes.txtnomecliente.text & "?",vbCritical+vbOKCancel,"Atenção!"

Assim acreditu q funciona

MAICONLS 31/05/2005 13:53:05
#86158
E como eu verificaria se o botão ok foi clicado para executar alguns comandos ou o botão cancelar para sair ? Obrigado
FABIO.ALEXANDRE 31/05/2005 13:57:34
#86159
BOM FICA ASSIM

IF MsgBox "Deseja realmente excluir o cliente" & frmconsultaclientes.txtnomecliente.text
& "?",vbCritical+vbOKCancel,"Atenção!") =VBYES THEN
COMMAND1 AQUI
ELSE
COMMAND2 AQUI
END IF


ESPERO TER AJUDADO
MAICONLS 31/05/2005 14:14:09
#86166
Coloquei assim:

If MsgBox ("Deseja realmente excluir o cliente "&frmconsultaclientes.txtnomecliente.Text&"?",vbCritical+vbYesNo," Atenção!")= vbYes then

e me gera um erro:

Compile error:
Expected:List separator or)
USUARIO.EXCLUIDOS 31/05/2005 14:16:21
#86167
Dá espaço entre o " & "...

If MsgBox("Deseja realmente excluir o cliente " & frmconsultaclientes.txtnomecliente.Text & "?", vbCritical + vbYesNo, " Atenção!") = vbYes Then
Tópico encerrado , respostas não são mais permitidas
Voltar