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]Salvar dados em duas tabelas e retornar dado do útimo registro

    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 12/03/2016

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  rmobombeiro 5/5/2016, 23:25

    Boa noite a todos!
    Sou novo no fórum e iniciante no access.

    Estou construindo um banco de dados e estou com algumas dúvidas. Ele já esta praticamente pronto, porém gostaria de incrementar algumas funcionalidade. Meu banco de dados é para controlar saída e entrada de veículos de minha empresa. Uma delas é:
    -no meu "BD" tem duas tabelas e dois formulários: na tblCad_Ocor, tblViaturas, Frm_PesqOcor e Frm_CadOcor.

    Na tblCad_Ocor estáo todos os dados dos itinerários dos veículos; na tblViaturas estão cadastrados todos os veículos disponíveis e o KM final; o Frm_PesqOcor  exibe todas as informações sobre o dia de serviço e no Frm_CadOcor faço o cadastro de todas as saídas dos veículos.

    No Frm_CadOcor é possível cadastras quatro veículos de uma única vez (Veículo, KM de saída, horário de saída, KM de chegada e horário de chegada), esses dados serão armazenados na tblCad_Ocor.

    Minha primeira dúvida é: quando eu preencher esses dados no Frm_CadOcor, como faço para salva-los na tblCad_Ocor e tblViaturas (sendo que na tblViaturas quero salvar apenas o KM de chegada do respectivo veículo).

    Minha segunda dúvida é: como faço para exibir o KM de chegada, do registro anterior daquele veículo, no campo KM inicial do novo registro e como exibir esse mesmo dado no Frm_PesqOcor quando eu selecionar o veículo através de uma caixa de combinação.

    Obs: quando eu salvar o registro, ele será salvo como um novo registro na tblCad_Ocor, porém na tblViaturas o campo KM de chegada será apenas atualizado.

    Espero que tenha me feito entender.

    Obrigado
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 12/03/2016

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  rmobombeiro 10/5/2016, 16:23

    Boa tarde!

    Por favor pessoal, me ajudem, por favor. Já procurei em vários lugares, mas não encontrei nada que me tirasse essa dúvida.

    Obrigado
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  cleverson_manaus 10/5/2016, 18:55

    Amigo,

    Não é legal repetir o mesmo tópico, assim vc compromete a qualidade das buscas.

    Bem, como respondi no seu outro tópico, poste o que vc já tem, facilita bastante pra quem quer te ajudar.

    Abraços,

    Cleverson
    Ok


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 12/03/2016

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  rmobombeiro 10/5/2016, 22:25

    Boa noite!

    Estou tentando anexar o banco de dados, mas não esta indo. O site esta dando mensagem de erro "O arquivo adicionado não é válido: nome do arquivo incorreto". Já tentei anexar tanto zipado quanto normal, já mudei o nome, a extensão e nada. Como devo proceder?

    Obrigado
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 12/03/2016

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  rmobombeiro 11/5/2016, 00:58

    Boa noite!

    Segue meu banco de dados.
    O formulário principal é o Frm_PesqOcor.

    https://mega.nz/#!NMU3iaKJ!rV9JUPCxJQUIm3ioAGww8CmU22OmKgjXbra4Bxbu8QA
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  Dilson 14/5/2016, 02:16

    Olá boa noite amigos.

    Olhei lá e pode tentar:

    Na primeira dúvida você vai salvar na tabela ocorrência como já vem salvando e para atualizar a tabela viatura bastará usar:

    currentdb.execute "UPDATE TabelaViatura SET Kilometragem=" & KM1 & " WHERE Codigo=" & ComboVatura

    Na segunda coloque após atualizar do campo viatura:

    With ComboViatura
    Me!TextBoxKMInicial.Value = .Column(2)
    End With



    e por último para exibir o mesmo dado no form Frm_PesqOcor, bastará ir na propriedade N° de colunas da ComboViatura e informar 3 (no momento está 2 e por isso não aparece).
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 12/03/2016

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  rmobombeiro 14/5/2016, 15:22

    Bom dia, Dilson!

    Não testei ainda, mas como direto para atualizar a tabela viaturas sendo que o campo KM pode ser atualizado pelos campos KM1,KM2, KM3 e KM4?
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  Dilson 14/5/2016, 15:52

    Replique:
    currentdb.execute "UPDATE TabelaViatura SET Kilometragem=" & KM1 & " WHERE Codigo=" & ComboVatura

    currentdb.execute "UPDATE TabelaViatura SET Kilometragem=" & KM2 & " WHERE Codigo=" & ComboVatura

    ... KM3

    ... KM4
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 12/03/2016

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  rmobombeiro 15/5/2016, 18:00

    Boa tarde, Dilson!

    Funcionou perfeitamente.
    Percebi uma situação que não tinha imaginado antes:
    Sempre que cadastro uma nova ocorrência, digito apenas os dados da saída, escolho o veículo e coloco o horário de saída. Tanto o km final quanto o horário final são preenchidos no retorno do veículo e isso faço clicando no botão "Alterar ", mas nem sempre que pressiono o botão alterar, é para encerrar, muitas vezes tenho que acrescentar outro veículo no mesmo registro.
    Percebi que ao colocar essa linha de código, se eu não digitar o km final, o access emite uma mensagem de erro de parâmetro" Update". Como faço para o sistema atualizar esse campo somente se eu digitar algo nele?
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 12/03/2016

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  rmobombeiro 15/5/2016, 20:43

    Boa tarde, Dilson!

    Obrigado por todas as explicações. Consegui fazer funcionar e ficou exatamente como eu queria.

    If (IsNull(Me.txtKMQ1) Or Me.txtKMQ1.Value = "") Then
    Else
    CurrentDb.Execute "update Viaturas set kmq=" & KMQ1 & " where código=" & cmbVTR1
    End If


    Valeu.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  Dilson 16/5/2016, 16:22

    Obrigado por informar como resolveu e o resolvido.


    If (IsNull(Me.txtKMQ1) Or Me.txtKMQ1.Value = "") Then


    Eu deixei de usar isnull, empty ou "" por perceber demasiadas falhas na leitura e hoje prefiro usar a função len e até agora mostra-se mais eficaz, exemplo:

    If Nz(Len(Me.txtKMQ1)) = 0 Then
    Else
          CurrentDb.Execute "update Viaturas set kmq=" & KMQ1 & " where código=" & cmbVTR1
    End If


    Até!
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 12/03/2016

    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  rmobombeiro 18/5/2016, 14:19

    Vou utilizar em meus projetos.

    Obrigado pela dica.

    Conteúdo patrocinado


    [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro Empty Re: [Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 04:15