MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 25
    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 : 824
    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 : 4440
    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 : 824
    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 : 25
    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 : 824
    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 : 4440
    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."

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/9/2019, 01:13