MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Mensagem em MsgBox

    avatar
    margaretekl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 31
    Registrado : 30/07/2017

    [Resolvido]Mensagem em MsgBox Empty [Resolvido]Mensagem em MsgBox

    Mensagem  margaretekl em Ter 11 Jun 2019, 2:39 pm

    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!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1033
    Registrado : 13/12/2016

    [Resolvido]Mensagem em MsgBox Empty Re: [Resolvido]Mensagem em MsgBox

    Mensagem  Alexandre Fim em Ter 11 Jun 2019, 3:09 pm

    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
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Mensagem em MsgBox Empty Re: [Resolvido]Mensagem em MsgBox

    Mensagem  Silvio em Ter 11 Jun 2019, 3:10 pm

    algo parecido com isso...

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

    Eita...respondemos juntos Alexandre.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1033
    Registrado : 13/12/2016

    [Resolvido]Mensagem em MsgBox Empty Re: [Resolvido]Mensagem em MsgBox

    Mensagem  Alexandre Fim em Ter 11 Jun 2019, 3:22 pm

    Relaxa Silvão!!!
    É tudo nosso aqui...rsss
    rabbit rabbit rabbit
    avatar
    margaretekl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 31
    Registrado : 30/07/2017

    [Resolvido]Mensagem em MsgBox Empty Mensagem em MsgBox

    Mensagem  margaretekl em Ter 11 Jun 2019, 3:25 pm

    Obrigada deu certo!!!!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1033
    Registrado : 13/12/2016

    [Resolvido]Mensagem em MsgBox Empty Re: [Resolvido]Mensagem em MsgBox

    Mensagem  Alexandre Fim em Ter 11 Jun 2019, 3:40 pm

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

    Valeu Silvio !!!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Mensagem em MsgBox Empty Re: [Resolvido]Mensagem em MsgBox

    Mensagem  Silvio em Ter 11 Jun 2019, 7:29 pm

    Abraços a todos !!!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: Ter 11 Ago 2020, 2:18 am