MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Duplo-Click - Listbox

    avatar
    Convidado
    Convidado


    [Resolvido]Duplo-Click - Listbox Empty [Resolvido]Duplo-Click - Listbox

    Mensagem  Convidado 4/1/2017, 20:10

    boas
    Estou a fazer algo mal... Encontrei aqui no fórum este exemplo do mester JP e tentei adaptar no bd... mas... ao efetuar o duplo-click da erro:
    Erro em tempo de execução'-2147352567 (80080009)': você não pode atribuir um valor a este objeto.
    Código - Mestre JP
    Private Sub Form_Load()
    'By JPaulo ® Maximo Access
       Dim varArgs
       Dim rst As DAO.Recordset
       
       'Pega o ID do registro
       varArgs = Me.OpenArgs
       
       'Verifica se o ID foi passado pelo OpenArgs
       If Not IsNull(varArgs) Then
       
           'Abre o recordset
           Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblCadRegistoDiario WHERE IDRegistoDiario = " & varArgs, 4)
           
           'Preenche os controles com dados do outro formulario
           With rst
                   Me.IDRegistoDiario = !IDRegistoDiario
                   Me.DataInicial = !DataInicial
                   Me.HoraInicial = !HoraInicial
                   Me.HoraFinal = !HoraFinal
                   Me.IDLocal = !IDLocal
                   Me.Descricao = !Descricao
                   Me.DetalheDescricao = !DetalheDescricao
                   Me.Concluido = !Concluido
                   Me.Obs = !Obs
               .Close
           End With
       Else
           MsgBox "Nenhum Registo foi encontrado para visualizar!", vbExclamation
       End If
    End Sub

    Clicando - Ok vai para o 1 Registo. Obrigado
    avatar
    Convidado
    Convidado


    [Resolvido]Duplo-Click - Listbox Empty Re: [Resolvido]Duplo-Click - Listbox

    Mensagem  Convidado 4/1/2017, 21:10

    Continuando... tentei assim mas . . . também não... Mad

    Private Sub listB_1_DblClick(Cancel As Integer)
    DoCmd.OpenForm "frmCadRegistoDiario"
    Forms!frmCadRegistoDiario!IDRegistoDiario = Me.listB_1.Column(0)
    Forms!frmConsregistodiario.Requery
    End Sub


    Erro em tempo de execução '2448':
    você não pode atribuir um valos a este objeto.

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Duplo-Click - Listbox Empty Re: [Resolvido]Duplo-Click - Listbox

    Mensagem  FabioPaes 4/1/2017, 22:33

    Um dos Campos não aceita Valores...
    Provavelmente seja este: Me.IDRegistoDiario

    Verifique na tabela se ele está como Numeração Automática... Se tiver, esse é o motivo. Ele nao aceita nenhum Valor!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Duplo-Click - Listbox Empty Re: [Resolvido]Duplo-Click - Listbox

    Mensagem  Noobezinho 4/1/2017, 23:08

    Olá amigos

    Dando um pitaco: Razz

    Complementando o que o Fábio escreveu, me parece ser uma tabela vinculada, que ira receber esses dados.

    Se for isso, é só mudar de Numeração automática, para número inteiro longo, nessa segunda tabela.

    [ ]'s



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Convidado
    Convidado


    [Resolvido]Duplo-Click - Listbox Empty Re: [Resolvido]Duplo-Click - Listbox

    Mensagem  Convidado 5/1/2017, 11:55

    Obrigado amigos ( Fábio e Noobezinho )... mas no Exemplo do mestre JP o ID esta mesmo em Numeração Automática... No entanto alterei como sugerido pelos amigos no entanto esta dando outro erro . . .
    Deixo bd para uma ajuda melhorada - Obrigado - https://www.dropbox.com/s/y7n7zbnk72e3xmz/APPGesAFazeres%20-%20LISTBOX.rar?dl=0
    Obrigado
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Duplo-Click - Listbox Empty Re: [Resolvido]Duplo-Click - Listbox

    Mensagem  FabioPaes 5/1/2017, 13:16

    Amigo, eu nao encontrei esse codigo:

     Dim varArgs
      Dim rst As DAO.Recordset
     
      'Pega o ID do registro
      varArgs = Me.OpenArgs
     
      'Verifica se o ID foi passado pelo OpenArgs
      If Not IsNull(varArgs) Then
     
          'Abre o recordset
          Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblCadRegistoDiario WHERE IDRegistoDiario = " & varArgs, 4)...


    Agora se o que pretende e ao Dar duplo clique na Caixa de Listagem, ele abrir o Formulário frmCadRegistoDiario, mude o comando para:

    DoCmd.OpenForm "frmCadRegistoDiario", , , "IDRegistoDiario = " & Me.listB_1.Column(0) & ""


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Convidado
    Convidado


    [Resolvido]Duplo-Click - Listbox Empty Re: [Resolvido]Duplo-Click - Listbox

    Mensagem  Convidado 5/1/2017, 14:18

    Fábio - you are the best ! Abraço amigo
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Duplo-Click - Listbox Empty Re: [Resolvido]Duplo-Click - Listbox

    Mensagem  FabioPaes 5/1/2017, 17:56

    Grato pelo retorno amigo e até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    [Resolvido]Duplo-Click - Listbox Empty Re: [Resolvido]Duplo-Click - Listbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:59