MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto

    Compartilhe

    baldocchi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 03/11/2014

    [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto

    Mensagem  baldocchi em Seg 07 Mar 2016, 13:13

    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto

    Mensagem  JPaulo em Seg 07 Mar 2016, 14:38

    Faça o teste desta forma, veja as diferenças e retorne;

    Código:
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim I As Integer
    Dim strQuery As String
    Dim StrDRE As String


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

    Set db = CurrentDb

        If StrDRE = "000000" Then
            strQuery = "SELECT * FROM t_coleta_lanca"
           
            Set rs = db.OpenRecordset(strQuery)
            Form_f_debitos.RecordSource = strQuery
            Form_f_debitos.Requery
            Else
            strQuery = "SELECT * "
            strQuery = strQuery & " FROM "
            strQuery = strQuery & " t_coleta_lanca"
            strQuery = strQuery & " WHERE Dre = '" & StrDRE & "'"
           
            Set rs = db.OpenRecordset(strQuery)
            Form_fColeta.RecordSource = strQuery
            Form_fColeta.Requery
            StrDRE = ""
        End If
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    baldocchi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 03/11/2014

    Re: [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto

    Mensagem  baldocchi em Seg 07 Mar 2016, 15:49

    Muito Obrigado!

    Funcionou Perfeitamente.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto

    Mensagem  JPaulo em Seg 07 Mar 2016, 15:52

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 06 Dez 2016, 05:41