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
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