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

    Repetir um dado de uma tabela em vários registros de outra tabela

    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Repetir um dado de uma tabela em vários registros de outra tabela Empty Repetir um dado de uma tabela em vários registros de outra tabela

    Mensagem  rmobombeiro 20/8/2016, 00:44

    Boa noite, Pessoal!

    Tenho um bd aonde faço o lançamento da saída de veículos da empresa aonde trabalho.
    Nele tenho um formulário principal "frm_PesqOcor" onde aparecem todas as informações do dia de serviço. Tenho outro formulário "frm_ServDia" aonde faço um tipo de cabeçalho, mostrando quem esta de serviço no dia, cada dia é uma turma diferente. Em outro formulário "frm_CadOcorr" faço o cadastro das saídas dos veículos.
    Como faço para que esse cabeçalho seja copiado em cada registro de saída de veículos do dia?
    Isso servirá para que, por exemplo, no dia 19 de agosto de 2016 eu possa saber quem estava de serviço no dia 19 de agosto de 2015, apenas olhando o registro de um dos veículos que saíram naquele dia.

    Segue link do meu bd
    https://mega.nz/#!cB0iEJxb!JqkMK2eyNW11IaUF_L33UUbAydxTtO_0ogY6LA4a8E8

    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

    Repetir um dado de uma tabela em vários registros de outra tabela Empty Re: Repetir um dado de uma tabela em vários registros de outra tabela

    Mensagem  rmobombeiro 24/8/2016, 22:58

    Postando novamente!
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Repetir um dado de uma tabela em vários registros de outra tabela Empty Re: Repetir um dado de uma tabela em vários registros de outra tabela

    Mensagem  rmobombeiro 5/9/2016, 14:28

    ...
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Repetir um dado de uma tabela em vários registros de outra tabela Empty Re: Repetir um dado de uma tabela em vários registros de outra tabela

    Mensagem  rmobombeiro 3/10/2016, 05:02

    ...
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Repetir um dado de uma tabela em vários registros de outra tabela Empty Re: Repetir um dado de uma tabela em vários registros de outra tabela

    Mensagem  rmobombeiro 5/10/2016, 16:47

    Alguém pode me ajudar com essa dúvida?
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Repetir um dado de uma tabela em vários registros de outra tabela Empty Re: Repetir um dado de uma tabela em vários registros de outra tabela

    Mensagem  Dilson 5/10/2016, 17:54

    Vejo ser possível fazer um filtro de datas: data da ocorrência da tabela ocorrência filtra data de serviço da tabela serviço e assim mostra os nomes dos funcionários de serviço.
    avatar
    DMSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 19/09/2015

    Repetir um dado de uma tabela em vários registros de outra tabela Empty Repetir um dado de uma tabela em vários registros de outra tabela

    Mensagem  DMSilva 6/10/2016, 01:03

    Boa noite, se eu entendi bem a sua pergunta, faça o seguinte:

    1) crie um campo CodServ na tabela Cad_Ocor, e faça o relacionamento um para muitos com o campo codigo da tabela ServDia, e quando for cadastrar a ocorrência informe o respectivo código da equipe em serviço naquele dia.
    2) com todos estes dados na tabela Cad_Ocor, você pode manipula-los da maneira que quiser através de uma consulta.
    3) lembrando que antes de fazer o relacionamento dito precisa informar em todas ocorrencias(no campo criado) o código da equipe em serviço.
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Repetir um dado de uma tabela em vários registros de outra tabela Empty Re: Repetir um dado de uma tabela em vários registros de outra tabela

    Mensagem  rmobombeiro 8/10/2016, 15:36

    Como faço para, quando selecionar a data no form_Cad_Ocor, puxar automaticamente os dados da tabela ServDia?
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Repetir um dado de uma tabela em vários registros de outra tabela Empty Re: Repetir um dado de uma tabela em vários registros de outra tabela

    Mensagem  Dilson 13/10/2016, 18:27

    Veja como pode puxar. Coloque em um botão no formulário de edição da ocorrência:


    Dim xRS As DAO.Recordset
    Dim xSQL As String
    Dim DataOcor As Date
    Dim DataServ As Date

    DataOcor = Format(txtdata, "mm/dd/yyyy")

    xSQL = "SELECT * FROM ServDia WHERE DataServ=#" & DataOcor & "#;"
    Set xRS = CurrentDb.OpenRecordset(xSQL)

    If xRS.RecordCount = 0 Then
    MsgBox "Nenhum registro encontrado."
    Else
    MsgBox "Pront: " & xRS(2) _
    & vbCrLf & "CmtPront: " & xRS(3) _
    & vbCrLf & "CmtPront: " & xRS(3)
    End If

    xRS.Close
    Set xRS = Nothing


    Daí já dá pra ter uma ideia se deixa como mensagem assim como está ou se implementa para algum objeto/controle.

      Data/hora atual: 3/12/2022, 05:06