[Resolvido]Falha na abertura de RECORDSET

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

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

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

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

As minhas desculpas pela demora na resposta.

Obrigado a todos pelas preciosas sugestões.

O erro na abertura do recordset desapareceu.

Bem hajam.

Obrigado a todos pela ajuda

Olá

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