none
Erro de compilação: era esperado tipo definido pelo usuário, não projeto RRS feed

  • Pergunta

  • Eu tenho o seguinte código:

    Dim db As Database
    Dim rs As Recordset
    Dim I As Integer
    Dim strQuery As String
    Dim StrDRE As String


    StrDRE = ""
    CmbDRE.SetFocus
    StrDRE = CmbDRE.Text


    If StrDRE = "000000" Then
            Set db = CurrentDb
            strQuery = "SELECT * FROM t_coleta_lanca"
            Set rs = db.OpenRecordset(strQuery)
            Form_f_debitos.RecordSource = strQuery
            Form_f_debitos.Refresh
    Else
    Set db = CurrentDb

    strQuery = "SELECT * "
    strQuery = strQuery & " FROM "
    strQuery = strQuery & " t_coleta_lanca "
    strQuery = strQuery & " WHERE ("
    strQuery = strQuery & " Dre = "
    strQuery = strQuery & " """ & StrDRE & """"
    strQuery = strQuery & " )"

    Set rs = db.OpenRecordset(strQuery)

    Form_fColeta.RecordSource = strQuery
    Form_fColeta.Refresh

    StrDRE = ""

    End If

    Em um banco de dados local (na minha máquina) com tabelas criadas nesse banco, não aparece algum e o código funciona muito bem.

    O erro aparece quando eu tento rodá-lo em um arquivo com tabelas vinculadas.

    Alguém pode me ajudar a encontrar uma solução?, por favor.

    Eu preciso rodar esse código em um banco de dados com tabelas vinculadas.

    Agradeço muito toda a ajuda.

    segunda-feira, 7 de março de 2016 13:10

Todas as Respostas

  • Leandro, boa tarde!

    Hoje eu passei pelo mesmo problema. Ao copiar um código do MS Access 2003 para 2013 não dei conta que as declarações são diferentes. 

    Exemplo: 

    - MS Access 2003: Dim db As Database 

    - MS Access 2013: Dim db As DAO.Database

    Fonte: https://msdn.microsoft.com/pt-br/library/office/ff820966.aspx


    terça-feira, 31 de outubro de 2017 20:42