MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Vários registros em um Formulário Access

    Compartilhe

    wesleymeim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 20/08/2014

    Vários registros em um Formulário Access

    Mensagem  wesleymeim em Seg 29 Set 2014, 21:38

    Tenho a seguinte situação, tenho uma tabela com 50.000 mil registros no SQL Server 2008 e estou tentando fazer a seguinte ação:

    Quando executo o código abaixo, o mesmo abre uma conexão com o sql e traz o registro da tabela para mim, mais ele sempre traz um registro, gostaria que o mesmo mostrasse um formulário com todos os registros da minha tabela, ou seja, na figura 1 o mesmo mostra somente um registro como mostra abaixo e eu gostaria que mostrasse como na figura 2, trazendo todos os registros.

    Estou anexando um arquivo com a situação que iria me ajudar bastante se alguém souber.

    Desde já agradeço.

    Obrigado.

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Vários registros em um Formulário Access

    Mensagem  LiveBrain em Seg 29 Set 2014, 21:51

    Na verdade ele está trazendo sim todos os registros, porem o modo padrão do seu formulário está como Formulário Simples

    Mudo o Modo Padrão do seu formulário para Formulário continuo ou folha de dados

    Lembre-se de deixar como SIM a opção Permitir modo de folha de dados


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    wesleymeim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 20/08/2014

    Vário Registros

    Mensagem  wesleymeim em Ter 30 Set 2014, 13:51

    Bom dia!

    Primeiramente obrigado pela resposta, mais eu já havia feito isso e o mesmo ainda retorna apenas um registro.

    Será que eu não teria que fazer uma espécie de laço for each na hora que peço para mostrar o registro?

    Sabe se seria mais ou menos nessa linha?

    Lembre-se que minha tabela está no SQL, eu criei aqueles campos como caixas de texto.

    Fico no aguardo.

    Obrigado.

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Vários registros em um Formulário Access

    Mensagem  LiveBrain em Ter 30 Set 2014, 17:30

    Entendi,

    Tente colocar a linha abaixo após sua mensagem de conexão estabelecida com sucesso


    Código:
    Set Me.RecordSet = rs


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    wesleymeim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 20/08/2014

    Complemento

    Mensagem  wesleymeim em Ter 30 Set 2014, 18:51

    Muito obrigado.....

    Funcionou.

    Mais tem um porém, o mesmo mostra a quantidade de registros que tenho na tabela que é 80 mil registros, mais mostra todos como o mesmo código de cliente, na realidade parece que o mesmo ficou preso no primeiro registro.

    Sabe o que tenho que fazer para resolver isso?


    Obrigado.

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Vários registros em um Formulário Access

    Mensagem  LiveBrain em Ter 30 Set 2014, 19:24

    ah sim, vc tem que definir a fonte de dados de cada controle.
    Vai ficar assim


    Código:
            Form_frm_rrdetail.txt_cod_cliente.ControlSource = .Fields("cod_cliente")
            Form_frm_rrdetail.txt_candis.ControlSource = .Fields("candis")
            Form_frm_rrdetail.txt_desc_cliente.ControlSource = .Fields("desc_cliente")
            Form_frm_rrdetail.txt_pais_cliente.ControlSource = .Fields("pais_cliente")
            Form_frm_rrdetail.txt_id_vendedor.ControlSource = .Fields("id_vendedor")
            Form_frm_rrdetail.txt_desc_vendedor.ControlSource = .Fields("descr_vendedor")


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    wesleymeim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 20/08/2014

    Erro

    Mensagem  wesleymeim em Ter 30 Set 2014, 19:54

    Boa atrde!

    Colocando essa propriedade está dando o seguinte resultado:

    txt_cod_cliente txt_candis txt_desc_cliente txt_pais_cliente txt_id_vendedor txt_desc_vendedor
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?
    #Nome? #Nome? #Nome? #Nome? #Nome? #Nome?

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Vários registros em um Formulário Access

    Mensagem  LiveBrain em Qua 01 Out 2014, 03:16

    Opa...
    adicione ao final de cada lina a propriedade .Name

    Código:
    Form_frm_rrdetail.txt_cod_cliente.ControlSource = .Fields("cod_cliente").Name

    Agora vai hein!!! cheers


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    wesleymeim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 20/08/2014

    Funcionou

    Mensagem  wesleymeim em Qua 01 Out 2014, 15:05

    Muio obrigado.

    wesleymeim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 20/08/2014

    Editar Recordset

    Mensagem  wesleymeim em Qui 02 Out 2014, 16:46

    Boa tarde!

    Estou com um dívida e gostaria de saber se você pode me ajudar?

    Tenho o seguinte código:

    Private Sub Form_Load()

    Call FunctionAbreConnection

    Set rss = New ADODB.Recordset
    Set rss.ActiveConnection = cns

    sqls = "select ukey, teste1, teste2, teste3, teste4, teste5, teste6, teste7 from teste_tbl_0023_access"

    rss.CursorLocation = adUseClient
    rss.Open sqls, cns, adOpenForwardOnly, adLockPessimistic

    MsgBox "Conexão Efetuada com Sucesso"

    Set Me.Recordset = rss

    End Sub


    O mesmo abre minha conexão e mostra os registros da minha tabela em um formulário Folha de Dados como mostra a figura do arquivo em anexo e até aí, perfeito. Mas a questão e que gostaria de editar os campos que tem as informações do meu formulário, estava lendo na internet e parece que é a forma que estou usando o recordset.

    Você pode me ajudar?

    Desde já agradeço a atenção.


    Valeu....
    Anexos
    Editar Registro.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 8 vez(es)

      Data/hora atual: Sex 09 Dez 2016, 07:40