[Resolvido]DAO.database

Queridos Mestres

Usei um exemplo de Backup que vi aqui neste fórum, criei um novo aplicativo e agora não funciona, da um erro no DAO.database.

Public Function fncProtegido() As Boolean
Dim bd As DAO.Database
On Error Resume Next
'-------------------------------------------------
'Tento abrir o banco sem passar a senha
'Se o banco tiver a senha irá ocorrer o erro 3031
'-------------------------------------------------
Set bd = OpenDatabase(Me!txDestino, False, False)
If Err.Number = 3031 Then
   fncProtegido = True
Else
   bd.Close
End If
Set bd = Nothing
End Function

Uso o Access 2007 e não sei aonde habilito isso.

casilveira

Boa tarde,
verifique se a referência está marcada (Tools -> References)

Obrigado Alexandre

O Microsoft DAO 3.6 Objects Library estava marcado, mas não sei porque o erro parou de ocorrer.

De qualquer forma considero resolvido.

casilveira