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]Erro no VBA em Runtime 2010 com Windows 7 64bits...

    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    [Resolvido]Erro no VBA em Runtime 2010 com Windows 7 64bits... Empty Erro no VBA em Runtime 2010 com Windows 7 64bits...

    Mensagem  MPS Qua 24 Out 2012, 13:17

    Colegas, as máquinas que tem windows 7 64bits e o Runtime 2010 não estão abrindo o ACCDR pois dão mensagem de "Erro em tempo de execução". As que tem XP abrem! Retirei o VBA abaixo do Form Load no formulário que carrega com o autoexec e resolveu.
    Como preciso deste VBA pois define os formuláios a serem abertos, busquei no repositório e vi comentários do JPaulo sobre SP3 para Office.
    Descobri e instalei o SP1 para Runtime Access 2010.
    Além de não resolver deu problema com o OPEN do Avelino.
    Pergunto:
    1- Que alteração foi esta que fiz no Frontend que atrita com o Runtime 2010 no Windows 7 64 bits?
    2 - Por que o OPEN atritou com o Runtime 2010 + SP1?
    3 - Por que este ON ERROR RESUME NEXT não está sendo respeitado?
    4 - Como resolver?
    Agradeço desde já!
    MPS

    Private Sub Form_Load()
    On Error Resume Next
    DoCmd.GoToRecord , , acFirst
    Dim i, contar, reg As Integer
    contar = DCount("codusuario", "usuario")
    i = 1
    Do While (i <= contar)
    If (Me!Administrador = True) Then
    reg = 1
    Else
    reg = 0
    End If
    i = i + 1
    Loop
    If reg = 0 Then
    Me!Login.Value = "adm1"
    Me!Senha.Value = "adm1"
    Me!Administrador.Value = True
    DoCmd.OpenForm "frmavisoy"
    DoCmd.Close acForm, "frmacessoy"
    End If
    End Sub
    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    [Resolvido]Erro no VBA em Runtime 2010 com Windows 7 64bits... Empty Re: [Resolvido]Erro no VBA em Runtime 2010 com Windows 7 64bits...

    Mensagem  MPS Qui 01 Nov 2012, 12:34

    Caros colegas, como não recebi respostas, vou colocar estas para que fiquem no repositório.
    Respostas às perguntas:
    1 - Não creio que seja consequência de alguma alteração no Frontend. Provavelmente só a Microsoft pode responder.
    2 - Não sei o que o SP1 para Runtime 64bits prejudica o funcionamento do OPEN.
    3 - Parece que o problema não é com as linhas de comando do VBA, mas com o VBA como um todo, logo ON ERROR RESUME NEXT nem é lido.
    4 - Desinstalei o Runtime 64bits e coloquei o 32bits, mesmo sendo Windows 7 64bits. Deu certo, rodou o Open (32bits) e o meu Frontend.
    avatar
    jose alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/06/2011

    [Resolvido]Erro no VBA em Runtime 2010 com Windows 7 64bits... Empty Tente mudar o While para um SQL

    Mensagem  jose alves Ter 26 Mar 2013, 20:23

    companheiro comigo acontecia a mesma coisa, até que troquei o while por um sql e parou de dar o erro, rodando no runtime sem problemas, acho que resolve
    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    [Resolvido]Erro no VBA em Runtime 2010 com Windows 7 64bits... Empty Re: [Resolvido]Erro no VBA em Runtime 2010 com Windows 7 64bits...

    Mensagem  MPS Qui 28 Mar 2013, 19:47

    Caro Jose Alves, valeu pela dica!
    Se voltar a ter problemas tentarei o teu conselho!
    At
    MPS

    Conteúdo patrocinado


    [Resolvido]Erro no VBA em Runtime 2010 com Windows 7 64bits... Empty Re: [Resolvido]Erro no VBA em Runtime 2010 com Windows 7 64bits...

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 07 Nov 2024, 20:44