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]mostrar todos os itens relacionados

    Compartilhe

    Dave.fs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 22/11/2014

    [Resolvido]mostrar todos os itens relacionados

    Mensagem  Dave.fs em Qua 17 Dez 2014, 10:27

    Bom dia.

    tenho um campo tipo caixa de seleção no form relacionado com vários outros campos de um outro form. Quando eu vou selecionar um dado no campo ele aparece completo com todos os campos relacionado, porem, depois de selecionado aparece apenas o primeiro dado.
    tem alguma forma de que nessa caixa apareçam todos os dados?
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1119
    Registrado : 05/02/2010

    mostrar todos os itens relacionados

    Mensagem  good guy em Seg 22 Dez 2014, 19:11

    Olá haxaki,

    Creio que sim utilizando a função DPesquisa(Dlookup) .

    Dave.fs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 22/11/2014

    Re: [Resolvido]mostrar todos os itens relacionados

    Mensagem  Dave.fs em Seg 29 Dez 2014, 13:08

    Sou novato poderia me mostrar um exemplo?
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1119
    Registrado : 05/02/2010

    mostrar todos os itens relacionados

    Mensagem  good guy em Seg 29 Dez 2014, 13:40

    Olá hakaxi,

    Código:
    Public Function Informacao()
    Dim nBusca, nBusca2 As String
    Dim sCod As Integer

    sCod = Forms!NomedoFormulário!CodNome

    'Informa o Campo1 da Tabela1
    nBusca = DLookup("Campo1","Tabela1","CodNome = " & sCod)

    txtCampo1 = nBusca    'Caixa de texto referente ao Campo1

    'Informa o Campo2 da Tabela2
    nBusca2 = DLookup("Campo2","Tabela1","CodNome = " & sCod)

    txtCampo2 = nBusca    'Caixa de texto referente ao Campo2

    .....
    End Function


    Última edição por good guy em Seg 29 Dez 2014, 15:29, editado 2 vez(es)

    Dave.fs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 22/11/2014

    Re: [Resolvido]mostrar todos os itens relacionados

    Mensagem  Dave.fs em Seg 29 Dez 2014, 15:12

    eu tava pensando em uma coisa um pouco diferente, mas isso ficou ate melhor doq eu queria, obrigado
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1119
    Registrado : 05/02/2010

    mostrar todos os itens relacionados

    Mensagem  good guy em Seg 29 Dez 2014, 15:26

    Olá hakaxi,

    O fórum todo agradece.

    Obs: Visite também o meu site e adquira também o e-book TÉCNICAS ESPECIAIS DE ACCESS VBA !!! No Facebook dêem uma curtida na página também. Vamos apoiar a tecnologia VBA para o ACCESS !!! Se quiser adquiri-lo, envie-me sua solicitação para um dos seguintes emails:

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Site: [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Seg 23 Abr 2018, 03:02