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


3 participantes

    [Resolvido]Falha na abertura de RECORDSET

    avatar
    JoseOliveira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 14/10/2014

    [Resolvido]Falha na abertura de RECORDSET Empty [Resolvido]Falha na abertura de RECORDSET

    Mensagem  JoseOliveira 25/8/2023, 12:19

    Bom dia a todos.

    Sou um autodidacta em VBA Access.
    Desde há algumas semanas que, colocando mais que uma condição para abertura de um RECORDSET, me surge uma falha na abertura do RECORDSET por "run-time error".
    Exemplo: rst.Open "SELECT * FROM Tbl_VagasTecnico " & _
                   "WHERE Tecnico='" & Me.Cmb_Tecnico & "'" & _
                   " AND Local='" & vrLocal & "'", con, adOpenDynamic, adLockOptimistic

    No entanto, outros métodos semelhantes criados anteriormente ao aparecimento deste erro, alguns com 3 ou 4 condições, continuam a funcionar perfeitamente.
    Alguém sabe porque terá surgido o erro (alguma actualização do Windows?) e como poderei resolvê-lo?
    Desde já obrigado pela ajuda.
    Bem hajam

    José Oliveira
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Falha na abertura de RECORDSET Empty Re: [Resolvido]Falha na abertura de RECORDSET

    Mensagem  JPaulo 25/8/2023, 16:47

    Olá seja bem vindo ao fórum.

    Normalmente uso assim para poder ver toda a instrução SQL e possiveis falhas;

    Código:
    Dim strSQL As Variant

    strSQL = "SELECT * FROM Tbl_VagasTecnico WHERE Tecnico='" & Me.Cmb_Tecnico & "' AND Local='" & vrLocal & "'"
    rst.Open strSQL, con, adOpenDynamic, adLockOptimistic

    Este Me.Cmb_Tecnico é uma combobox certo ?
    É que neste caso deverá invocar a coluna da combo, exemplo Me.Cmb_Tecnico.Column(X) sendo que as colunas começam pela zero (0).

    Ou provavel que a variavel vrLocal esteja NULL, o melhor é tratar os nulos assim Nz(vrLocal,"")

    E se a conexão não for ODBC, uso sempre assim;

    rst.Open strSQL, con, adOpenForwardOnly, adLockReadOnly


    .................................................................................
    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]Falha na abertura de RECORDSET Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Falha na abertura de RECORDSET Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Falha na abertura de RECORDSET Folder_announce_new Instruções SQL como utilizar...
    avatar
    JoseOliveira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 14/10/2014

    [Resolvido]Falha na abertura de RECORDSET Empty Falha na abertura de RECORDSET

    Mensagem  JoseOliveira 25/8/2023, 18:15

    Obrigado pelas dicas, JPaulo.

    Compreendo a observação da combo, mas ela só tem uma coluna.
    Quanto ao risco de a variável poder ser nula, não conhecia a opção e vou passar a usá-la.
    A minha perplexidade está no facto de o erro ter surgido sem causa evidente e, como disse, no mesmo projecto em que aparece este erro tenho outros módulos com procedimentos em que utilizo métodos semelhantes, alguns com 3 e 4 condições, criados antes de o erro ter aparecido, e que continuam a correr normalmente.

    Haverá, nas ferramentas do VBA alguma referência que possa ajudar?

    Obrigado pela ajuda

    José Oliveira
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3248
    Registrado : 13/12/2016

    [Resolvido]Falha na abertura de RECORDSET Empty Re: [Resolvido]Falha na abertura de RECORDSET

    Mensagem  Alexandre Fim 25/8/2023, 21:47

    Apenas um pitaco:

    Sempre que possível, "quebre" sua instrução SQL em varias linhas, e entre elas é possivel incluir uma condição, no caso, a variavel nula:

    Código:


        Dim sSQL As String
       
        sSQL = "SELECT * "
        sSQL = sSQL & " FROM Tbl_VagasTecnico"
        sSQL = sSQL & " WHERE Tecnico='" & Me.Cmb_Tecnico & "'"
        If Not IsNull(vrLocal) Then
            sSQL = sSQL & " AND Local= '" & vrLocal & "'"
        End If
       
        rst.Open sSQL, con, adOpenDynamic, adLockOptimistic



    É isso

    Espero ter ajudado

    Att,

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Falha na abertura de RECORDSET Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    JoseOliveira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 14/10/2014

    [Resolvido]Falha na abertura de RECORDSET Empty Re: [Resolvido]Falha na abertura de RECORDSET

    Mensagem  JoseOliveira 29/8/2023, 12:01

    As minhas desculpas pela demora na resposta.

    Obrigado a todos pelas preciosas sugestões.

    O erro na abertura do recordset desapareceu.

    Bem hajam.
    avatar
    JoseOliveira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 14/10/2014

    [Resolvido]Falha na abertura de RECORDSET Empty Re: [Resolvido]Falha na abertura de RECORDSET

    Mensagem  JoseOliveira 29/8/2023, 12:06

    Obrigado a todos pela ajuda
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Falha na abertura de RECORDSET Empty Re: [Resolvido]Falha na abertura de RECORDSET

    Mensagem  JPaulo 29/8/2023, 13:40

    Olá

    O erro desapareceu com alguma das soluções acima, ou simplesmente desapareceu ?


    .................................................................................
    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]Falha na abertura de RECORDSET Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Falha na abertura de RECORDSET Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Falha na abertura de RECORDSET Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Falha na abertura de RECORDSET Empty Re: [Resolvido]Falha na abertura de RECORDSET

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/5/2024, 09:25