Sobre relações entre tabelas

amigo não consegui fazer oque voce falo , tente deste modo
DEPOSITFILES DOWNLOAD


#OBS amigo como nem um problema ? acabei de tentar add uma data e não funcionou estou começando a achar qe deve ser minha maquina não sei !

Seus relacionamentos na consulta estão errados em relação a chave primária. Tire a chave primária do campo código da tabela ASO e deixe-o como do tipo Número. Siga o meu exemplo. Fora isso, não sei o que possa não dar certo. Estou indo embora. Agora só amanhã. Sucesso !!!

Um pitaco! Amigo Kenny pelo que eu entendi o seu problema está gerando em torno das relações entre tabelas na "Fonte de Dados" do seu SubFormulário. O Campo "ID_FUNCIONARIO" do seu SubFormulário é da tabela "tblFuncionarios" não da "ASO" portanto cada vez que você tentar inserir algo no seu SubFormulário o que acontecerá é: O Access tentará adicionar o ID_FUNCIONARIO no campo "ID_FUNCIONARIO" da sua tabela "tblFuncionario" e então o erro de "Registro Duplicado" ou a duplicação de datas. Observe as imagens abaixo:

Fonte de Dados Atual


Fonte de Dados Alterada


Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

bom dia   Jeferson de Paula ;

a opções OBRA E FUNCIONARIO são campos importantes para se aparecer no subform .

Sim Kenny, mas só que você não pode criar relacionamentos em um SubFormulário onde você estará inserindo dados (Entrada de Dados). Se os campos são importantes então você deverá usar um outro tipo de pesquisa para que o Access possa identificá-los e preencher os dados automaticamente. Uma sugestão é a função "DLookup()".

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

Como posso fazer isso ?
Eu ja tinha feito isso antes porem deu erro

Primeiramente desassocie os campos "FUNCIONARIO" e "OBRA", após ter feito isso bloqueie os campos "ID_FUNCIONARIO", "FUNCIONARIO" e "OBRA" para que o usuário não possa altera-los. Depois disso no evento "Ao Entrar" do campo DATA cole as seguintes intruções abaixo:

Código:

Private Sub DATA_Change()
On Error GoTo Err_DATA_Enter
Dim strFuncionario As String
Dim strObra As String

strFuncionario = DLookup("FUNCIONARIO", "tbFuncionario", "ID_FUNCIONARIO = '" & Me.ID_FUNCIONARIO.value & "'")
strObra = DLookup("OBRA", "OBRA", "ID_FUNCIONARIO = '" & Me.ID_FUNCIONARIO.value & "'")
    Me.FUNCIONARIO = strFuncionario
    Me.Obra = strObra

Exit_DATA_Enter:
    Exit Sub

Err_DATA_Enter:
    MsgBox "Ocorreu um erro ao tentar consultar o Funcionário. " & Err.Description, vbCritical, "Erro Inesperado"
    Resume Exit_DATA_Enter
End Sub

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

tentei mais danda adianto segue bd se possivel para vizualização
down

Kenny, você tentou usar o código que sugeri na mensagem anterior? É como eu já disse, você não pode inserir dados em tabelas relacionadas. O Access não aceita isso!

Download Exemplo

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

Algum progresso em seu problema amigo Kenny?

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

Amigo ;

Isso mesmo agora basta resolver o problema da OBRA NA ABA ASO , ao inves de inserir os valores corretos das demais linhas da aba OBRA está apenas duplicando ;

Observe : se você tentar adicionar irá aparecer SEDE deppis SEDE ETC...

Amigo Kenny, acho que infelizmente não vai dar para fazer isso uma vez que você tentando adicionar registros em uma tabela (ASO) com base em registros já inseridos na tabela (OBRA). Isso passa a ser impossível amigo. A menos que você crie um campo na tabela (ASO) chamado (OBRA) e no formulário uma Combo que liste todos as obras do funcionário. Neste caso quando você for colocar a data e o vencimento você deverá especificar a (OBRA). Isso não resolve?

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

Sim , ajudaria é o mesmo módulo que quero fazer , poderia criar um exemplos no meu bd para que eu possa vizualizar ?

Amigo Kenny, segue o exemplo quase operacional. Espero que ajude!

Download Exemplo 1.1

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

Versão 1.2 ajustada conforme o novo objeto no formulário!

Download Exemplo 1.2

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

obg amigo qual quer problema irei pedir para reabrir o topic .

Obrigado por me ajudarem

obg amigo qual quer problema irei pedir para reabrir o topic .

Obrigado por me ajudarem

Ok amigo Kenny, Boa Sorte!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

amigo , ultima pergunta reparei agora que a coluna funcionario na aba ASO não fixa o funcionario porq ?

Sim amigo Kenny, é pelo motivo de que o campo FUNCIONARIO não está vinculado nenhuma tabela ou consulta! Caso queira que ele também guarde os dados do campo FUNCIONARIO então deve criar um campo na tabela ASO e vincular o campo FUNCIONARIO do seu SubFormulário ao campo da tabela ASO!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

Ok , consegui agora é questão do relatorio , memso problema de vinculo eu acho .
Porque ele esta repetindo as obras as mesmas linhas.
Como posso revolver

Como disse amigo Kenny, os relacionamentos podem ainda estar lhe causando problemas!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

Amigo consegui resolver porém agora é a opção que aparece o nome do funcionario na aba FUNCIONARIO não estou conseguindo adicionar funcionarios

Olá Kenny,

Minha versão final corrigida. Faça as alterações que quiser no campo DATA e VENCIMENTO que garanto não vão se repetir. Para cadastrar o funcionário sem problemas, deixe os campos desacoplados e crie uma sub-rotina de inserção em sua tabela.

(1) Sub-Rotina de inserção do funcionário:

Public Sub InserirFuncionario()
Dim sFunc As String
Dim sCPF As String
Dim sCelular As String
Dim sStatus As String
Dim sContrato As String
Dim strSQL As String

sFunc = Forms!FControleDeFuncionario!FUNCIONARIO
sCPF = Forms!FControleDeFuncionario!CPF
sCelular = Forms!FControleDeFuncionario!CELULAR
sStatus = Forms!FControleDeFuncionario!STATUS
sContrato = Forms!FControleDeFuncionario!NºContrato

strSQL = "INSERT INTO tbFuncionario(ID_FUNCIONARIO,NºFICHA,CELULAR,STATUS_FICO_DO_EMPREGADO,FUNCIONARIO)VALUES ('" & sCPF & "','" & sContrato & "','" & sCelular & "','" & sStatus & "', '" & sFunc & "')"
CurrentDb.Execute strSQL

MsgBox "Cadastro Realizado com Sucesso !!!", vbInformation, "Cadastro do Funcionário"
End Sub

Private Sub cmdAdicionar_Click() 'Comando1045_Click()

Call InserirFuncionario

End Sub


(2) Visualização do cadastro feito pela combo de consulta:

Private Sub cboConsulta_AfterUpdate()
Dim filtro As String
filtro = "funcionario = '" & Me.cboConsulta.Column(1) & "'"
DoCmd.ApplyFilter , filtro
Me.Funcionário.SetFocus
Dim sMens As String
sMens = cboConsulta.Column(0)
cboConsulta = sMens
Dim sConsFunc As String
Dim sCPF As String
Dim sCelular As String
Dim sStatus As String
Dim nFicha As String
sConsFunc = cboConsulta.Column(0)
Forms!FControleDeFuncionario!FUNCIONARIO = DLookup("FUNCIONARIO", "tbFuncionario", "ID_FUNCIONARIO= '" & sConsFunc & "'")
Forms!FControleDeFuncionario!CPF = DLookup("ID_FUNCIONARIO", "tbFuncionario", "ID_FUNCIONARIO= '" & sConsFunc & "'")
Forms!FControleDeFuncionario!CELULAR = DLookup("CELULAR", "tbFuncionario", "ID_FUNCIONARIO= '" & sConsFunc & "'")
Forms!FControleDeFuncionario!STATUS = DLookup("STATUS_FICO_DO_EMPREGADO", "tbFuncionario", "ID_FUNCIONARIO= '" & sConsFunc & "'")
Forms!FControleDeFuncionario!NºContrato = DLookup("NºFICHA", "tbFuncionario", "ID_FUNCIONARIO= '" & sConsFunc & "'")

Me.ASO_subformulário.Requery

End Sub

Kenny, na cópia do seu banco de dados que tenho em meu computador, está funcionando perfeitamente!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?

good e jose ,
obrigado por me ajudar e ter paciencia ,

#good está perfeito isso mesmo que eu queria obg

Boa noite

Obrigado Kenny pelo retorno. Todos nós seus colegas agradecem !!!

Caros amigos ;

Não sei oque esta dando de errado tudo parecia dar certo ,
adicionei 2 campos a mais e nn consigo adicionar funcionario da erro :S

DOWNLOAD BD

eu tentei adicionar 2 campos na aba funcionario

FControleDeFuncionario
senha da caixa de texto : 32325541

Olá Kenny,

Reveja a mensagem de número 74.

Amigo good , sim eu li porém o cod é aplicado aonde ? isso que estou em duvida
#erro na aba funcionario algo ave com chave primaria creio eu

Olá Kenny,

Segue o arquivo com as devidas ressalvas. Para cadastrar um funcionário você pode clicar em Adicionar ou Salvar Dados. Evite na tabela de criar campos com palavras separadas, concatene-as, fazendo assim gerará menos problemas na depuração do código. Você pode separá-las depois nas legendas para melhor visualização. Nomeei o campo CPF E CELULAR pelos seus respectivos nomes.

good ;

Eu adiciono os dados ao clicar no botão salvar aparece o seguinte erro :

Uso de Null inválido

Olá Kenny,

Coloque a função Nz.

sFunc = Nz(Forms!FControleDeFuncionario!FUNCIONARIO)
sCPF = Nz(Forms!FControleDeFuncionario!CPF)
sCelular = Nz(Forms!FControleDeFuncionario!CELULAR)
sStatus = Nz(Forms!FControleDeFuncionario!STATUS)
sContrato = Nz(Forms!FControleDeFuncionario!NºContrato)

amigo vo reabrir o topic , este problema não some

bd atual

não sei o porque  quando parece tudo estar sempre da erro em alguma coisa sem ao menos mecher.

problemas são ;

1ºadicionar funcionario
2º Salvar dados
3º apertas 3 vezes te leva para um registro do mesmo funcionario porém  misterioso

Tente com este aqui. Comente se houver algum problema. Modifiquei vários códigos como estes:


(1) Validar Senha. Se você cancelava estava permitindo alterações.

Private Sub FUNCIONARIO_AfterUpdate()
Me.FUNCIONARIO.SetFocus
Dim cancel As Integer
Dim usrresposta
usrresposta = InputBox("  Digite a senha para confirmar a alteração  ", " Acesso restrito ", " Digite a Senha ")
If usrresposta <> "32325541" Then 'este valor entre aspas é a senha
MsgBox "  Senha Inválida cancelando a alteração no campo  ", vbCritical, "  Aviso  "
cancel = True
Me.FUNCIONARIO = ""      '<===Minha sugestão
Else
Me.FUNCIONARIO.SetFocus
End If
End Sub
Private Sub País_Região_AfterUpdate()
Me.CEP.SetFocus
Dim cancel As Integer
Dim usrresposta
usrresposta = InputBox("  Digite a senha para confirmar a alteração  ", " Acesso restrito ", " Digite a Senha ")
If usrresposta <> "32325541" Then 'este valor entre aspas é a senha
MsgBox "  Senha Inválida cancelando a alteração no campo  ", vbCritical, "  Aviso  "
cancel = True
ME.CEP = ""        '<===Minha sugestão
Else
Me.CEP.SetFocus
End If
End Sub

Private Sub NºContrato_AfterUpdate()
Me.NºContrato.SetFocus
'kenny
Dim cancel As Integer
Dim usrresposta
usrresposta = InputBox("  Digite a senha para confirmar a alteração  ", " Acesso restrito ", " Digite a Senha ")
If usrresposta <> "32325541" Then 'este valor entre aspas é a senha
MsgBox " Senha inválida cancelando a alteração no campo ", vbCritical, " Aviso "
cancel = True
ME.NºContrato = ""         '<===Minha sugestão
Else
Me.NºContrato.SetFocus
End If
End Sub

Private Sub CPF_AfterUpdate()
Me.CPF.SetFocus
'kenny
Dim cancel As Integer
Dim usrresposta
usrresposta = InputBox("  Digite a senha para confirmar a alteração  ", " Acesso restrito ", " Digite a Senha ")
If usrresposta <> "32325541" Then 'este valor entre aspas é a senha
MsgBox " Senha inválida cancelando a alteração no campo ", vbCritical, " Aviso "
cancel = True
Me.CPF = ""     '<===Minha sugestão
Else
Me.CPF.SetFocus
End If
End Sub


(2) Botão Salvar Dados

Private Sub Comando731_Click()
On Error Resume Next


   DoCmd.RunCommand acCmdSaveRecord
If Not IsNull(FUNCIONARIO) Or Not IsNull(STATUS) Or Not IsNull(CPF) Or Not IsNull(CELULAR) Or Not IsNull(RG) Or Not IsNull(DATADENASCIMENTO) Then
   With Me
   .FUNCIONARIO.Enabled = True
   .FUNCIONARIO.SetFocus
   .FUNCIONARIO = ""
   .STATUS = ""
   .CPF = ""
   .CELULAR = ""
   .RG = ""
   .DATADENASCIMENTO = ""
   .[N ºCONTRATO] = ""
   End With
Else
Exit Sub
End If
   
End Sub

(3) Botão de Inserção:

Private Sub Comando1045_Click()
Dim sFunc As String
Dim sCPF As String
Dim sCelular As String
Dim sStatus As String
Dim sContrato As String

sFunc = Nz(Forms!FControleDeFuncionario!FUNCIONARIO)
sCPF = Nz(Forms!FControleDeFuncionario!CPF)
sCelular = Nz(Forms!FControleDeFuncionario!CELULAR)
sStatus = Nz(Forms!FControleDeFuncionario!STATUS)
sContrato = Nz(Forms!FControleDeFuncionario!NºContrato)

If Not IsNull(Forms!FControleDeFuncionario!FUNCIONARIO) Or Not IsNull(Forms!FControleDeFuncionario!CPF) Or Not IsNull(Forms!FControleDeFuncionario!CELULAR) Or Not IsNull(Forms!FControleDeFuncionario!STATUS) Or Not IsNull(Forms!FControleDeFuncionario!NºContrato) Then
   Call InserirFuncionario
Else
DoCmd.CancelEvent
End If
End Sub

Public Sub InserirFuncionario()
Dim sFunc As String
Dim sCPF As String
Dim sCelular As String
Dim sStatus As String
Dim sContrato As String
Dim strSQL As String


sFunc = Nz(Forms!FControleDeFuncionario!FUNCIONARIO)
sCPF = Nz(Forms!FControleDeFuncionario!CPF)
sCelular = Nz(Forms!FControleDeFuncionario!CELULAR)
sStatus = Nz(Forms!FControleDeFuncionario!STATUS)
sContrato = Nz(Forms!FControleDeFuncionario!NºContrato)





strSQL = "INSERT INTO tbFuncionario(ID_FUNCIONARIO,NºFICHA,CELULAR,STATUSFIXODOEMPREGADO,FUNCIONARIO)VALUES ('" & sCPF & "','" & sContrato & "','" & sCelular & "','" & sStatus & "', '" & sFunc & "')"
CurrentDb.Execute strSQL

MsgBox "Cadastro Realizado com Sucesso !!!", vbInformation, "Cadastro do Funcionário"

End Sub

(4) Modifiquei o campo ADMITIDO e DEMITIDO para ADMISSAO e ADMISSAO nas tabelas onde estes campos apareciam e acrescentei a tabela Contabilidade na consulta cnsObra e ampliei os relacionamentos desta consulta para que mais informações aparecessem na visualização dos sub-formulários.

good ;

tentei adicionar novos funcionarios porém percebi que ocorre o devido problema :

1º ao adicionar o funcionario o ID_FUNCIONARIO(CPF) que ficano topo direiro  não tem como alteralo
2º na aba OBRA continua com os mesmos dados como BOY e SEDE não é possivel adicionar
3º Adicionao nome do funcionario porem os mesmo contem os mesmos dados do funcionario anterior



#CURIOSIDADE ; amigo percebi que para mostrar o verdadeiro resultado você tem que clicar 2 vezes no nome do funcionario no filtro , porq ? 

Olá Kenny,

(1) Crie um botão Atualizar com a cláusula UPDATE para alterar os dados de sua tabela tbFuncionario e OBRA

(2) Testei aqui e pude alterar normalmente os dados de BOY para TÉCNICO e de SEDE para MARACANÃ. Você baixou este meu último banco?

(3) Quando acontece de repetir os dados do registro anterior. Testei aqui com este último banco e isso não aconteceu.


(4) Copie todo o teu código do evento AfterUpdate e o coloque no evento BeforeUpdate.

Private Sub cboConsulta_BeforeUpdate(Cancel As Integer)
On Error Resume Next
Dim filtro As String

filtro = "funcionario = '" & cboConsulta.Column(1) & "'"
DoCmd.ApplyFilter , filtro
Me.Funcionário.SetFocus
Dim sMens As String
sMens = Nz(cboConsulta.Column(0))
cboConsulta = sMens

Dim sConsFunc As String
Dim sCPF As String
Dim sCelular As String
Dim sStatus As String
Dim nFicha As String
Dim sNome As String


sConsFunc = Nz(Forms!FControleDeFuncionario!CPF)
sNome = Nz(cboConsulta.Column(1))

Forms!FControleDeFuncionario!FUNCIONARIO = sNome
Forms!FControleDeFuncionario!CPF = DLookup("ID_FUNCIONARIO", "tbFuncionario", "FUNCIONARIO= '" & sNome & "'")
Forms!FControleDeFuncionario!CELULAR = DLookup("CELULAR", "tbFuncionario", "ID_FUNCIONARIO= '" & sConsFunc & "'")
Forms!FControleDeFuncionario!STATUS = DLookup("STATUSFIXODOEMPREGADO", "tbFuncionario", "ID_FUNCIONARIO= '" & sConsFunc & "'")
Forms!FControleDeFuncionario!NºContrato = DLookup("NºFICHA", "tbFuncionario", "ID_FUNCIONARIO= '" & sConsFunc & "'")

Me.ASO_subformulário.Requery
[OBRA subformulário].Requery
[Salario subformulário1].Requery
[Contabilidade subformulário].Requery
[FériasDoFuncionario subformulário].Requery

End Sub

Funcionou   oque esta acotecendo é que ;

Quando clico no nome pra filtrar ele mostra os dados  do cadastro  menos o dado que fica na caixa NºFICHA, ai quando eu clico denovo sobre o mesmo  a parece o  dado na caixa  Nºficha funcionario curioso isso '0',

Outra coisa é que o botão localizar funcionario não está mais funcionando neste BD que você me mandou


#Acho que é qq a fonte de controle ID_FUNCIONARIO está como a da tblObra e não da tblFuncionario , este que deve estar causando o problema deis que começo

Olá Kenny,

Não há como alterar um registro já implantado utilizando INSERT, mas sim usando UPDATE como lhe falei. Crie um botão para atualizar cada registro
de acordo com o CPF do funcionário.

Teste o botão localizar agora. Pesquisam normalmente.

No entanto, para atualizar os subformulários com a pesquisa não foi possível porque o método Requery não funciona quando a referência aos subformulários não estão no formulário principal. Neste caso, essa pesquisa só informa os dados do cadastro de funcionário.

NOTA: Não se preocupe com dados remanescentes de registro localizado anteriormente nos subformulários. Eles são atualizados com os dados da pesquisa seguinte e, também nem aparecem se você não abri-los.

estou testando , ja lhe dou mais informções