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

    Duplo Click

    Compartilhe

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    Duplo Click

    Mensagem  Maurício Bruno em Seg 25 Set 2017, 17:42

    Boa Tarde!

    Tenho um formulário com uma view de itens cadastrados.

    Gostaria que ao clicar duas vezes no registro da view ao invés de abrir um novo formulário com os dados, as informações aparecessem em uma MsgBox.

    Conto com ajuda e atenção para solução desta dúvida.
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: Duplo Click

    Mensagem  thiagomcosta em Seg 25 Set 2017, 18:19

    Coloque o código no evento ao clicar duas vezes do controle.

    Se possível coloquei dê mais detalhes para darmos uma resposta mais assertiva.

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    Re: Duplo Click

    Mensagem  Maurício Bruno em Seg 25 Set 2017, 18:57

    Boa Tarde! thiagomcosta,

    Primeiramente agradeço pela atenção e ajuda.

    Eu já tenho um evento, entretanto, gostaria que ao clicar duas vezes aparece uma msgbox com os dados da linha que eu cliquei.

    Código:
    Private Sub list_historico_DblClick(Cancel As Integer)
    MsgBox
    End Sub

    Aparece uma erro, Erro de compilação "O argumento não é opcional"

    Grato,
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: Duplo Click

    Mensagem  thiagomcosta em Seg 25 Set 2017, 19:50

    Está faltando o argumento do msgbox

    Tente:
    Código:
    Private Sub list_historico_DblClick(Cancel As Integer)
       MsgBox list_historico
      Cancel = True
    End Sub

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    Re: Duplo Click

    Mensagem  Maurício Bruno em Seg 25 Set 2017, 20:29

    thiagomcosta,

    Apresentou um erro "Erro em tempo de execução '94' - Uso de 'Null' inválido".

    Grato pela atenção.
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: Duplo Click

    Mensagem  thiagomcosta em Seg 25 Set 2017, 21:30

    Isso é porque o campo list_historico está com valor nulo.

    Tente assim:

    Código:
    Private Sub list_historico_DblClick(Cancel As Integer)
      MsgBox nz(list_historico, "Campo histórico vazio")
      Cancel = True
    End Sub

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    Re: Duplo Click

    Mensagem  Maurício Bruno em Seg 25 Set 2017, 21:50

    thiagomcosta,

    Funcionou parte...rsrs
    Na minha view tem os campos (LogUser, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status), porém, só apareceu o LogUser, eu queria que aparecesse os demais campos na Msgbox.

    Grato,
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: Duplo Click

    Mensagem  thiagomcosta em Seg 25 Set 2017, 22:04

    Era a informação que eu tinha aqui.

    Sugestão, aí você vai ter que adaptar com o que você tem aí:

    Código:
    Private Sub list_historico_DblClick(Cancel As Integer)
      Dim vMensagem as string
      vMensagem = nz(list_historico, "Campo histórico vazio") & chr(13) & "Usuario: " & LogUser & chr(13) & "Data: " & LogData & chr(13) & "Nome: " & NomeForm & chr(13) & "Campo: " & NomeCampo & chr(13) & "VAlor antigo: " & ValorAntigo & chr(13) & "Valor atual: " & ValorAtual & chr(13) & "Status: " & Status
      MsgBox vMensagem
      Cancel = True
    End Sub

    Lembre-se de usar a função NZ quando tiver campos que podem conter valores nulos.
    Os títulos dos campos mude conforme o seu projeto, sua necessidade.
    Se tiver dúvida com relação à alguma função, clique em cima dela e aperte F1.

    Qualquer coisa estamos por aqui.

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    Re: Duplo Click

    Mensagem  Maurício Bruno em Ter 26 Set 2017, 12:54

    thiagomcosta,

    Apareceu este tela que segue anexo, porém, sem os dados deste campos.

    Grato,
    Anexos
    Tela.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (201 Kb) Baixado 1 vez(es)
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: Duplo Click

    Mensagem  thiagomcosta em Ter 26 Set 2017, 17:31

    Tem como postar esta parte do projeto? Fica mais fácil achar o erro.

      Data/hora atual: Qua 22 Nov 2017, 20:16