RRH

Ok, mas se o campo estiver como numero o código de numeração automática com ano não funciona. Você pode me explicar o seu código?

Estou tentando criar uma busca rápida para os registros mas ao criar uma numeração automática com ano a caixa combinação não que mais funcionar, o que não ocorria quando era somente numeração automática. Será qeu tem como adaptar? Download aqui!!!

Consegui resolver aqui. Alterei o critério da consulta de: >='Y04.001' E <='Y04.006' >='Y12.001' E <='Y12.008' >='Y12.020' E <='Y12.021' >='Y21.001' E <='Y21.003' >='Y30.001' E <='Y30.003' In ('Y04.001';'Y04.002';'Y04.003';'Y04.004';'Y04.005';'Y04.006';'Y12.001';'Y12.002';'Y12.003';'Y12.004';'Y12.005';'Y12.006';'Y12.008';'Y12.020';'Y12.021';'Y17.001';'Y17.002';'Y17.005';'Y17.006';'Y17.007';'Y17.009';'Y17.010';'Y17.011';'Y17.012';'Y21.001';'Y21.002';'Y21.003';'Y30.001';'Y30.002';'Y30.003') Agora está tudo funcionando. Obrigado.

Estou tentando seguir esse tutorial http://psd.tutsplus.com/drawing/how-to-cre...ny-pencil-icon/, mas estou agarrado no 5º passo que diz assim: "Com a seleção ainda ativa, crie uma nova camada..."; que seleção é essa? Ao criar uma nova camada como diz no 3º passo a seleção some.

Valeu, muito obrigado mesmo! Caso precise que te envie de outra forma é só falar...

Parece que da minha forma não vai funcionar. Caso alguém tenha outra forma de fazer será bem aceita...

Caro MrMALJ, você analizou o bd que postei?

Estou precisando de ajuda pra conseguir fazer uns filtros no bd abaixo: Clique aqui para baixar Quero filtrar os registros exibidos por data e logradouro, mas não estou conseguindo. Todos os filtros das minhas consultas eu faço como o exemplo que postei aqui, mas com esse não quer funcionar.

Obrigado a todos pelas dicas. Consegui resolver o problema exportando os dados da tabela que estava causando o problema para uma planilha do excel, zerei a tabela e depois importei os dados da planilha do excel para a tabela novamente e a mensagem parou de aparecer. Cada coisa que acontece!!!

Criei o contador assim: =SeImed(DContar("[nr_reg]";"Tabela_registros")=0;("001" & Ano(Data()));Format((Esquerda(DMáx("[nr_reg]";"Tabela_registros");3)+1) & Ano(Data());"000\/0000")) Apenas o primeiro registro ficou diferente e estava funcionando normalmente até eu alterar manualmente o referido registro inserindo a "/". Quando eu executo o comando abaixo volta a funcionar: Private Sub Comando7_Click() DoCmd.RunSQL ("DELETE *FROM Tabela_registros") MsgBox "Dados excluidos com sucesso", vbInformation, "Aviso" End Sub Mas o que fazer com os registros já cadastrados?

Infelizmente não posso postar o bd aqui, mas descobri o problema; só não sei como resolver. Eu criei um campo numeração automatica com ano (001/2010), porém não sei porque o primeiro registro gerou o número assim (0012010 e não assim 001/2010), então eu fui e editei o número na tabela quando passou a exibir a msg que postei acima. E agora? :wacko:

Olha, eu não sei como explicar melhor isso! O que pude perceber é que o problema está relacionado ao formulário principal que é aberto ao iniciar o bd. Eu não tenho nehum módulo ou macro executando em todo o meu bd.

Porque ao iniciar o bd está aparecendo a msg abaixo?

Alexandre Neves, agora deu certinho. Obrigado a todos...

Fiz algumas mudanças e aparentemente vai funcionar! Preciso saber agora como fazer o código abaixo além de identificar caixas de texto nulas identificar tambem caixas de combinação nula: Dim ctl As Control For Each ctl In Form.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Or Len(ctl) = 0 Then MsgBox "Prencha o controle " & ctl.Name, _ vbExclamation, "Controle obrigatório" Cancel = True 'Cancela o evento, impedindo a atualização. End If End If Next Sai: Set ctl = Nothing ' Libera memória.

Agradeço pela força, mas acontece que sua resposta ficou muito vaga pra mim que sou leigo. Eu postei um link no primeiro post com um exemplo, se você puder dar uma olhada e ver se tem como fazer o que quero eu agradeço. Já pesquisei sobre o assunto e o máximo que consegui fazer funcionar foi com esse código: Private Sub logradouro_Exit(Cancel As Integer) Dim db As Database Dim rs As Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("dados", dbOpenTable) rs.AddNew rs("sst") = Me!sst rs("logradouro") = Me!logradouro rs.Update rs.Close Set rs = Nothing Set db = Nothing Me.sst = Null Me.logradouro = Null End Sub Porém parece que ele não funciona com uma tabela vinculada que é o bd que preciso implementar aqui..

Caro Alexandre Neves, obrigado pela força, mas ainda não deu certo veja:

Infelizmente eu não encontrei a solução para minha dúvida. Talvez até tenha outra forma de fazer o que eu preciso. Quero duas combos pré-definidas, sendo uma com opções de estado e outra com opções de cidades. Isso eu já fiz, mas agora preciso de uma forma pra que os dados filtrados sejam gravados em uma tabela.

Alguém conseguiu baixar meu bd de exemplo? Acho que não consegui transmitir minha dúvida! Tenho no bd de exemplo uma formulário com duas combos que exibe dados pré cadastrados na tabela "Tabela_logradouros" mas que após feito os filtros nas combos preciso que os dados sejam armazenados na tabela dados. Eu já tenho um bd em produção e estou querendo amarrar a cidade ao estado pra evitar que alguém preencha o formulário como estado rj e cidade belo horizonte entenderam?

Consegui um exemplo aqui e resolveu o meu problema. Fiz assim: =[Formulários]![nome_do_formulário]![nome_do_subformulário]![nome_caixa_contagem_no_subformulario] Obrigado a todos pela força...

Estou querendo saber como fazer com que após filtrar os dados nas combos eles sejam gravados em outra tabela. Segue link do exemplo: Exemplo aqui

Fiz como o MrMALJ disse e funcionou como eu precisava. Obrigado a todos pela ajuda...

Porque esse código não funciona? Private Sub ab_Exit(Cancel As Integer) If IsNull(Ab) Then MsgBox "É necessário preencher este campo", vbCritical, "Status" Ab.SetFocus End If End Sub Porque após a exibição da msg o cursor não volta para a o campo "Ab"?

Ainda não consegui resolver o problema aqui. Baseado no exemplo do Leandro Abbade como fazer para que não seja possível que o bd seja fechado sem preencher todos os campos?