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 11/6/2019, 13:39

    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 : 953
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 11/6/2019, 14:09

    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 : 4585
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 11/6/2019, 14:10

    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 : 953
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 11/6/2019, 14:22

    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 11/6/2019, 14:25

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

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim em 11/6/2019, 14:40

    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 : 4585
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 11/6/2019, 18:29

    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: 5/7/2020, 10:36