BRUCCE

Mas você quer bloquerar para que nenhum usuario altere? Se for isso, vá em Propriedades do FORM, na Guia Dados, e selecione as opções... Edições; Adições. Exclusões.....etc.... Espero ter ajudado...

beleza Galera!! estou precisando de uma forçinha!!! Criei um FORM para cadastrar algums Requerimentos que utilizamos aqui na Empresa, os requerimentos são "´pré -impressos" e já possuem o numer de controle. Todas as vezes que falta algum documento anexo ao Recurso/Requerimento, o setor responsavel pela análise informe no sistema: O numero do Recurso/Requerimento; Motivo Rec/Req; N.º PIS; entre outros dados. Preciso criar uma rotina que: APÓS O PREENCHIMENTO DO NUMERO RECURSO/REQUERIMENTO, o form TRAVASSE o CAMPO, para que o mesmo não possa sofrer alterações futuras..... Ate tentei fazer alguns comandos, mas o CAMPO fica travada de "vez", ai quando eu preciso incluir outro, ele não aceita a digitação. Os Campos Sâo: Recurso; Motivo; PIS; Nome; Data Recurso; Data Devolução; Funcionario; OBS Coloquei no Evente ao Receber FOCO do Campo MOTIVO: If Me.recurso = "" Then Me.recurso.locked/enabled = True Else Me.Recurso = locked/enable = False End If. Preciso que "ele" trave o registro que esteja preenchido, mas quando o usuario for inserir outro, ele habilite o campo novamente... Valeu..!1 Abçs!

Opa.....Se puder, manda uma copia pra mim!!! jeffer.martins@gmail.com Abçs!

Borges, Bom dia! Não sei se é isso que você precisa...Cnae 2.0 - Access Utilizei a tabela Cnae 2.0 em excel e importei os dados para o access ficou em ordem, como no excel, falta você adaptar a sua necessidade. Retorne informando se serve... Abçs!

Patricia, Bom dia! Acabei de fazer os teste que você pediu.....E continua a mesma coisa. Criei o ponto de interrupção, e q do faço a Verificação Aparece: ?Form_Main.xxx Atendimento quando pressiono F8, é selecionado a linha de baixo, em amarelo.: Me.AllowAdditions = False. No primeiro momento, quando o usuario acessa o FORM e clica em algum campo, ele não consegue alterar, mas se tentar fazer alguma alteração em mais de um campo no mesmo registro ele esta conseguindo. Se você puder me encaminhar o BD com os ajustes eu agradeço....... Abçs! Meu Email: jeffer.martins@gmail.com Abçs!

Patricia, Bom dia! Obrigado pela ajuda! Apesar de gostar muito de Access e VBA, sou meio leigo no assunto, fiz as adaptações que você orientou, mas não obtive sucesso. Tiveq que fazer uma mudança no código q você mandou Form_Main.xxx.Value = xlogin ' atualiza o campo xxx do form main Eu não tinha o campo XTIPO no form MAIN, então eu o coloquei. Com o XLOGIN, ele estava pegando o login do usuario e não o TIPO. quando tento abrir o formularios com o código que você passou, ocorre o mesmo de antes. quando o uuário tenta alterar algo ele não consegue, mas se houver uma navegação entre os campos ele consegue alterar. Mais uma vez, obrigado pela ajuda. Abçs!

Você pode: Abrir o Aplicativo nas estruturas, vá em FERRAMENTAS; INICIALIZAR e desabilite as ferramentas ..... Para retirar a Barra de Menu... Abre o FORM Principal, e no Evento AO ABRIR Digite. DoCmd.ShowToolbar "Barra de Menus", acToolbarNo Ou entaum, no evento ao abrir DoCmd.ShowToolbar "Banco de Dados", acToolbarNo DoCmd.ShowToolbar "Barra de Menus", acToolbarNo DoCmd.ShowToolbar "Barra de Formatação (formulário/relatório)", acToolbarNo DoCmd.ShowToolbar "Barra de Visualização", acToolbarNo DoCmd.Maximize Diz se deu certo. acabei de fazxer no meu e deu certo.... PS: no Form Principla, defina-o como POP UP e JANELA RESTRITA....

MrMalj, Bom dia! Desculpe-me à falta de atenção, esquicei de informar isso néh!!!!rsrs O form é o Cadastro_Fichas e o Termo Ciência/RPSD. O que eu havia tantado fazer mesmo está no Cadastro_Fichas. Abçs! P.s: Obrigado pela ajuda!

MrMajl, Bom dia. O Banco de Dados esta no link abaixo.... Vlw pela ajuda. Banco Dados

MrMajl... Amanha de manha (Sexta Feira) posto uma cópia do BD, ou te mando por email .........Só tenho ele no serviço. Mas Amanha pela manha eu faço isso, OK!!! Obrigado pela Ajuda! Abçs!

MrMalj, Boa Tarde! Coloquei o Dlookup da maneira que você especificou, porém, quando tento abrir o form dá Erro..... "Erro em tempo de execução 2001" Voce Cancelou a operção anterior... quando clico em depurar, ele seleciona a linha do Dlookup. O que pode ser? Vlw!

Bom dia Galera! Estou com um probleminha!!!! Tenho um BD com alguns niveis de acesso, divididos por Setores aqui na Empresa Niveis: ADM; Processamento;Supervisor;Processo e Atendimento. Já defini quais os form cada setor podera acessar, só que agora tem um novo form, que preciso dar acesso somente "Consulta" para eles (Supervisor e Atendimento) Só que, coloquei mais de um Dlookup no eveno ao abrir, Private Sub Form_Open(Cancel As Integer) If DLookup("[Tipo]", "Usuario", "[Tipo] ='" & Forms!Main![xxx] & "'") = "Atendimento" Then Me.AllowEdits = False Me.AllowAdditions = False Me.AllowDeletions = False Me.AllowEdits = False Me.Combinação50.Enabled = False Me.Comando32.Enabled = False Me.Comando33.Enabled = False Me.Comando34.Enabled = False Me.Comando43.Enabled = False Me.Comando32.Enabled = False Me.Comando33.Enabled = False Me.Comando34.Enabled = False Me.Comando43.Enabled = False If DLookup("[Tipo]", "Usuario", "[Tipo] ='" & Forms!Main![xxx] & "'") = "Supervidor" Then Me.AllowEdits = False Me.AllowAdditions = False Me.AllowDeletions = False Me.AllowEdits = False Me.Combinação50.Enabled = False Me.Comando32.Enabled = False Me.Comando33.Enabled = False Me.Comando34.Enabled = False Me.Comando43.Enabled = False Me.Comando32.Enabled = False Me.Comando33.Enabled = False Me.Comando34.Enabled = False Me.Comando43.Enabled = False If DLookup("[Tipo]", "Usuario", "[Tipo] ='" & Forms!Main![xxx] & "'") = "Processo" Then Me.AllowDeletions = False Me.Comando33.Enabled = False E só esta sendo definido o pimeiro (atendimento), caso o Supervidor abre o form, ele consegue alterar tudo.... Tem alguma coisa errada nesse código??? (Os End IF's eu não coloquei aki, mas no código correto tem).

Bom dia Galera! Referente ao código que postei acima, alguém conseguiu faze-lo??? Tentei por diversas vezes, mas não vai..... Se alguém conseguiu, de uma ajudinha... Abçs!

Cleibson, Boa Tarde! também estou com o mesmo problema que você...dei uma pesquisa na net e achei um código, porém não consegui adaptar ao meu BD...não sei se estou fazendo algo errado, ou se é algo no código, enfim, ou meio leigo....rsrsrs Bem, estou mandando abaixo o link..... Se você conseguir adaptar, por favor me avise......vou precisar da sua ajuda p/ acertar no meu BD... Derrubar Usuários: Site com Código Fico no aguardo da sua resposta. Abçs!

Boa Noite Galerinha!!!!! Depois de muito quebrar a cabeça e imaginar coisas absurdas, resolvi parar e usar a lógica..rsrs! Bom, vou fazer um resumão... Criei um consulta baseada na tabela Usuarios e consequentemente um FORM a partir da consulta, e toda vez que o usuário for alterar a senha, ao abrir o FORM ALTERA SENHA, o "sistema" pega o nome do usuário logado e senha (não visivel) e faz as comparações... Criei uma caixa de Texto (pass) e ficou assim No Evento apos atualizar do PASS: If Me.pass = Me.senha Then (Compara a senha digitada e a senha "antiga) e estiver OK, abre os demais campos para novas senha Me.nova.visible = true Me.conf.visible = true Else MsgBox "Senha Inválida", vbCritical, "Administrador Informa:" DoCmd.CancelEvent End If End Sub Apos isso criei uma comparação entre os campos NOVA e CONF, para que as senhas sejam iguais... e um botão de comando que salva as alterações, que ao clicar apaga a senha antiga e "Cola" a senha digitada em CONF Me.senha = "" Me.senha = Me.Conf MsgBox " Senha Alterada" ....... Bom, é isso, ta funcionando que é uma beleza,.... Te mais!

Boa Tarde Galera, td beleza?? Tenho em meu BD um sistema de login, estou adaptando uma opção para que os usuários possam alterar suas senha. Criei um form e consegui fazer as comparações Após o usuario logar no sistema, e abrir o form Altera Senha, já é feito uma consulta e traz o nome do usuario logado e consequentemente o login e senha (esses campos não estã visiveis). Bom aé fazer as comparações para o sistema aceitar ou não eu fiz, mas não estou consegiundo fazer com que: apos clicar em alterar senha, a Senha ANTIGA seja excluida e que seja incluida no local o conteudo digitado no campo Confirmação de Senha.... Deu pra entender...?

Bom dia Galera! Aproveitando o tópico, prociso tirar uma dúvida! Tenho um campo em meu BD (PIS/PASEP) que faz a validação do numero, caso este esteja incorreta, retorna uma mensagem PIS/PASEP invalido. Ocorre que, quando é digitado um numeroincorreto, é apresentado a mensagem mas apos clicar em OK, o sistema aceita o numero incorrete e pula pro proximo campo. Pergunta: Como fazer que o BD limpe o campo PIS/PASEP caso o numero esteja incorreto, ouque pelo menos ele não mude de campo.. Vlw galera!

Boa Tarde Galera!!1 Tenho um sistema de cadastro e estou precisando criar um Regra/Função para validar os campos... Tenho alguns campos que são de preenchimento obrigatorio, gostaria que quando os mesmo recebessem FOCO só fosse permitido a mudança de campo apos o preenchimento, caso o usuario tente pular esse campo Seja apresentado uma mensagem de erro (Ex. Campo X é de preenchimento obrigatório") e que o usuario não conseguisse navegar entre os demais campos ate o preenchimento deste........ É possivel??? Vlw!

beleza, MrMajl Consegui fazer da maneira que você explicou... Criei um evento AO ABRIR do form e utilizei um DLookup, ficou assim: If DLookup("[Tipo]", "Usuario", "[Tipo] ='" & Forms!Main![xxx] & "'") = "Atendimento" Then Me.AllowAdditions = False Me.AllowDeletions = False Me.AllowEdits = False Onde, pego o nivel de acesso do usuário logado e defino as permissões! Valeu.. AbçS

MrMajl, Bom dia! Vou tentar fazer isso, mas só uma coisa, caso eu mude a configuração da propriedades, isso será imposto à todos os usuários? Não é possivel usar um código, sei lá, um EVENTO, que busque o nivel do usuario e trave essa opções? Vou tentar fazer o que você disse, de jaja respondo. Valeu.... Abçs

Bom dia Galera! Já tenho um BD com niveis de acesso, porém vou precisar abrir essa BD para um Setor fazer consultas, já tentei abrir de imediato, mas houve alguns erros, acabaram alterando coisas indevidas... Meu BD funciona com um FORM principal, uma CombLIst, onde seleciono qual o FORM que desejo abrir, ao selecionar, o form é aberto num SUBFORM.... Já configurei os acessos por niveis, então cadas setor acessaum determinado FORM. Agora estou precisando configurar um nivel para que os funcionarios não consigam ALTERAR, EXCLUIR, e outros somente p/incluir dados.... Já li algo sobre "acFormReadOnly" e algumas outras, mas não me recordo, e não consigo aplicar. Já tentei fazer uma vez, mas o FORM não estava abrindono subFORM.....alias, ele abria no subform e abria um form separado... Nesse FORM separado não era possivel aterar, mas se eu mudasse para o do SUBFORM era possivel alterar.... Bom, acho q deu p/ entender... Obrigado! Espero ajuda..... Caso alguém queira uma cópia pra ver como funciona, me avise q mando por email.. Abçs à todos! Vlw

beleza Brunocasado! Eu coloquei da maneira que você me passou, mas não estou conseguindo...Continua separando JOSE e JOSÉ... Ao realizar a consulta até aparece a Caixa de Msg pedindo p/ que eu digite o NOME...Preciso que o access considere o mesmo nome, tanto com acento ou não (JOSE & JOSÉ).... Vlw

MrMalj, Bom dia! Eu coloquei no critério da Consulta que gera o Relatorio, no caso Campo NOME, coforme você disse. COMO *[DIGITE O NOME]*, mas quando opto em gerar o relatório, o access gera eiquetas com todos os registros, não consigo digitar o nome que eu quero...... A clausa LIKE, onde/como posso usa-la......Não coheço! Obrigado! Vlw!

Bom dia Galera!!! Estou com umas duvidas quanto as etiquetas.... As etiquetas eu consegui criar atraves do assistente do ACCESS, baseado numa "Consulta"....... Pois bem, na Consulta (por ex. CONSULTA POR NOME) eu coloquei no campo critério [Digite o Nome], mas eu gostaria que quando eu digitasse JOSE, fosse gerado etiquetas com os nomes de todos os JOSE's..... Outra coisa que percebi é que, se um nome tiver "ACENTO" o sistema não puxa.....Como fazer que o acces reconheça JOSE ou JOSÉ?? Valeu!

Humm, Boa Tarde! Obrigado por envia o BD. Ainda sou "novato" no assunto, estou tentando adaptar o seu BD ao meu.... Tenho uma dúvida, não relacionado ao seu BD... Antes de postar o tópico, fiquei fuçando e consegui bolar um jeito, claro, com uma ajudinha dos post's do forum e demais da internet... Mas estou com um probleminha, se você, ou alguém do forum puder me ajudar, ou me dizer onde estou errando, agradeço.. o BD é esseBando de Dados Pesquisa Meu 1º problema é o seguinte... Criei um FORM para pesquisa, mas quando digito um nome no txt_nome, não esta sendo filtrado na lst_nomes O 2º é que não consigo dar espaço entre o nome e sobrenome. Ex. se eu quiser pesquisar Joao Pedro...não consigo dar espaço entre Joao_Pedro, fica td junto (JoaoPedro)..... Como resolver? Obrigado pela atenção! Vaeu Humm, assim de adaptar o seu BD ao meu, eu digo, beleza!