Botão salvar registros e aviso de data expirada

Olá, boa tarde
Sou muito novo no Access e estou aprendendo a lidar com ele agora, estou criando um formulário para cadastros de clientes de uma rede
de internet, o formulário já está criado, porém preciso criar um botão de salvar, que salve aquele registro e já abra um formulário em branco para poder cadastrar o próximo cliente.

Preciso também de um botão em um formulário que irá ler um campo, e abrir um outro formulário que possua um campo com o mesmo registro, além disso preencha automaticamente os outros campos, por exemplo:

o formulário onde está o botão tem os campos Código, Nome, CPF;
e o formulário onde será realizada a busca, também possui os mesmos campos.

o campo código será um valor fixo nos 2 formulários, e quando clicar no botão ele irá pesquisar o valor do 1º formulário e encontrá-lo no
2º formulário, preenchendo automaticamente os campos Nome e CPF conforme o 1º relatório. E se não possuir o código no 2º formulário ele irá abrir um registro novo, já preenchendo os dados, conforme o 1º formulário.

Além disso, queria saber se é possível o Access me retornar uma mensagem de Aviso quando uma certa data expirar, por exemplo:

Possuo um campo Data de confiança, que será preenchida com uma data posterior à atual, quando a data atual coincidir com a data do campo, o Access me retorna uma mensagem de Aviso, dizendo que o Registro "TAL" expirou a data de confiança.

Me desculpe a ignorância quanto ao assunto, e peço compreensão pois ainda não sei todas as funções do Access.

Obrigado a todos que responderem e desejo um Feliz 2014 a todos!

Olá Fabio seja bem vindo ao fórum.
Bem primeiramente o sistema que você está fazendo é para INTERNET mesmo?
Segundo todos os pedidos que você fez são fáceis de ajudá-lo só que antes precisamos saber mais detalhes como:
Nome de forms que irão abrir e fechar, nomes dos campos nos forms  e nas tabelas, etc.
Pois só assim podemos lhe ajudar.
Se puder postar uma parte do seu sistema fica mais fácil de ajudar.
Saudações. 

Bem para salvar o registro coloque no seu botão o seguinte código:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec

Ele irá salvar e gerar um novo registro em seguida.

Para abrir um form em um determinado registro:

strNomeDoDoc = "NomeFormQueVaiAbrir"
strCritérioDeVínculo = "Id_Registro = " & Id_Registro
DoCmd.OpenForm strNomeDoDoc, acNormal, , strCritérioDeVínculo

O form que abrir pode buscar estas informações na tabela:

NomeCampo = DLookup("[NomeCampo]", "SuaTabela", "[Código] ='" & Me!Código & "'")
CPF = DLookup("[CPF]", "SuaTabela", "[Código] ='" & Me!Código & "'")

Cláudio,
primeiramente obrigado,

o nome do campo eu altero aonde precisar no código, só preciso que você me diga aonde eu tenho que mudar

o código do botão salvar funcionou perfeitamente, obrigado.
não estou conseguindo fazer o botão de abrir registro, ele apenas abre o formulário mas sem encontrar o registro, sendo que o registro tem nos 2 formulários,

me diga onde eu preciso alterar, nos códigos que você me passou!

Obrigado por sua atenção Cláudio,
aguardo resposta

Que bom.
Bem preste atenção aqui:

strNomeDoDoc = "NomeFormQueVaiAbrir"
strCritérioDeVínculo = "Id_Registro = " & CampoPrimeiroForm
DoCmd.OpenForm strNomeDoDoc, acNormal, , strCritérioDeVínculo

CampoPrimeiroForm, é o campo que está localizado no primeiro form que você abre para efetuar a busca.

Id_Registro seria o nome do campo na sua tabela no form que será aberto.

Deu certo Cláudio, funcionou certinho, quando possui o registro ele faz a busca e quando não possui ele cria um registro em branco
só preciso entender aonde eu coloco aquele outro código, o de preenchimento automático, e o que tenho q substituir para faze-lo funcionar.

Já agradeço por tudo Cláudio,

abraço

Em que momento o sistema irá usar estas informações?
Quando não houver registro?
Ou mesmo se houver ele busca.
Acredito que quando não houver né? Pois se já há informação não necessita preencher.

Segue código para quando não houver dados.
Coloque este código no form que irá abrir no evento Ao abrir do mesmo.


If Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Não existem dados para o filtro escolhido, vou criar o Registro.", vbInformatrion, "Sem Dados"
NomeCampo = DLookup("[NomeCampo]", "SuaTabela", "[Código] ='" & Me!Código & "'")
CPF = DLookup("[CPF]", "SuaTabela", "[Código] ='" & Me!Código & "'")
DoCmd.Close acForm, "SeuFormDeBusca"

Else

End If

sim Cláudio, apenas quando não houver os registros ele copia os mesmos do 1º formulário,
me diga onde no código eu preciso mudar ?

agradeço por tudo

Abraço

Queria saber também, sobre o aviso que o access me mostrará quando a data de confiança expirar, ou seja, a data marcada no campo coincidir com a do PC, o access me avisa!

Caso alguém possa me ajudar, ficarei grato.

Abraço a todos

Resolveu a parte de cadastro quando não houver registro?

Aviso de Expiração.

If me.SeuCampoData = Data() Then
 MsgBox"Data Expirada.",vbInformation,"Informando"
Else
End if

Cláudio, no código do preenchimento automático me diz onde eu mudo para as informações da minha tabela/formulário
não sei onde mudar...

vou testar o código do aviso de expiração de data, e te aviso.

desculpe a ignorância ao assunto, obrigado

abraço

Esse é o problema, você não passa nomes de forms, tabelas e campos, por isso é sempre mais difícil poder ajudar sem estas informações, mas vamos lá.

Abra o form que irá receber as informações quando não houver;
Em seguida pressione F4 (Janela Propriedades);
Procure pelo evento Ao abrir cole este código no form, alterando os nomes de campos e da sua tabela.
Depois teste.

If Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Não existem dados para o filtro escolhido, vou criar o Registro.", vbInformatrion, "Sem Dados"
NomeCampo = DLookup("]NomeCampo]", "SuaTabela", "[Código] ='" & Me!Código & "'")
CPF = DLookup("[CPF]", "SuaTabela", "[Código] ='" & Me!Código & "'")
DoCmd.Close acForm, "SeuFormDeBusca"
Else
End If

NomeCampo = É o nome do campo no seu form que irá receber as informações
NomeCampo = É o nome do campo na sua tabela que já existe esta informação.

Desculpe-me Cláudio, vou passar a você os nomes dos campos e dos formulários/tabelas


tabela 1 e formulário 1:
nome da tabela: clientes1
nome do formulário: clientes

tabela 2 e formulário 2:
nome da tabela: pendencia1
nome da tabela: pendencia

nome dos campos no primeiro formulário(o que já possui os registros):
Codigo
Nome
CPF

nome dos campos no segundo formulário(o que ele vai fazer a busca, e preencher se não houver registro):
Codigo1
Nome1
CPF1

coloquei os nomes dos campos parecidos para ficar mais fácil.
eu fiz do jeito que vc disse, coloquei o código ao abrir, porém quando clico no botão para fazer a busca, funciona, quando possui
o registro, quando não possui ele manda a msgbox, porém dá o erro: "voce não pode atribuir um valor a este objeto"

Quanto ao aviso de expiração ele também não funcionou, fiz no evento ao abrir do formulário onde está a data o código que voce me passou alterando-o para os meus campos, quando abro ele dá o seguinte erro: "erro de compilação; 'Sub' ou 'Function' não definida, e sublinha o Data () do código, não sei o pq do erro.

atenciosamente, Fábio

Veja bem, terá que modificar o campo "Nome" em sua tabela, pois a palavra NOME é reservada e nunca deve ser usada em qualquer aplicação.
Acho que seria mais viável se você postar esta parte do seu sistema, fica mais fácil de ajudar.

Abraço.

ok, vou anexar

obrigado

alguma resposta ?

Bom dia.
Desculpe a demora, fiquei sem internet e viajando á trabalho.

Veja se te ajuda.

Obrigado Cláudio, ficou perfeito o botão e o preenchimento automático.

Queria saber como eu faço para avisar que a data de confiança expirou?

O access precisa ler a data de confiança e se caso for igual a do PC ele retorna uma mensagem de AVISO, assim que abrir o formulário
preciso que esse aviso seja dado para um registro em especifico, por exemplo

o cliente FULANO pediu religação em confiança, ai coloca-se no registro dele até aonde a confiança irá, por exemplo dia 15/01/2014,
quando a data do pc coincidir com a do campo 'Confiança até', ele avisa que o registro que isso ocorreu está com a data expirada.

não faço nem idéia de como fazer isso, rsrs

precisava fazer também, um campo de pesquisa com um botão 'Pesquisar' na frente, que iria pesquisar entre os registros, tanto quanto campo de nome, cpf, endereço, data de nascimento, bairro, cep, qualquer um destes campos poderá resultar no cliente pesquisado, já abrindo o registro e me mostrando.

também não faço nem idéia...

rsrs,
caso possa me ajudar ainda cláudio, fico agradecido!

abraaço

Onde fica esta Data de Confiança?
Não encontrei em lugar nenhum.

Quando solicitar informações deve ser específico em relação aos nomes de campos, formulários e relatórios.
Nunca poderemos lhe ajudar simplesmente com suposições.

Tudo isso é fácil de fazer, mas por exemplo, no arquivo que você postou não existem este campo e o form, ou existe?

Saudações.

Desculpe-me,

no formulário clientes, há uma caixa de seleção com o nome Corte, marque ela, aparecerá outra caixa de seleção
com o nome de Religado em confiança, marque ela também, aparecerá o campo "Confiança até", onde ficará a
data final.

esse campo não está acoplado na tabela clientes1, conforme os outros campos...

desculpe a falta de informações, sou novo no fórum.

abraço.

Agora ficou mais fácil.
Bem segue com as alterações solicitadas.
A caixa de texto não estava acoplada, mas deve ficar, pois como o sistema ira armazenar esta informação para o registro?
Veja como ficou.

Sim Cláudio, ficou ótimo! Muito obrigado!

eu só alterei o código para If Me.Data_Confianca <= Date Then
o critério estava ">=", pois estava avisando apenas se a data fosse maior ou igual a atual, e agente precisa do contrário, menor ou igual a data atual.

mas eu troquei e deu certo!

só mais uma pergunta, o aviso só aparece quando eu abro o registro do cliente em questão, não há como mostrar o aviso ao abrir
o formulário, independentemente do registro que aparecer, ele já me mostra qual que está com a data expirada ?

se sim, se vc puder me dar mais essa ajuda, ficarei grato.

Muito obrigado por tudo Cláudio,

abraço

Sim havia percebido a troca do código, já alterei.
Segue novas alterações com um form de busca, acredito que com isso você possa acompanha melhor seus clientes.
Saudações.  

Muuuuito legal Cláudio, ficou ótimo o formulário de pesquisa de clientes, perfeito pro que eu queria..

ta quase pronto   

como faço pro aviso de data expirada aparecer ao abrir o formulário e não apenas quando abrir o cliente que expirou?

estou trabalhando em um formulário de Ordem de Serviço, e um de Recibo, que ficaria interessante com aquele mesmo código
de preenchimento automático do form Pendencia, quando clicar no botão Abrir Ordem de Serviço, ele copia automaticamente os dados
para o form Ordem de Serviço.

porém não estou conseguindo faze-lo funcionar, o form Ordem de Serviço abre ao clicar no botão, porém não preenche nenhum campo,
o nome dos campos é o mesmo dos outros formulários:

Codigo_Cliente
Nome_Cliente
CPF
RG
Endereço
Bairro

e assim por diante...

vou continuar tentando aqui,

do mais, Obrigado Cláudio!

Não consegui fazer o aviso de data expirar ao abrir o formulário, ele só avisa quando eu abro o registro do cliente, dentro do formulário em questão, preciso faze-lo avisar ao abrir o formulário, independentemente do cliente que está com a data expirada.

o preenchimento automático não quer funcionar no formulário que criei para Ordem de Serviço, fiz exatamente igual ao do formulário Pendencia, o botão, igualzinho, porém ele só abre o formulário Ordem de Serviço, não preenche automáticamente..

os nomes dos campos do formulário Ordem de Serviço são exatamente iguais aos do formulário Clientes..

queria saber se preciso fazer algo diferente ou é apenas copiar o código do Form Pendencia.

Bom dia.
O funcionamento para o form de O.S. é a mesma coisa.
Crie uma cópia do form pendencia e altere o campo Fonte de registro para a tabela de O.S.
Funcionará perfeitamente.

Quanto ao aviso de data, como o sistema irá mostrar pra você que vários clientes estão com a data expirada?
Vai ser uma mensagem atrás da outra.
Não entendi bem o que você quer.
Explique melhor por favor.
Saudações.

Bom,

preciso que o aviso apareça assim que abra o form, e não há problema em aparecer uma mensagem atrás da outra, pois o que eu preciso é
saber quais clientes expiraram a data, então mesmo que apareça uma atrás da outra, eu saberei quais clientes expiraram.

Só preciso que avise quando abrir o form Clientes, os avisos podem ser consecutivos que não tem problema.

Quanto ao Form O.S vou fazer como você disse e posto o resultado,

Obrigado cláudio.
Bom dia!

Bom dia.
Só acho que será perda de tempo exibi-los assim, pois somente aparecerão mensagens na tela, mas de qualquer forma se você quer assim tudo bem.

Não seria viável exibir uma telinha com estas informações? E ainda ter a opção de imprimir elas?
Pense nisso.

Sim, acho que ficaria mais organizado com a telinha.

pois o meu problema hoje é que o cliente fica em confiança e eu preciso passar registro por registro de cliente até encontrar um que
esteja com a data expirada, eu não queria ter q fazer mais isso, por isso quero que ele avise ao abrir o form..

mas como você disse, ficaria ótimo, pois ficaria organizado todos os clientes que expiraram a data e eu poderia imprimir esse relatório
para realizar o procedimento de corte novamente...

ficaria perfeito!
Como faço isso?

rsrs

aliás, o form O.S funcionou também, Obrigado!

Bem se a ideia valeu, ai vai o modelo.
É só alterar ao seu gosto.

Cláudio, Perfeito!!

Ficou ótimo, do jeito que eu precisava!
mostra certinho e ainda da pra imprimir

Cláudio, na O.S eu preciso criar um nº de protocolo, há possibilidade desse nº de protocolo ser gerado automaticamente com a data e a hora do PC?

por exemplo, ao criar a O.S ele gera um protocolo com o nº 130120141123 (13/01/2014 - 11:23h).
e este nº de protocolo fique salvo em um relatório, ou formulário, para posteriormente eu pesquisar este protocolo, e ver a O.S correspondente, estou tentando fazer aqui mas não consigo, se puder me ajudar ainda..

muito obrigado por tudo!

Veja se serve.
Adicionei o ao número do protocolo o código da O.S., por pode ocorrer de você gerar uma O.S. com a mesma data, hora e minuto, assim evita de existirem registros iguais.
Saudações.

Cláudio, desculpe a demora na resposta, muito trabalho aqui.. rsrs

Gostei do Código que gera automático o protocolo, alterei ele e o fiz pegar também os segundos da hora,
ele pega agora o código do cliente, a data completa, a hora, os minutos e os segundos.

ficou show!

esse nº de protocolo deve ser salvo para poder fazer pesquisas posteriores, seria interessante se esse protocolo fosse salvo em outro formulário juntamente com o campo "nome" e um campo "descrição do serviço" no form O.S, com opção de fazer uma pesquisa por nome
ou nº do protocolo.. poderia fazer um botão no form O.S que salvasse esses registros em outro formulário, para pesquisas posteriores..

seria o mesmo código de preenchimento automático do form pendencias ?
vou anexar e vc da uma olhada por favor

Abraços

Clientes Megacom

Bom dia.
Bem fiz algumas alterações que acho que vai gostar.
A Ordem de Serviços será gerada á partir da tela de Clientes.
Analise e se tiver que alterar algo me avise.

Saudações.

Bom dia Cláudio, ficou bem legal o botão que gera e salva o protocolo..

eu criei um form novo de Ordem de Serviço, ele já esta quase pronto, gera os campos automaticamente e o protocolo também,
preciso que esse form não aceite salvamento, seja somente para impressão, porém o nº de protocolo tem q ser salvo em algum outro lugar
com o nome do cliente..

estou tentando fazer aqui e não consegui, se puder me ajudar segue o link..

Abraços

Clientes Megacom

Procure anexar o arquivo zipado aqui no fórum mesmo, pois fica mais fácil pra gente baixar.

Veja bem, toda a informação sobre a O.S. você terá na tabela Ordem_Serviço, portanto tudo fica gravado nela.
Cliente
Nº Protocolo, etc.

Não há necessidade de salvar em outro lugar como você mesmo diz, com esta tabela você pode fazer qualquer consulta através dela.

Quanto ao form, analisei e acho que seria mais viável que você fizesse um relatório dele para poder imprimir, fica bem melhor.

Crie um botão para imprimir somente o registro que quer tipo:

DoCmd.OpenReport "Ordem_Serviço", acViewPreview, , "ID_OS =" & Me.ID_OS ' abre a O.S. para impressão

Quanto ao form não aceitar salvamento, não entendi o que quer dizer com isso?

Não entendi bem como você gera a O.S.? Ela não têm número? É baseada no número da pendência?

Sei não, ficou meio embolado, mas com certeza você entende.

Desculpe, vou passar a anexar no fórum mesmo.

Essa O.S é para controle interno, para ficar mais facil de ir executar o serviço.

O protocolo é o nº da O.S, para ajudar na hora da pesquisa, e saber quando ela foi gerada.

Quanto ao não salvamento pode ignorar, a O.S pode ficar salva, só preciso fazer a impressão daquele form, igualzinho ele está ali,
sem imprimir os botões e somente aquele registro que está aberto, não imprimindo todos os registros...

Vou dar uma alterada no form, e criar uma pesquisa igual aquela que você fez para pesquisa de clientes, porém para pesquisar O.S já abertas..
acho que dará certo também.

não entendi bem o do botão, ele vai imprimi somente o registro aberto?
se sim, é só adicionar este código ao comando ao clicar do botão ?

Obrigado Cláudio,
Abraço  

Já imaginava isso, por isso havia feito.
Segue anexo.

Acho que do Jeito que fiz, você pode melhorar o visual do Form de Ordem, pois ele não precisa ser igual ao impresso, basta ter somente os campos para preenchimento da O.S., pois já coloquei o botão e o impresso pra você só clicar e imprimir.

Abraço.

Cláudio, visualizei e gostei muito, porém o botão abre o relatório mas não o preenche, imprimindo a O.S em branco.

qual o problema ?

Abraço  

Bom dia.
Esqueci de fazer a alteração do código no botão de impressão e no relatório.
Segue corrigido.
Abraço

Desculpe faltou o anexo.
Segue.

Muito show Cláudio!
agora dá pra imprimir o formulário de O.S sem os botões e preenchendo automaticamente, obrigaado

agora preciso criar um formulário para dar baixa dos boletos dos clientes, assim:

no form Pendencia, ficará armazenado os dados dos boletos em aberto dos clientes, queria criar um botão embaixo de cada mês para dar baixa
que ao clicar ele copiaria o nº do doc., o Nome, o Valor e abriria uma caixa de texto perguntando qual a data de pagamento, para poder preencher com a data que foi efetuado o pagamento, este botão copiaria estes dados para um outro formulário onde ficaria visível todos os boletos já baixados, de todos os clientes, com os campos:

[Nº do doc.] [Nome] [Data Pagamento] [Valor Pago] [Valor Gerado] [Juros] [Baixa]

Além disso, o botão analisaria uma caixa de seleção, que estará acoplado a um campo que faz automaticamente o calculo de juros, assim, caso a caixa esteja desmarcada, ele copia o valor normal, do 1º campo, caso esteja marcada, ele copia o valor de outro campo que estará com o valor atualizado com juros, e jogaria no form, o preenchendo...

O campo [Baixa] seria onde o meu gerente visualizará os dados anteriores e vai dar baixa, terminando assim o recebimento...
essa [Baixa] pode ser qualquer coisa tipo, um botão que ativa um campo, ou uma caixa de seleção, porém o mesmo teria que ter senha, que apenas o gerente poderá baixar...

Desculpe pelo tanto de informações, espero que vc entenda
rsrsrs

Obrigado!
Abraço   

Alguém ?

Preciso muito desta ajuda..

Abraços