MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Erro no botão Novo do cadstro

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Erro no botão Novo do cadstro

    Mensagem  Mylton em Seg 27 Jul 2015, 16:20

    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.

    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Tenta usar isso...

    Mensagem  roberval em Seg 27 Jul 2015, 17:18

    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


    Última edição por roberval em Seg 27 Jul 2015, 17:33, editado 1 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: Erro no botão Novo do cadstro

    Mensagem  Mylton em Seg 27 Jul 2015, 17:30

    bounce
    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

    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: Erro no botão Novo do cadstro

    Mensagem  roberval em Seg 27 Jul 2015, 17:34

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: Erro no botão Novo do cadstro

    Mensagem  Mylton em Seg 27 Jul 2015, 17:52

    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


    Última edição por Mylton em Seg 03 Ago 2015, 18:55, editado 1 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: Erro no botão Novo do cadstro

    Mensagem  Mylton em Seg 27 Jul 2015, 17:56

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

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 23/09/2011

    Re: Erro no botão Novo do cadstro

    Mensagem  cleverson_manaus em Seg 27 Jul 2015, 18:54

    Caro,

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

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


    Abraços,
    Anexos
    Contador2K.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 15 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Tópico resolvido!!!!

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: Erro no botão Novo do cadstro

    Mensagem  Mylton em Seg 27 Jul 2015, 19:12

    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.


    Última edição por Mylton em Seg 03 Ago 2015, 18:55, editado 1 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: Erro no botão Novo do cadstro

    Mensagem  Mylton em Seg 27 Jul 2015, 19:29

    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


    Última edição por Mylton em Seg 03 Ago 2015, 18:56, editado 1 vez(es)

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 23/09/2011

    Re: Erro no botão Novo do cadstro

    Mensagem  cleverson_manaus em Ter 28 Jul 2015, 03:59


    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




    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Tópico resolvido!!!!

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: Erro no botão Novo do cadstro

    Mensagem  Mylton em Ter 28 Jul 2015, 12:55

    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

    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: Erro no botão Novo do cadstro

    Mensagem  roberval em Ter 28 Jul 2015, 13:13

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: Erro no botão Novo do cadstro

    Mensagem  Mylton em Ter 28 Jul 2015, 13:53

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

    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: Erro no botão Novo do cadstro

    Mensagem  roberval em Ter 28 Jul 2015, 15:33

    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... What a Face

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

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: Erro no botão Novo do cadstro

    Mensagem  Mylton em Ter 28 Jul 2015, 16:01

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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: Erro no botão Novo do cadstro

    Mensagem  Mylton em Qua 29 Jul 2015, 13:35

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

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 23/09/2011

    Re: Erro no botão Novo do cadstro

    Mensagem  cleverson_manaus em Qui 30 Jul 2015, 22:07


    Brother,


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

    Pra gente modelar melhor seus dados.




    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Tópico resolvido!!!!

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: Erro no botão Novo do cadstro

    Mensagem  Mylton em Sab 01 Ago 2015, 22:26

    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
    [Você precisa estar registrado e conectado para ver este link.]

    Obrigado

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 23/09/2011

    Re: Erro no botão Novo do cadstro

    Mensagem  cleverson_manaus em Seg 10 Ago 2015, 17:24



    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,



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Tópico resolvido!!!!

      Data/hora atual: Seg 05 Dez 2016, 04:22