Erro no botão Novo do cadstro

Bom dia.
Tentei por algumas vezes adaptar o código abaixo para criar um novo cadastro.
Mas desisti. rsrs
Gostaria que novo fosse no formato 0000/2015 e assim sucessivamente.
Tentei com esse comando:
'Me.Pedido = Format(Mid(DMax("Pedido", "tbl_Pedido"), 1, 4) + 1, "0000") & "/" & Year(Now)

Também gostaria que tivesse essa MSGBOX informando ao usuario que é ....
"Obrigatório o preenchimento de todos campos desta primeira guia!.
Esta guia possui os objetos CboUnidadeRequisitante, CboServicoRequisitante, CboOficialRequisitante, TxtNumOfEntrada e dtDataSolicitacao que desejo que fossem obrigatório o seu preenchimento.
e por fim com o foco voltando a



bom...
O código foi esse abaixo...

Private Sub CmdNovoregistro_Click()
  'Vai para novo registro
Me.Pedido = Format(Mid(DMax("Pedido", "tbl_Pedido"), 1, 4) + 1, "0000") & "/" & Year(Now)
On Error GoTo Err_CmdNovoregistro_Click
DoCmd.GoToRecord , , acNewRec
On Error GoTo Err_CmdNovoregistro_Click
       DoCmd.GoToRecord , , acNewRec
       Exit_CmdNovoregistro_Click
   Exit Sub
Err_CmdNovoregistro_Click
MsgBox Err.Description
Resume Exit_CmdNovoregistro_Click
      If CboUnidadeRequisitante <> "" And CboServicoRequisitante <> "" And CboOficialRequisitante <> "" And TxtNumOfEntrada <> "" And dtDataSolicitacao <> "" Then
           Else
           MsgBox ("Obrigatório preenchimento de todos campos desta primeira guia!"), vbInformation + vbOKOnly, "Dados Necessários"
      End If
Exit Sub
Me!CboServicoRequisitante.SetFocus
End Sub

e não funfou!.
Alguém poderia dizer onde errei?
Obrigado.

Código:

On Error GoTo CmdNovoregistro_Click_error

  'Vai para novo registro
                    '          Troque "Formulário1" pelo nome do seu form
DoCmd.GoToRecord acDataForm, "Formulário1", acNewRec
Me.Pedido = Format(Mid(DMax("Pedido", "tbl_Pedido"), 1, 4) + 1, "0000") & "/" & Year(Now)


'aqui é o tratamento do erro
CmdNovoregistro_Click_error:
Select Case Err.Number
Case Is <> 0
MsgBox "O erro '" & Err.Number & "' impediu o funcionamento" & vbCrLf & "Descrição: (" & Err.Description & ")", vbCritical, "Erro"
End Select


Nada
coloquei
Private Sub CmdNovoRegistro_Click()
  'Vai para novo registro
Me.Pedido = Format(CInt(Right(rstclassificado(0), 4)) + 1, "0000") & Format(Now, "yyyy")
On Error GoTo Err_CmdNovoregistro_Click
DoCmd.GoToRecord , , acNewRec
On Error GoTo Err_CmdNovoregistro_Click
      DoCmd.GoToRecord , , acNewRec
      Exit_CmdNovoregistro_Click
  Exit Sub
Err_CmdNovoregistro_Click
MsgBox Err.Description
Resume Exit_CmdNovoregistro_Click
     If CboUnidadeRequisitante <> "" And CboServicoRequisitante <> "" And CboOficialRequisitante <> "" And TxtNumOfEntrada <> "" And dtDataSolicitacao <> "" Then
          Else
          MsgBox ("Obrigatório preenchimento de todos campos desta primeira guia!"), vbInformation + vbOKOnly, "Dados Necessários"
     End If
Exit Sub
Me!CboServicoRequisitante.SetFocus
End Sub


Erro de compilação função ou sub não definida

Eu editei o código la em cima da uma olhada....

Código:

On Error GoTo CmdNovoregistro_Click_error

  'Vai para novo registro
                    '          Troque "Formulário1" pelo nome do seu form
DoCmd.GoToRecord acDataForm, "Formulário1", acNewRec
Me.Pedido = Format(Mid(DMax("Pedido", "tbl_Pedido"), 1, 4) + 1, "0000") & "/" & Year(Now)


'aqui é o tratamento do erro
CmdNovoregistro_Click_error:
Select Case Err.Number
Case Is <> 0
MsgBox "O erro '" & Err.Number & "' impediu o funcionamento" & vbCrLf & "Descrição: (" & Err.Description & ")", vbCritical, "Erro"
End Select


Roberval
Pode parecer fácil...
mas já são alguns dias esquentando a cabeça com esses comandos dos botões + o localizar.
Eita troço fácil difícil...
rsrs.
Coloquei a sua rotina e nada.
da erro 2015...

to anexando o banco pra ver e se puder ajudar.



Obrigado

Os botões não funcionam.
tentei criá-los usando o assistente e tbm não roda.
rsrsr

Caro,

Dá uma olhada nesse exemplo, com certeza  vai resolver seu problema.

Não é de minha autoria, garimpei nos sites de access.


Abraços,

Vou tentar..
Mas só para verem...
Ja fiz ate essa outra rotina com os campos sendo habilitado e desabilitado...
e não vai...
rs...



Se alguém puder sinalizar onde errei num dos 2 fico grato.

Cleverson
Adaptei e roda.
abaixo o link (é o filtro d número 08).



Contudo duas duvidas.
1) Quando reiniciamos e ele abre no registro certo.
Mas quando buscamos o anterior ... não vai.
2) Teria como tornar obrigatório o preenchimento dos primeiros itens apenas?

Tem alguma rotina para localizar que rode junto com esta?
Obrigado

Brother,


Duas observações para tentar resolver seu problema, desculpas se estiver errado e os colegas que me corrijam:

- Acredito que deveria rever suas tabelas, vejo problemas de normalização, vários campos com as mesmas finalidades na tabela PEDIDO, pois vejo que os processos repetem os alguns passos mudando apenas de setores como: CREQ, CEPEO, ASSINFO e CONTRATOS E LICITAÇÕES, isso requer mais tabelas;

Comparo seu processo a um equipamento em uma oficina, onde passa por vários STATUS até fica pronto.


- Quanto aos botões, acredito que está havendo conflito para referenciar os registros de cada aba da guia, e salvar o registro com numeração personalizada;

Querendo dar mais detalhes da sua rotina, poderemos ajudar melhor.


Abraços,


Cleverson

Obrigado Amigo
Irei rever a dica.
Achacva que com essas poucas tabelas iria ficar melhor. Contudo, aceito sua dica.
Irei colocar assuntos diferentes em tabelas diferentes.
Posto aqui depois.
Obrigado

Amigo...
Caso não de certo a solução acima do nosso amigo, tente explicar melhor o seu problema, pelo que eu entendi você só quer que vá para um novo registro...

Ps: Não posso abrir links para o dropbox pois o servidor da empresa onde eu trabalho bloqueia, se for anexar, tente anexar pelo fórum

Ok.
Irei tentar mas qdo em chegar em casa.
A finalidade é para controle de processo licitatório de compras.
Obrigado e Abs a todos

Bom... tava sem nada pra fazer, então vim mexer um pouco no seu código...
Como o nosso Brother disse la em cima, havia muita repetição desnecessária na sua rotina, então fiz o seguinte, mexi um pouco retirando os excessos e coloquei um tratamento de erro, pode ser que de erro no DCount se o controle "Pedido" estiver como Chave, mas é só adaptar...

... Bom se não for, vou ter que chegar em casa para baixar seu anexo e dar uma analisada melhor

Código:

Private Sub CmdNovoRegistro_Click()
On Error GoTo CmdNovoRegistro_Click_error
If IsNull(CboUnidadeRequisitante) Or IsNull(CboServicoRequisitante) Or IsNull(CboOficialRequisitante) Or IsNull(TxtNumOfEntrada) Or IsNull(dtDataSolicitacao) Then
MsgBox ("Obrigatório preenchimento de todos campos desta primeira guia!"), vbInformation + vbOKOnly, "Dados Necessários"
Me!CboServicoRequisitante.SetFocus
Exit Sub
End If
'Vai para novo registro           mude formulário1 pelo nome do seu form
DoCmd.GoToRecord acDataForm, "Formulário1", acNewRec
Me.Pedido = DCount("*", "teste") & "/" & Format(Now, "yyyy")
'                                  mude "teste" pelo nome da tabela onde se encontra o controle "Pedido"
CmdNovoRegistro_Click_error:
Select Case Err.Number
Case Is <> 0
MsgBox Err.Number & " - (" & Err.Description & ")"
End Select
End Sub

Obrigado.
Estoiu no trabalho e aqui não tem access.
Quando chegar em casa vejo.
Mais uma vez obrigado a todos.

Bom dia.
Amigos não funcionou.
Estou desmembrando as tabelas.
Posto depois aqui.
Obrigado

Brother,


Faz um resumo com detalhes, essa é boa, sobre sua rotina.

Pra gente modelar melhor seus dados.

Boa noite.
refiz as tabelas e relacionei dentro daquilo que acho.
Criei sub forms dentro de um form pedido.
Coloquei alguns botões e quando clico no novo pedido torna visível os subforms.
quando escolho um deles para registrar...
Ai começam as dificuldades.
Alguém poeria dizer onde estou errando.
Abaixo o link
https://www.dropbox.com/s/cj3f8xpmgbsdbwd/filtro%2011.accdb?dl=0

Obrigado

Acredito que fica difícil ajudar para quem quer seja que não conheça a sua rotina.

A mensagem de erro é relativo a um registro órfão, ou seja, da forma que está, vc está tentando cadastrar um registro filho sem o prévio registro pai.

Sem detalhes da sua rotina, pelo menos eu, não conseguirei ajudá-lo.

Abraços,