Prezados colaboradores,
Em meu trabalho temos uma pequena aplicação em Acess que teve uma alteração para correção de um determinado erro. O
programador corrigiu no acess 2013, porém apresenta, no acess 2007 os seguintes erros ao tentar executar:
--------------------------------------------------------------------------
Função 'Date' indefinida na expressão.
--------------------------------------------------------------------------
Ao debugar:
--------------------------------------------------------------------------
É impossível localizar o projeto ou a biblioteca.
--------------------------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
If HistoricoP.Count < 2 Then
Voltar.Visible = False
End If
If HistoricoF.Count < 1 Then
Avançar.Visible = False
End If
Dim obj As New Navegador
obj.Janela = "Inicio"
HistoricoP.Add obj
RootFolder = Mid(CurrentDb.Name, 1, InStrRev(CurrentDb.Name, "\") - 1)
If Q_Participantes <> "" Then
Participantes.RowSource = Q_Participantes
Participantes.Requery
End If
If Q_Cursos <> "" Then
Cursos.RowSource = Q_Cursos
Cursos.Requery
End If
Select Case Aba_Inicio
Case 1
[ Cursos].SetFocus
Case 2
[ Participantes].SetFocus
Case 3
[ Tutores].SetFocus
End Select
End Sub
----------------------------------------------------------------------------------
Já vasculhamos os objetos, dependências e bibliotecas e estão todas lá tentei fazer o que é indicado tanto pelo help do Acess, quanto pelo conselho de alguns desenvolvedores(desmarcar a referência, mas o menu de Ferramentas a opção referencia está desabilitada).
Alguém pode nos ajudar?
Grato.
Amauri
Em meu trabalho temos uma pequena aplicação em Acess que teve uma alteração para correção de um determinado erro. O
programador corrigiu no acess 2013, porém apresenta, no acess 2007 os seguintes erros ao tentar executar:
--------------------------------------------------------------------------
Função 'Date' indefinida na expressão.
--------------------------------------------------------------------------
Ao debugar:
--------------------------------------------------------------------------
É impossível localizar o projeto ou a biblioteca.
--------------------------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
If HistoricoP.Count < 2 Then
Voltar.Visible = False
End If
If HistoricoF.Count < 1 Then
Avançar.Visible = False
End If
Dim obj As New Navegador
obj.Janela = "Inicio"
HistoricoP.Add obj
RootFolder = Mid(CurrentDb.Name, 1, InStrRev(CurrentDb.Name, "\") - 1)
If Q_Participantes <> "" Then
Participantes.RowSource = Q_Participantes
Participantes.Requery
End If
If Q_Cursos <> "" Then
Cursos.RowSource = Q_Cursos
Cursos.Requery
End If
Select Case Aba_Inicio
Case 1
[ Cursos].SetFocus
Case 2
[ Participantes].SetFocus
Case 3
[ Tutores].SetFocus
End Select
End Sub
----------------------------------------------------------------------------------
Já vasculhamos os objetos, dependências e bibliotecas e estão todas lá tentei fazer o que é indicado tanto pelo help do Acess, quanto pelo conselho de alguns desenvolvedores(desmarcar a referência, mas o menu de Ferramentas a opção referencia está desabilitada).
Alguém pode nos ajudar?
Grato.
Amauri