[Resolvido]run time error 3075

boas
tenho o seguinte código numa combUser que pesquisa o Nome e devolve o mesmo preenchendo os campos da tabela(form)

Private Sub combUsers_AfterUpdate()
DoCmd.ApplyFilter , "NivelSeguranca = " & Me!combUsers.Column(0)
Me!User.SetFocus
Me!combUsers = Null
End Sub

ao escolher o user fa o seguinte erro :

[img][/img]

Obrigado

Olá vê a minha outra resposta.
Relativamente a esta questão qual é o tipo de dados do campo "NivelSeguranca"
e que tipo dados é que tens na 1ª coluna do campo "Me!combUsers.Column(0)" verifica na origem dos dados.
se for outra coluna deves alterar para Me!combUsers.Column(1) se for a segunda coluna e assim sucessivamente.

Ainda se mantem o erro?

Olá Álvaro . . .
Sim o erro mantêm-se . . .

Em que situação "form" estás a utilizar esse código.
O que vai fazer?

Marcos

Experimente:


DoCmd.ApplyFilter , "NivelSeguranca = '" & Me!combUsers.Column(0) & "'"

Veja que após o sinal de = tem uma aspas simples e outra dupla.

Melhor copiar toda a frase e substituir.

Atente para quando for usar  controles/campos string, é necessário o uso de aspas, como a sentença tem aspas duplas,
o controle/campo tem que ter aspas simples para diferenciar das duplas.

Sempre que for fazer uma comparação, procure usar o id do usuário ao invés do nome, como já disse em outro post, nome é suscetível
a erros de digitação.

Abraços

Noob

Olá a todos,

Exprimenta como o colega sugeriu.

No entanto se já tens a funcionar noutros formularios, verifica bem a origem dos dados, nome de campos, por vezes quando copiamos formularios ou mesmo controles é necessário reajustar a origem dosa dados.

Para finalizar acho que o problema deve estar no facto de o nivel de segurança ser um campo numerico e o primeiro campo da combUsers ser o nome do utilizador, como podemos ver no print.

Verifica lá isso e dá retorno.

Abraço a todos

boas
bem agora da-me Run-Time error '438': Object Doesn't support this property or method
...

Marco

Creio que ainda faltou algo na sentença:

"[NivelSeguranca] = '" & Me!combUsers.Column(0) & "'"

Veja que coloquei NivelSegurança entre colchetes ([])

Se ainda não funfar:

Sabe usar a janela imediata para fazer testes?

Se sim, faça isso:

? = print ou mostre

com o formulário aberto:

?  "[NivelSeguranca] = '" & Me!combUsers.Column(0) & "'"

Deve retornar Falso ou verdadeiro na janela imediata ou vai dar erro.

Poste como ficou teu código

Noob

boas Noob
n/ sei usar ... usar a janela imediata para fazer testes ...   
sabe após dar esse erro se eu der clicar em End fica funcionando se fizer debug apresenta a linha abaixo:
Me!User.SetFocus

Marco

Me!User.SetFocus está dizendo para colocar o foco no controle User.

Existe um controle com esse nome, User?

Aprenda a usar a janela imediata, a janela abaixo da página de códigos.

Para abri-la tecle Crtl+G

E faça os teste que mencionei no post anterior

Vai resolver muitos erros fazendo testes nessa essa janela.

Noob

resolvido
amigão . . . esta vou pedir desculpa a você... mal li o que escreveu . . . ui ! burrice minha . . . a serio   
esta resolvido e obrigado por tudo... aprendi o Crtl+G