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]Varios comandos pararam de funcionar

    avatar
    Claudemir P
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]Varios comandos pararam de funcionar Empty [Resolvido]Varios comandos pararam de funcionar

    Mensagem  Claudemir P 1/3/2016, 15:30

    Varios comandos pararam de funcionar, numa função, em versão anterior funcionava sem problemas
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord ,,acNewRec

    referências que estou utilizando
    Visual basic for applications
    microsoft access 14.0 object library
    ole automation

    Alguns campos parecem não estarem disponíveis
    Form_Form_AssistDet.OS = OsMAx

    código:
    Código:
    Function SalvarNovo()
    Dim OsMAx As Long

    OsMAx = ((DMax("[MaxOS]", "Consul_AssistenciaNumOS")) + 1)

    DoCmd.OpenForm "Form_AssistDet", , , , acFormEdit
    Form_Form_AssistDet.AllowAdditions = True
    Form_Form_AssistDet.SetFocus
    DoCmd.GoToRecord , , acNewRec 'gera erro 2105

    Form_Form_AssistDet.OS = OsMAx 'váriavel contém o valor correto 8720

    If CodCli > 0 Then
    Form_Form_AssistDet.Selecao_CodCliente = Form_Form_ClienteDetalhes.CodCliente
    Form_Form_AssistDet.DeixadoPor = Form_Form_ClienteDetalhes.CodCliente
    CodCli = 0
    End If

    DoCmd.RunCommand acCmdSaveRecord
    Form_Form_AssistDet.Modelo.SetFocus
    End Function
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Varios comandos pararam de funcionar Empty Re: [Resolvido]Varios comandos pararam de funcionar

    Mensagem  JPaulo 1/3/2016, 17:51

    Veja se ao mudar de versão, as seguranças de macro ficaram ativas, se estiverem tem de desabilitar.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Varios comandos pararam de funcionar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Varios comandos pararam de funcionar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Varios comandos pararam de funcionar Folder_announce_new Instruções SQL como utilizar...
    avatar
    Claudemir P
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]Varios comandos pararam de funcionar Empty Re: [Resolvido]Varios comandos pararam de funcionar

    Mensagem  Claudemir P 1/3/2016, 18:04

    A versão do Access é a mesma (2010), não mudou.

    Verifiquei e esta habilitado utilização de macro, locais de rede etc.

    Data Entry "Entrada de Dados", está com SIM.

    Execução ocorre no evento Abrir Formulário.



    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Varios comandos pararam de funcionar Empty Re: [Resolvido]Varios comandos pararam de funcionar

    Mensagem  JPaulo 1/3/2016, 18:09

    Desabilite a segurança de macro.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Varios comandos pararam de funcionar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Varios comandos pararam de funcionar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Varios comandos pararam de funcionar Folder_announce_new Instruções SQL como utilizar...
    avatar
    Claudemir P
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]Varios comandos pararam de funcionar Empty Re: [Resolvido]Varios comandos pararam de funcionar

    Mensagem  Claudemir P 1/3/2016, 20:06

    Obrigado Jpaulo, resolvido com sua orientação: mostrar todas as ações em criação de macro.

    Não entendi, por que, não funcionava o comando em VBA habilitando funções da macro (mostrar todas as ações), mas importante é que resolveu.

    Aproveitando, conhece algum livro, tutorial que ensina VBA do básico?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Varios comandos pararam de funcionar Empty Re: [Resolvido]Varios comandos pararam de funcionar

    Mensagem  JPaulo 2/3/2016, 10:03



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Varios comandos pararam de funcionar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Varios comandos pararam de funcionar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Varios comandos pararam de funcionar Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Varios comandos pararam de funcionar Empty Re: [Resolvido]Varios comandos pararam de funcionar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 07:03