MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 38
    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9385
    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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 : 38
    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9385
    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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 22 Ago 2017, 04:40