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]Preencher campo automático relacionado com informação de outra tabela

    Compartilhe

    alineporamos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 5
    Registrado : 20/08/2015

    [Resolvido]Preencher campo automático relacionado com informação de outra tabela

    Mensagem  alineporamos em Qui 20 Ago 2015, 2:59 pm

    Olá pessoal boa tarde, Rolling Eyes

    Como faço para preencher o campo automaticamente relacionado com a informação de outra tabela, por exemplo:

    A tabela principal "Informação usuário" possui os campos Cidade, Estado e Pais e em uma segunda tabela "local" eu tenho cadastrado as cidades, estados e paises.

    Como faço para na tabela principal eu preencha somente um campo com "flag" e os outros dois se preencham com os valores indicados na tabela local?

    Por exemplo, quando eu colocar a cidade Sorocaba, o estado e pais se preencham automaticamente?

    Obrigada Neutral
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 20/04/2011

    Re: [Resolvido]Preencher campo automático relacionado com informação de outra tabela

    Mensagem  Silvio em Qui 20 Ago 2015, 4:45 pm

    Olá, boa tarde !

    Seja bem vinda o fórum

    Nesse [Você precisa estar registrado e conectado para ver este link.], na mensagem de número dois, temos um exemplo do que precisa.

    Nesse outro [Você precisa estar registrado e conectado para ver este link.] na mensagem de número dois, tem 3 link´s com vários exemplos para estudos.

    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    alineporamos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 5
    Registrado : 20/08/2015

    Re: [Resolvido]Preencher campo automático relacionado com informação de outra tabela

    Mensagem  alineporamos em Seg 24 Ago 2015, 2:31 pm

    Silvio obrigada pela ajuda!

    Encontrei nos links o que preciso fazer na minha tabela, mas não consigo de forma alguma!

    Ja martelei a cabeça diversas vezes, tentei fazer de mil maneiras mas não consigo... Mad

    Preciso realmente aprender como fazer a conexão dos dados pq vou usar em outras consultas depois...
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Preencher campo automático relacionado com informação de outra tabela

    Mensagem  good guy em Seg 24 Ago 2015, 3:18 pm

    Olá Aline,

    Minha dúvida é, estes campos a serem preenchidos automaticamente estão ou não vinculados à tabela principal desse formulário onde eles estão? Quero dizer eles existem na tabela principal ou estas informações são temporárias(Não vinculadas), isto é, só são exibidas no momento que seleciono Sorocaba na combobox?
    Levando em conta que estes campos a serem preenchidos automaticamente NÃO estejam vinculados à tabela principal desse formulário onde eles estão e que estas informações procedem da tabela secundária, podemos realizar uma pesquisa baseada no código do estado e do país da tabela principal que sejam os mesmos encontrados na tabela secundária ou tabela local como você diz.

    Código:


    Public Sub cboCidade_AfterUpdate()
    Dim codEstado, codPais As Long
    Dim strProcura1, strProcura2 As String
    Dim sCidade As Variant

    sCidade = Me.cboCidade.Column(0)   'O índice zero se as informações das cidades da combo for Lista de Valores,
    'mas outro número qualquer se procedem de uma tabela. Vai depender de qual coluna está este campo(Cidade)
    'a começar de 0(zero) como sendo a primeira coluna da tabela.

    codEstado = Nz(DLookup("codEstado","tblPrincipal","Cidade = '" & sCidade & "'"))
    strProcura1 = Nz(DLookup("Estado","tblPrincipal","codEstado = " & codEstado))
    strProcura2 = Nz(DLookup("Pais","tblPrincipal","codEstado = " & codEstado))

    Me.Estado = strProcura1
    Me.Pais = strProcura2
    End Sub


    alineporamos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 5
    Registrado : 20/08/2015

    Re: [Resolvido]Preencher campo automático relacionado com informação de outra tabela

    Mensagem  alineporamos em Seg 24 Ago 2015, 6:22 pm

    Desculpe pessoal , sei que é um pouco de abuso mas vcs poderiam me ajudar (neste caso resolvendo).
    Preciso disso para amanha infelizmente não cheguei a nenhuma conclusao...  pale

    Coloquei o arquivo aqui :
    [Você precisa estar registrado e conectado para ver este link.]

    O que preciso é:
    Um formulario onde as os campos Plant, City, Country e Location da tabela 1-1-2 Company/Location apareçam preenchido nas informações da tabela 1-1 Personal Information de forma automatica.

    Por Exemplo, quando selecionar a Plant os campos City, Country e Location só apareça em combobox que tem as mesmas informações, entenderam?

    Obrigada por toda ajuda desde já!!!

    Smile
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Preencher campo automático relacionado com informação de outra tabela

    Mensagem  good guy em Seg 24 Ago 2015, 7:05 pm

    Olá Aline,

    Por favor, considere o fato de que todos tem boa vontade, mas também tem seus afazeres. Aguarde que até o final da tarde, uma solução sairá pra você de qualquer um de nós aqui do fórum. Tenha calma !!!

    alineporamos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 5
    Registrado : 20/08/2015

    Re: [Resolvido]Preencher campo automático relacionado com informação de outra tabela

    Mensagem  alineporamos em Seg 24 Ago 2015, 7:12 pm

    good guy me desculpe pelo afobamento, sei que todos tem seus afazeres assim como eu tbm!

    Desculpe se pareceu muito autoritario, mas foi um comentário aleatorio!

    Embarassed
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Preencher campo automático relacionado com informação de outra tabela

    Mensagem  good guy em Seg 24 Ago 2015, 9:19 pm

    Olá Aline,

    Insira esta função com sua chamada no evento AfterUpdate da sua combobox City. Repare que criei códigos específicos para Plant, Country, Location e City. Crie tabelas específicas para cada um desses campos com códigos indexados. Cada country, plant, location e city tem seu próprio código, entende? Portanto não podem se repetir nestas tabelas. Porém na tabela 1-1-2 Company/Location abaixo podem se repetir. Em seguida, crie relacionamentos dos seguintes códigos indexados destas tabelas-mãe abaixo e vincule-as com os código não indexados das tabelas-filhas logo abaixo dessas tabelas. Qualquer dúvida me envie um email para [Você precisa estar registrado e conectado para ver este link.] que te enviarei o bd em anexo para você.

    Código:

    tbl_Cities                     tbl_Countries               tbl_Locations                          tbl_Plants
    !CodCity                       !CodCountry                 !CodLocation                          !CodPlant
    City                               Country                       Location                                 Plant      

    Código:

    CodCountry   Country    CodPlant             Plant     CodCity   City           CodLocation             Location
    1        Brazil         1            ZF Sachs           1   Araraquara          1        South America
    1        Brazil         2            ZF do Brasil          2    Sorocaba                        1         South America
    1        Brazil         3            ZF Lemforder        2   Sorocaba            1        South America
    1        Brazil         1            ZF Sachs           3   São Bernardo do Campo 1         South America
    2      Argentina   1            ZF Sachs           4   San Francisco           1         South America
    Código:

    Private Sub City_AfterUpdate()
    Call Localizar(City)

    End Sub

    Código:

    Public Function Localizar(sCidade As Variant)
    Dim codEstado, codPais As Long
    Dim strProcura1, strProcura2 As String

    sCidade = Me.City.Column(0)   'O índice zero se as informações das cidades da combo for Lista de Valores,
    'mas outro número qualquer se procedem de uma tabela. Vai depender de qual coluna está este campo(Cidade)
    'a começar de 0(zero) como sendo a primeira coluna da tabela.

    codEstado = Nz(DLookup("CodLocation", "1-1-2 Company/Location", "City= '" & sCidade & "'"))
    codPais = Nz(DLookup("CodCountry", "1-1-2 Company/Location", "City= '" & sCidade & "'"))

    strProcura1 = Nz(DLookup("Location", "1-1-2 Company/Location", "CodLocation = " & codEstado))
    strProcura2 = Nz(DLookup("Country", "1-1-2 Company/Location", "CodCountry = " & codPais))

    Me.Location = strProcura1
    Me.Country = strProcura2
    End Function

    alineporamos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 5
    Registrado : 20/08/2015

    Re: [Resolvido]Preencher campo automático relacionado com informação de outra tabela

    Mensagem  alineporamos em Ter 25 Ago 2015, 2:55 pm

    Graças a Ajuda do Good Guy consegui a DB perfeita!

    Obrigada a todos! \o/
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Preencher campo automático relacionado com informação de outra tabela

    Mensagem  good guy em Qua 14 Out 2015, 1:59 pm

    Olá Aline,

    Valew. O fórum todo agradece. Dê uma curtida também em minha página no Facebook e faça um comentário sobre o meu trabalho.

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

    Visite meu site:

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

      Data/hora atual: Seg 16 Jul 2018, 12:12 pm