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 17/12/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 : 1218
    Registrado : 05/02/2010

    mostrar todos os itens relacionados

    Mensagem  good guy em 22/12/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 29/12/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 : 1218
    Registrado : 05/02/2010

    mostrar todos os itens relacionados

    Mensagem  good guy em 29/12/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 29/12/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 29/12/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 : 1218
    Registrado : 05/02/2010

    mostrar todos os itens relacionados

    Mensagem  good guy em 29/12/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.]

    Se quiser aprender mais adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

    Editora Livrorama(DOMINE ...):
    [Você precisa estar registrado e conectado para ver este link.]

    Editora Ciência Moderna(TÉCNICAS...):
    [Você precisa estar registrado e conectado para ver este link.]


    Um grande abraço.

    "O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
    Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
    Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)

      Data/hora atual: 26/9/2018, 09:49