MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    baldocchi
    baldocchi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  baldocchi 7/3/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 7/3/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto Folder_announce_new Instruções SQL como utilizar...
    baldocchi
    baldocchi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  baldocchi 7/3/2016, 15:49

    Muito Obrigado!

    Funcionou Perfeitamente.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 7/3/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:06