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


2 participantes

    [Resolvido]Botão Novo desconfigurado

    deyvsonaguiar
    deyvsonaguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 27/09/2015

    [Resolvido]Botão Novo desconfigurado Empty [Resolvido]Botão Novo desconfigurado

    Mensagem  deyvsonaguiar 26/10/2015, 18:50

    Alguém pode me dizer por que meu botão novo, hora se comporta como um botão 'alterar' e habilita a mesma parte Form, hora da mensagem de não pode ir no  local especificado. E não salva na tabela... Outras vezes da o erro 2105.

    Como evitar esses erros?

    Código:
    Private Sub Cmd_Novo_Click()
        On Error Resume Next
        DoCmd.GoToRecord acForm, Me.Name, acNewRec
        Me.Txt_Cliente.Enabled = True
        Me.Txt_Data.Enabled = True
        Me.Txt_Data.Enabled = True
        Me.Txt_Noticia.Enabled = True
        Me.Txt_Publicacao.Enabled = True
        Me.Txt_Veiculo.Enabled = True
        Me.Txt_Editoria.Enabled = True
        Me.Cmd_Alterar.Enabled = False
        Me.Cmd_Anterior.Enabled = False
        Me.Cmd_Excluir.Enabled = False
        Me.Cmd_Primeiro.Enabled = False
        Me.Cmd_Proximo.Enabled = False
        Me.Cmd_Ultimo.Enabled = False
        Me.Cmd_Novo.Enabled = False
        Me.Cmd_Salvar.Enabled = True
        Me.Txt_Classificacao.Enabled = True
        Me.Txt_Tipo.Enabled = True
        Me.Txt_Tag.Enabled = True
        Me.Box_Replica.Enabled = True
        Me.Txt_Noticia.SetFocus
      
        
    End Sub


    Última edição por deyvsonaguiar em 1/11/2015, 19:59, editado 1 vez(es)
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 806
    Registrado : 30/08/2010

    [Resolvido]Botão Novo desconfigurado Empty Re: [Resolvido]Botão Novo desconfigurado

    Mensagem  gilberlanio 26/10/2015, 19:39

    Tente assim:

    Código:
    On Error GoTo Err_Cmd_Novo_Click

       Me.Txt_Cliente.Enabled = True
        Me.Txt_Data.Enabled = True
        Me.Txt_Data.Enabled = True
        Me.Txt_Noticia.Enabled = True
        Me.Txt_Publicacao.Enabled = True
        Me.Txt_Veiculo.Enabled = True
        Me.Txt_Editoria.Enabled = True
        Me.Cmd_Alterar.Enabled = False
        Me.Cmd_Anterior.Enabled = False
        Me.Cmd_Excluir.Enabled = False
        Me.Cmd_Primeiro.Enabled = False
        Me.Cmd_Proximo.Enabled = False
        Me.Cmd_Ultimo.Enabled = False
        Me.Cmd_Novo.Enabled = False
        Me.Cmd_Salvar.Enabled = True
        Me.Txt_Classificacao.Enabled = True
        Me.Txt_Tipo.Enabled = True
        Me.Txt_Tag.Enabled = True
        Me.Box_Replica.Enabled = True
        Me.Txt_Noticia.SetFocus
        DoCmd.GoToRecord , , acNewRec

    Exit_Cmd_Novo_Click:
        Exit Sub

    Err_Cmd_Novo_Click:
        MsgBox Err.Description
        Resume Exit_Cmd_Novo_Click
    deyvsonaguiar
    deyvsonaguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 27/09/2015

    [Resolvido]Botão Novo desconfigurado Empty [Resolvido]

    Mensagem  deyvsonaguiar 27/10/2015, 00:09

    Caraca:lol!: , GIlberlanio, sou seu fã cheers ... sigo você no Youtube e assisti a muitos dos seus vídeos... obrigado pela força viu!

    Funcionou legal... Os meus botões próximo e anterior, último e primeiro estavam me atrapalhando também, restringindo com que eu criasse um novo registro após eu navegar pelo dados do formulário... mas eu resolvi mudando a opção:

    Me.AllowAdditions = True ' habilitado para adicionar um novo registro

    Meu projeto está em vento em polpa...

    olha como ficou... não posso carregar em zip pq não tenho espaço de armazenamento. Segue link no One Drive... se tiver alguma dica pra implementar meu projeto... eu to numa fase crítica... preciso enviar 25 relatórios por e-mail com um html ou rtf que preserve links no corpo do e-mail + anexo do relatório em pdf (isso já consegui e emperrei aqui).

    LINK Do meu projeto de Cadastro de Notícias:

    https://onedrive.live.com/redir?resid=6F3E145E960C6F71!4015&authkey=!AA4amIdxQdXePBo&ithint=file%2caccdb

    e minha dúvida sobre o envio de e-mails numa postagem aqui mesmo no Fórum "Máximo":

    https://www.maximoaccess.com/t24509-como-enviar-relatorio-em-rick-text-no-corpo-do-email-o-anexo-do-mesmo-em-pdf-para-grupos-de-e-mails#175182

    Conteúdo patrocinado


    [Resolvido]Botão Novo desconfigurado Empty Re: [Resolvido]Botão Novo desconfigurado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/5/2024, 01:17