Como Corrigir Erro de Runtime 13 no MS Access

Microsoft Access (parte do Office) pode dar erros frustrantes. "Runtime Error 13" não é tão difícil de corrigir. Às vezes é discrepância regional no PC (correção rápida). Outras vezes, discrepância nas referências de biblioteca.

Instruções

1. Iniciar → Painel de Controle → "Data, Hora, Idioma e Opções Regionais".

2. Clique "Opções Regionais e de Idioma". Certifique-se: Idioma = "English (US)", Local = "United States". Se diferente, altere para corresponder.

3. Iniciar → Todos Programas → Microsoft Office → Microsoft Access para rodar novamente. Se mesmo erro, prossiga.

4. Iniciar → Todos Programas → Microsoft Office → Visual Studio para rodar Visual Studio. Se tem Access, tem Visual Studio.

5. Clique "Abrir" na caixa "Novo Projeto" e clique com botão direito em "Form1".

6. Clique "Exibir Código" e cole o seguinte na caixa de código:

   Dim dbs AS Database
   Dim rs AS Recordset ' Ao pressionar espaço após "AS", a
   ' lista inclui várias entradas Recordset.
   ' Escolha qualquer item Recordset ou digite "Recordset".
   Private Sub Form_Load()
   Set dbs=OpenDatabase(dbname)
   Set rs=dbs.OpenRecordset(source) ' O erro ocorre quando esta
   ' linha de código executa.
   End Sub
   

7. Clique menu "Projeto" → "Referências".

8. Marque "Microsoft DAO 3.x Object Library" e "Microsoft ActiveX Data Objects 2.x Library". Clique "OK".

9. Localize bibliotecas ADO e DAO. ADO deve ter prioridade maior que DAO. Se não, altere a prioridade.

10. Abra Access novamente; erro deve ter sumido.

• Como Ler PDF no Palm Centro
• Como Enviar SMS Grátis pelo Computador