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

3 participantes

    [Resolvido]update de campo de uma tabela para outra

    avatar
    1108.carlos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 02/01/2012

    [Resolvido]update de campo de uma tabela para outra Empty update de campo de uma tabela para outra

    Mensagem  1108.carlos 2/1/2012, 17:51

    Boa Tarde pessoal! Sou novato no fórum
    Estou iniciando na programação em access e estou com uma dúvida

    Vi esse código nos 102 códigos mas não estou conseguindo executá-lo, não acontece nada!

    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
    Dim strSql As String
    strSql = "UPDATE Tabela2,Tabela1 "
    strSql = strSql & "SET Tabela2.Campo2 = Tabela1.Campo1 WHERE Tabela2.CampoID=Tabela1.CampoID;"
    CurrentDb.Execute (strSql)
    End Sub


    Não sei se seria bem essa minha necessidade, vou tentar explicar de uma forma genérica, tenho duas tabelas:
    tblDados (Código, CodEmpresa, Empresa, Valor)
    tblEmpresa (Código, Empresa) onde estão registradas todas as empresas! e o campo Código está relacionado com CodEmpresa da tblDados.

    O que eu queria que ao entrarem dados na minha tblDados o campo CodEmpresa fosse preenchido de acordo com o código daquela empresa que encontra-se na tblEmpresa!

    Creio que seja parecido com esse código acima, mas não estou conseguindo execultá-lo!

    Se alguém puder me ajudar ficarei mt grato!

    Abraços!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  JPaulo 3/1/2012, 09:19

    Ola seja bem vindo ao forum.

    O Código acima é para inserir na tabela 2, os registros da tabela 1, não é o seu caso.

    Você para o preencimento automatico deve utilizar a função DLookup.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]update de campo de uma tabela para outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]update de campo de uma tabela para outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]update de campo de uma tabela para outra Folder_announce_new Instruções SQL como utilizar...
    avatar
    1108.carlos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 02/01/2012

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  1108.carlos 3/1/2012, 16:10

    Então estive olhando a função Dlookup, mas ele insere automaticamente os dados em um formulário, sobre uma determinda pesquisa, trabalha com filtragens não e?! não sei se seria este o meu caso!

    Eu realmente quero inserir na tblDados os valores da tblEmpresas!
    Pois quando importo meus dados, em grande quantidade, ele vem apenas com o nome da empresa e minha necessidade seria trabalhar com código da empresa que encontra-se na tblEmpresas!


    tblEmpresa - (Código, Empresa) - já tenho todas as empresas com seus respectivos códigos
    tblDados - ( ***** , Empresa) - queria que fosse inserido o código das determinadas empresas ao atualizar! Nesta tabela as empresas podem se repetir mas terem apenas um outro campo diferente, mas o código é o mesmo!

    se alguém puder me ajudar!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  JPaulo 3/1/2012, 16:39

    Amigão nesse caso sim, pode colocar o codigo no evento VBA ao pressionar, num formulario;

    Teste;

    'By JPaulo ® Maximo Access
    Dim strSql As String
    strSql = "UPDATE tblDados,tblEmpresa "
    strSql = strSql & "SET tblDados.CodEmpresa = tblEmpresa.CodEmpresa WHERE tblDados.Empresa=tblEmpresa.Empresa;"
    CurrentDb.Execute (strSql)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]update de campo de uma tabela para outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]update de campo de uma tabela para outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]update de campo de uma tabela para outra Folder_announce_new Instruções SQL como utilizar...
    avatar
    1108.carlos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 02/01/2012

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  1108.carlos 3/1/2012, 19:37

    Grande mestre!!
    Perfeito tudo funcionando!!

    Só queria saber mais uma informação
    quando eu ponho no evento do formulário após atualizar ou no botão ele funciona perfeitamente

    Eu queria colocá-lo no evento fomulário no campo Empresa, nesse caso não acontece nda!
    tenho que fazer alguma modificação nesse caso?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  JPaulo 4/1/2012, 09:18

    Amigão bom dia;

    Existe duas possibilidades;

    1ª Faz update a todos os registros:

    Private Sub Empresa_AfterUpdate()
    'By JPaulo ®️ Maximo Access
    Dim strSql As String
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    strSql = "UPDATE tblDados,tblEmpresa "
    strSql = strSql & "SET tblDados.CodEmpresa = tblEmpresa.CodEmpresa WHERE tblDados.Empresa=tblEmpresa.Empresa;"
    CurrentDb.Execute (strSql)
    End Sub


    2ª Faz update ao registro onde a Empresa for igual à que está no seu campo no momento:


    Private Sub Empresa_AfterUpdate()
    'By JPaulo ®️ Maximo Access
    Dim strSql As String
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    strSql = "UPDATE tblDados,tblEmpresa "
    strSql = strSql & "SET tblDados.CodEmpresa = tblEmpresa.CodEmpresa WHERE tblDados.Empresa=tblEmpresa.Empresa AND tblDados.Empresa= '" & Me.Empresa & "'"
    CurrentDb.Execute (strSql)
    End Sub


    Agora a escolha acertada é sua.... Laughing



    Última edição por JPaulo em 4/1/2012, 12:16, editado 1 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]update de campo de uma tabela para outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]update de campo de uma tabela para outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]update de campo de uma tabela para outra Folder_announce_new Instruções SQL como utilizar...
    avatar
    1108.carlos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 02/01/2012

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  1108.carlos 4/1/2012, 11:40

    Desculpe pois começei a aprender programação agora!

    você poderia me explicar melhor a frase que vc modificou!

    AND teste1.Empresa= '" & Me.Empresa & "'"

    Não entendi quem será teste1
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  JPaulo 4/1/2012, 12:15

    teste1 fui a fazer o teste aqui, mil desculpas.

    O correto é:

    AND tblDados.Empresa= '" & Me.Empresa & "'"

    Retificado acima.




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]update de campo de uma tabela para outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]update de campo de uma tabela para outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]update de campo de uma tabela para outra Folder_announce_new Instruções SQL como utilizar...
    avatar
    1108.carlos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 02/01/2012

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  1108.carlos 4/1/2012, 13:05

    Funcionou perfeitamente!

    Apenas um último ajuste, tenho um botão no meu formulário que importa diretamente para minha tabela!
    coloquei o código no após atualizar, mas ele só insere o codEmpresa depois que eu clico no botão salvar!
    Tem alguma função que torne isso automático? Pois outras pessoas usarão o bancos de dados e talvez não saibam deste detalhe!

    Estou usando esse código

    1ª Faz update a todos os registros:

    Private Sub Empresa_AfterUpdate()
    'By JPaulo ® Maximo Access
    Dim strSql As String
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    strSql = "UPDATE tblDados,tblEmpresa "
    strSql = strSql & "SET tblDados.CodEmpresa = tblEmpresa.CodEmpresa WHERE tblDados.Empresa=tblEmpresa.Empresa;"
    CurrentDb.Execute (strSql)
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  JPaulo 4/1/2012, 14:06

    intão ?

    Esta instrução já salva;

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]update de campo de uma tabela para outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]update de campo de uma tabela para outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]update de campo de uma tabela para outra Folder_announce_new Instruções SQL como utilizar...

    FernandoRogerio gosta desta mensagem

    avatar
    1108.carlos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 02/01/2012

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  1108.carlos 5/1/2012, 17:27

    Amigão,
    vlw mesmo pela sua ajuda


    Tudo certinho!!!

    Resolvido!
    FernandoRogerio
    FernandoRogerio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 30/12/2016

    [Resolvido]update de campo de uma tabela para outra Empty Re: [Resolvido]update de campo de uma tabela para outra

    Mensagem  FernandoRogerio 23/8/2021, 15:03

    Só passando para agradecer por este post, salvou aqui.
    Obrigado gente.

      Data/hora atual: 1/10/2022, 16:48