[Resolvido]Erro na query SELECT

Ola povo,
fiz a query abaixo, mas está dando erro: "Membro ou nome do método não encontrado",

Me.TxtAtendente = rs("COD_ATDE")

Mas como podem ver, a variavel "TxtAtendente" está definida.


If TxtTipoUserTab = "ESPECIALISTA" Then

       TxtAtendente = 0

       txtUsuario = Var_Usu
       Dim db As DAO.Database
       Dim rs As DAO.Recordset
       Dim strSQL As String
       strSQL = "Select COD_ATDE FROM [tbl ATENDENTE] WHERE [NOME_ATDE] = " & txtUsuario & ""
       Set db = CurrentDb
       Set rs = db.OpenRecordset("strSQL")
       If Not rs.BOF Then
          Me.TxtAtendente = rs("COD_ATDE")
       End If
       rs.Close
       Set rs = Nothing
       db.Close
       Set db = Nothing

       Var_Atendente = TxtAtendente
       DoCmd.Close
       DoCmd.OpenForm "Frm_MenuUser"
End If


Obrigado pela ajuda

Olá Iberlucio

veja se nos campos na tabela onde no nome eles tem um espaço no meio
tipo "COD ATDE" pois o access adiciona automaticamente um underline "COD_ATDE"

então se for assim quando for usado nos eventos não utilize assim [COD_ATDE], e sim somente assim [COD ATDE] sem o underline
ou despreze o colchetes e escreva assim COD_ATDE, sem colchetes ok

e para garantia no recordset coloque o nome da tabela junto com o do campo assim: [tbl ATENDENTE].cod_atde

entao seria na linha do strSQL: strSQL = "Select [tbl ATENDENTE].COD_ATDE FROM [tbl ATENDENTE] WHERE [NOME ATDE] = " & txtUsuario & ""

veja se é isto

até

Ola Cleber,
Fiz as alterações conforme orientação, porém, continua com o mesmo erro.

Verifique a imagem em anexo, foi impressa no momento da compilação.

Para adiantar a situação, coloquei comentario nas linhas abaixo, e o erro nao aconteceu mais.

'        If Not rs.BOF Then
'           Me.TxtAtendente = rs("CODATDE")
'        End If

'

então, qual o nome do campo na tabela, [COD ATDE], COD_ATDE OU CODATDE ?
e este campo NOME_ATDE ? na tabela esta [nome atde], nome_atde, ou nomeatde?
e o nome deste campo "TxtAtendente" está correto? pertence a um form ou um subform?

Então,
Fiz o teste com os três nomes, o nome final que permaneceu na tabela é:
COD_ATDE e NOME_ATDE, quanto a "TXTATENDENTE", este é uma variável local.

se TxtAtendente é uma variável e não um campo do formulario ou subform
então você não pode usar "me.TxtAtendente" e sim somente "TxtAtendente"

Valeu pela força Cleber,
Tá resolvido.

Valeu pela força Cleber,
Tá resolvido.