MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    Erro no botão Novo do cadstro

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Erro no botão Novo do cadstro

    Mensagem  Mylton 27/7/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
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Tenta usar isso...

    Mensagem  roberval 27/7/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 27/7/2015, 17:33, editado 1 vez(es)


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Mylton 27/7/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
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  roberval 27/7/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


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Mylton 27/7/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 3/8/2015, 18:55, editado 1 vez(es)
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Mylton 27/7/2015, 17:56

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


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  cleverson_manaus 27/7/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
    Erro no botão Novo do cadstro AttachmentContador2K.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 25 vez(es)


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Mylton 27/7/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 3/8/2015, 18:55, editado 1 vez(es)
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Mylton 27/7/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 3/8/2015, 18:56, editado 1 vez(es)
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  cleverson_manaus 28/7/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




    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Mylton 28/7/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
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  roberval 28/7/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


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Mylton 28/7/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
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  roberval 28/7/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


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Mylton 28/7/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
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Mylton 29/7/2015, 13:35

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


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  cleverson_manaus 30/7/2015, 22:07


    Brother,


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

    Pra gente modelar melhor seus dados.




    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Mylton 1/8/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
    https://www.dropbox.com/s/cj3f8xpmgbsdbwd/filtro%2011.accdb?dl=0

    Obrigado
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  cleverson_manaus 10/8/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,



    .................................................................................
    afro

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

    Conteúdo patrocinado


    Erro no botão Novo do cadstro Empty Re: Erro no botão Novo do cadstro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 11:54