Erro em Select

[Motar 0]

Bom dia colegas

Está a dar um erro que nunca me tinha acontecido e já tentei de algumas formas e continua a dar erro.

Agradeço a vossa ajuda

é o seguinte:

 

Function NovoSocio() As String

Dim NumDisp As Integer

Dim NumExist As Integer

NumDisp = 0

NumExist = 0

While NumDisp = NumExist

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("select NumMembro from Membros where NumMembro= '" & NumDisp & "'", dbOpenDynaset)

If rs.EOF And rs.BOF Then

NumDisp = NumDisp + 1

Else

NumExist = NumDisp + 1

NumDisp = NumDisp + 1

End If

rs.Close

Wend

NovoSocio = NumDisp

End Function

 

Está dando erro na linha a negrito

Se eu substituir '" & NumDisp & "' por um número já funciona, presumo que o erro esteja aí, mas já utilizei dezenas de vezes assim e nunca deu erro.

 

O que poderá estar a acontecer?

Agradeço ajuda

[ejrtristao 0]

Tenta isso:

Set rs = CurrentDb.OpenRecordset("select NumMembro from Membros where NumMembro= " & NumDisp & "", dbOpenDynaset)

 

Se o campo for numero e não texto não a necessidade das (' ')

 

 

Qualquer coisa me avisa

[quintelab 91]

Código ASP aqui não tem importância, quando postar, poste somente o Sql.

 

Abraços...