[Resolvido]Bloquear edição de registro, ou gerar novo.

Bom dia,

Estou inciando no Access, e até estou conseguindo trabalhar, mas estou com um problema bem simples (alias, o único problema q ainda tenho pendente em outro BD que esta quase finalizado)

Tenho 2 Tabelas, chamadas Colaboradores (mantem o registro de funcionários) e outra chamada Desconto (onde marca o desconto de cada funcionário e férias)

Fiz um formulário para a Tab Desconto, com uma combo que puxa o nome e o cód do funcionário da tabela Colaboradores, e salva o cód na tabela Desconto, que junto com o campo Mês referente, formam a chave da tabela.

Meu problema é que se mudo a seleção da combo, ele altera o registro que estava. Preciso que ele
ou abra o registro existente (tem q checar essa combinação Mês/cód)
ou crie um novo registro

mas, não pode alterar estes 2 campos do registro depois de inserir eles.

Segue meu BD caso queiram dar uma olhada.


Desde já, obrigado.

Boa Noite,



não seria o caso de criar um botão novo registro ou ate mesmo abrir o formulário com um código que limpe os controles ao iniciar?




Fabio

Fabio,
boa noite

isso até ajudaria, mas de qualquer forma preciso bloquear aqueles campos, pois como é algo que sera preenchido ao longo de 1 mes inteiro, a pessoa vai ter q retornar naquele registro, mas n pode alterar seu nome nem o mes referente...

http://maximoaccess.forumeiros.com/t2203-resolvidobloquear-campo-para-nao-ser-alterado#16924


Veja este tópico, acredito seja exatamente o que você procura....




Saudações Fabio

Fabio,

Obrigado pela ajuda   

Esse tópico q mandou até ajuda, mas só em um segundo momento, depois que eu conseguir resolver a questão do registro já salvo.
Vou tentar explicar melhor,

Existe o funcionário Fabio.
Estamos fazendo o controle dos descontos do Fabio no mês de Março/2014

o Fabio falta o serviço, eu vou la e registro 1 falta pro Fabio e salvo.
até aqui beleza

Mas na terceira semana, chega a hora de registrar outra falta pro Fabio,
eu vou na la no formulário, ponho o nome do Fabio, o mês, que ainda é o mesmo e...

Aparece um novo registro pro Fabio!!!!
onde aquela falta anterior some!!!!

quando na verdade era pra abrir o registro já existente do Fabio.

a questão de bloquear o campo ja entendi, mas ainda estou com esse problema, se tiver como me dar uma luz nisso...

Pena amigo

Gostaria de ajudar, mas não posso.

Teu aplicativo está em Ac 2010 e eu tenho somente o 2007.

Quando postar parte de um aplicativo. por favor, converta-o para o 2007 e mais pessoas poderão ajuda-lo.

Obrigado

Abraços

Noob

Creio eu q seja uma questão muito simples, não tem como me ajudar sem o BD?


Alias, verifiquei aqui, e esta salvo para 2007-2010...

Ao mandar versões anteriores, como 2000 ou 2003 da erro pois tem recursos q n estavam disponiveis

Decedidamente, meu access 2007 não abre o arquivo.

Abraços

Eu faria assim:

criaria uma consulta baseada na tabela descontos, colocaria no form uma listbox que me mostraria os registros contidos nesta consulta e no evento clicar, preencheria o form com o registro que busco para alteração ou adição de dados...crie também um filtro para a lista que te ajuda bastante quando esta lista estiver bem longa.


Fabio

Fabio, desculpe a demora pra responder, estava em viagem.

Bom, analisando esta sua ideia:

Não posso fazer direto da tabela, preciso da consulta, certo? Já estou com ela criada.
Já fiz a listbox com os filtros, só estou com problema na hora de construir o evento para quando clicar. pode me dar um exemplo de como ficaria?


Desculpe o incomodo, e obrigado pela ajuda.
Abraço, e bom final de semana

Boa noite,


nome do seu controle = Me.nome da sua lista.Column(1)


este é um exemplo simples, mas funciona bem, é o que eu uso, provavelmente os mestres aqui do fórum vão te indicar alguma coisa melhor...

Espero ter sido útil...


Abraços


Fabio Pradella

Fabio,
Fiz como falou, e ficou bom, só continuo com o mesmo problema de antes.
ele reconhece isso como um novo registro, e não deixa eu salvar, pois duplicaria o mesmo dai.

Obrigado pela ajuda

Olá Dougllima,

Você já tentou fazer esse form de controle com um subform?
Ou seja, o form principal teria os dados do funcionário e o Subformulário teria o controle dos lançamentos para aquele funcionário.
Você teria que vincular esse subform ao form principal através de um dos campos (geralmante o Código, que não se repete).
Então, você teria que criar uma tabela para o subform, onde poderia colocar os campos DATA, OCORRÊNCIA, etc.
Espero que ajude.

rdrck,

Na verdade, só tentei criando formulários diferentes, não conheço muito do access, não sei usar os subform.
Creio que entendera melhor o problema se der uma olhada no BD.

Segue ele (aquele de antes era só um pedaço pra exemplo)

Olá Doug,

Bom, baixei seu BD, mas não estou conseguindo abrir aqui, pois meu Access é o 2007.
Tente converter/salvar para o formato 2007 e poste de novo, pra podermos visualizá-lo.

Estranho que uso o 2013, mas ja salvei para 2007-2010.
Instalei do 2010 agora e salvei de novo, talvez funcione.

A, as consultas criei apenas pra testar e aprender, mas acho que nem estão em uso (o banco inteiro na verdade é pra teste, pretendo recriar depois que aprender um pouco mais sobre o access, mas a base é essa)

Olá doug,

Continuo sem conseguir abrir seu BD.

Olá Doug,

Segue em anexo um modelo básico que fiz com o controle que vc quer.
Veja se ajuda vc.

rdrck,

Estranho isso do BD não abrir, vou instalar o 2007 aqui e ir tentando até abrir, até pra saber o formato pra salvar e enviar para o forum, caso venha precisar.

Quanto ao exemplo, alem de servir pra mim estuda-lo, serve também pra exemplificar meu problema.
Já q n consigo enviar o BD, enviarei em forma de imagem o que tentei explicar.

Mas, muito obrigado pela ajuda

Bom, vamos la.
Primeiro teu exemplo:

Para poucos registros, até tem como eu navegar com os botões em baixo do formulário e etc.
Mas, só de colaboradores já tenho 700 registros.
Agora imagine ter q buscar alguém no meio desses registros, para cadastrar uma falta.

O que eu tinha em mente é que, ao digitar um código já existente ele verificasse se ja existe,
Se sim, ele busca o resto do registro e deixava alterar
Se não, ele gerava um novo registro.

Agora como esta meu BD:



Acho eu que são muitas relações pra usar o método de ocorrência, conforme citou, mas como disse antes, não conheço nada de access e estou aberto a sugestões.

Destaquei estes 3 formulários e tabelas para mostrar melhor a ideia q tenho para eles.



Colaboradores: Não vou alterar tanto, no máximo adicionar a data de rescisão, masa seria bom ter uma busca.
Departamentos: depois de inserir, não vou mais editar, mas se precisar da pra usar o botão dos registros.
Descontos: como vou alterar os registros quase que diariamente, preciso que busque os registros ja existentes com base nos campos chave (Funcionário/Mês Referente) pra evitar a busca manual (700 funcionários, 1 registro por mês... vai ficar meio complicado) ou a alteração de registros indevidos.


Desculpe pro complicar tanto, estou tentando salvar o BD para enviar, e deixar tudo mais facil.

Obrigado pela ajuda.

Fui tentar salvar em versões anteriores ao access 2007, e tive o seguinte erro

O estranho é q fica salvo como office 2007-2010.
E no 2010 abre... estranho...

Continuarei tentando

Bom, deixa eu ver se entendi. O que vc quer é um botão (ou algo do gênero) que lhe permita pesquisar se o colaborador já existe?
Do jeito que eu estou vendo a montagem do seu form Descontos, você está puxando o Colaborador da tabela Colaboradores, certo? Só que, do jeito que está, você terá várias vezes cadastrado o mesmo colaborador para cada mês de referência, certo? Então o seu form Descontos teria o mesmo colaborador aparecendo diversas vezes, o que geraria mais registros.
Eu ainda acho que o melhor caminho é vc implementar o seu form Descontos com Subformulários para as ocorrências, pois vc teria somente um colaborador no seu form (que vc buscaria também na tabela Colaboradores) e os devidos descontos, por mês, nos subforms.
Se vocês está puxando os Colaboradores, no form Decontos, através da uma caixa de combinação, basta ir digitando o nome que o mesmo irá aparecendo.
Mas explique melhor, de forma bem clara, passo a passo, o que vc quer.

Bom dia!
primeiramente, obrigado pela ajuda.
Bom, vamos la.

"Bom, deixa eu ver se entendi. O que vc quer é um botão (ou algo do gênero) que lhe permita pesquisar se o colaborador já existe?"

Exato, minha ideia na verdade era a seguinte: Digitei uma combinação de Colaborador+Mês, depois de atualizar o mês, ele buscaria SE o registro ja existe, abriria o mesmo, se não geraria um novo registro. Mas, se não tem como fazer isso, pode ser um botão q simplesmente diga se o registro existe ou não, e se existir abrir ele.

"Do jeito que eu estou vendo a montagem do seu form Descontos, você está puxando o Colaborador da tabela Colaboradores, certo? Só que, do jeito que está, você terá várias vezes cadastrado o mesmo colaborador para cada mês de referência, certo? Então o seu form Descontos teria o mesmo colaborador aparecendo diversas vezes, o que geraria mais registros."

Exato, eu fiz uma combo box q puxa o nome do funcionário e seu código da tabela Colaboradores, e salva seu código na tabela Descontos.
Eu sei disso, e até concordo contigo, mas estou montando este banco em conjunto com alguém responsável por essa gerencia de informações, e segundo ele, tem q ser assim, 1 registro pra cada coisa...


"Se vocês está puxando os Colaboradores, no form Decontos, através da uma caixa de combinação, basta ir digitando o nome que o mesmo irá aparecendo.
Mas explique melhor, de forma bem clara, passo a passo, o que vc quer."

Sim, ele vai aparecendo, mas se o registro ja existe, ele n abre o mesmo.
O que preciso é um botão que pesquise aquele nome + mês, e se o mesmo ja existir, abrir o registro, se não gerar um novo. acho q é "só" isso.

Obrigado pela ajuda, e desculpe incomodar.

Douglas

Taí o teu projeto como você deseja.

O problema de não estar convertendo do A2010 para o A2007 é justamente na tabela Descontos, os demais objetos estão ok.

Então eu fiz uma nova tabela desconto e adicionei somente o campo Registro e Mes Referente.

Veja que é um formulário principal com um subformulário, conforme o colega Roderick tinha sugerido, que irá exibir um registro por vez.

Estude o que eu fiz, inclusive alterei algumas coisa nas propriedades dos 2 formulários

Bom estudo

Noob

Noob,

Ontem tive umas outras questões pra resolver, e acabei não conseguindo responder, mas descobri ontem a noite que não convertia por causa dos campos calculados que haviam na tabela descontos.

Realmente, muito melhor desta forma. Olhando o evento deste botão eu só tenho uma coisa a dizer, conhecimento é tudo. Olhando agora parece tão simples, e eu bati muito a cabeça pra tentar fazer isso.

Estou estudando agora o BD, mas a principio vou conseguir reproduzir isto sem problemas, e adaptar um detalhe q outro.
mas, por enquanto não vou marcar o tópico como resolvido, caso volte a ter alguma duvida do mesmo assunto evito criar tópicos duplicados...

Muito obrigado pela ajuda de todos!
Depois que "finalizar" o banco, envio para se quiserem dar uma olhada.

Abraços!!!

Ok Douglas

Bom estudo ai

Abraços

Noob

Noobzinho.

Uma ultima ajuda?

para evitar problema q os usuários finais possam causar, resolvi deixar os campos do sub formulário bloqueado, e desbloquear apenas quando clicar no botão (obriga a pessoa a buscar o registro dai)

Só q como nunca usei sub formulários não sei como fica exatamente a formatação do código, ainda mais que tem a que faz o botão buscar o registro já.

Primeiro, como fica a formatação do codigo pra especificar o campo dentro do sub?
Algo próximo disso?

Me.subfrmDescontosRegistro.Locked = False

E onde encaixo ela dentro do código q esta no botão?
Segue o mesmo:

Private Sub Exibir_Click()


If IsNull(Me!MRef) Or Me!MRef = "" Then
MsgBox "Mês referente está em branco, digite o mês para continuar", vbInformation, "Atenção"
Exit Sub
Else
Me.subfrmDescontos.Form.RecordSource = "qry_Descontos"
End If
End Sub



A, só uma duvida, eu reparei que tudo isto deixa de funcionar se defino campo chave, ainda mais se defino a combinação de antes (Reg + Mês), mas não entendi o pq, pode me explicar?

Desculpe o incomodo, obrigado!!!

Assim:

If IsNull(Me!MRef) Or Me!MRef = "" Then
MsgBox "Mês referente está em branco, digite o mês para continuar", vbInformation, "Atenção"
Exit Sub
Else
Me.subfrmDescontos!Registro.Locked = False
Me.subfrmDescontos.Form.RecordSource = "qry_Descontos"
End If
End Sub

Mas veja o resultado se é o desejado.
Entenda que você está bloqueando somente o campo Registro do subform.
Você pode bloquear todo o subform indo na propriedade do mesmo.

Desculpe , não entendi tua última dúvida   

Noob

Noob,
valeu, eu usei o registro apenas de exemplo, mas sei q é só copiar para os outros...
ou até fazendo no subformulário, mais fácil, não tinha pensado nisso

Quanto a outra duvida,
eu defini os campos Registro e Mês referente como chave, ele parou de funcionar.
Queria saber se esta certo isso. Apenas o pq, pois defini chave apenas por definir...


Agora só pra me ajudar, resolveram que querem q exiba o nome do funcionário no formulário tbm...
Mas, ainda estou discutindo pra mostrar q isso não é necessário.

Numa tabela, geralmente se trabalha com apenas uma chave que é a chave primária.
Raramente se usa 2 chaves numa mesma tabela.
No teu caso somente o registro como chave primária  é o suficiente, deixe MesReferente sem chave.
Mesmo porque quando se criar uma chave, geralmente essa chaves são em campos de números automáticos geradas pelo próprio sistema, evitando a digitação da mesma o que leva a erros e dores de cabeça   
Sempre que possível, evite fazer pesquisa baseado em algo que o usuário tem que digitar e sim clicar, a exemplo de uma combobox (caixa de combinação), isso é válido também para o código do registro.


Abraços

Noob

Eu havia criado uma chave dupla pois não conhecia muito, e não via outra forma de evitar duplicação de registros.
Mas agora com essa busca, já solucionou meu problema.

E alias, é melhor deixar sem chave, pois o registro tem q se repetir, desde que com um mês diferente.

Nem me fala em dor de cabeça, o cara que resolveu fazer esse projeto de implementar o BD acha q se tu clicar em 1 botão do access ele faz teu serviço e ainda te trás um café e faz uma massagem nas costas, 90% da minha dor de cabeça vem de tentar explicar pra ele que não é bem assim   (apesar de gostar da ideia do café   )

Sim sim, tanto que quer evitar o máximo possível o uso de nomes e etc, pois se alguma hora a pessoa vai ter que digitar, que seja um código simples, e não uma palavra onde hora era ela usa acento, hora esquece... e dai já viu né.

Obrigado pela ajuda

PS: Temos um computador na empresa parado a +/- 1 ano, ligado 24h, e ninguém nem lembra pq, fui verificar o que era, tem um BD do access pronto la dentro, que foi montado para o almoxarifado e deve ter sido usado 1 vez na vida... Sinto que estou perdendo meu tempo com isso, mas pelo menos estou aprendendo, o q pra mim é o que importa

Noobzenho,

Posso te pedir mais um favor?
Tentei copiar isso q tu fez pra outro frm, e sei la eu pq, não funcionou. tentei revisar, mas não achei o erro em lugar nenhum...

o formulário é o ItensChamado, tentei manter o mesmo padrão de nome q tu botou, bem melhor do que o que usava antes.

Editando:
Esqueço desse problema de abrir no access 2007, instalei ele aqui, e agora abrir (apesar de eu n fazer nada d+)  

Douglas

Viu minha assinatura ali embaixo?  Meu Access é 2007.  

Converta-o e coloque no mesmo post. só avisando que fez a substituição do arquivo.


Noob

Ja ta la!!!

Sinto não pode ajudar

O aplicativo não abre aqui no meu A 2007

Noob

Olá Doug,
O problema já foi sanado?
Se sim, não esqueça de fechar o tópico com o Resolvido.
Valeu.

opa, tinha esquecido disso.
Botei como resolvido ja