[Resolvido]DLookup não funciona para liberar ediçao de campos

Senhores,

Estou colocando o código abaixo ao carregar de um form para verificar se o nível do usuário permite edição, exclusão ou adição no form, para tanto uso o dlookup na talela TBLUsers, onde possui o campo NivelEdicao com valor 1 ou 2, sendo um para liberar edição e o outro para bloquear edição, porém o access está retornando erro de compilação, dizendo que tem uma exclamação ou ponto desnecessário.



Dim Edicao As Integer
Edicao = DLookup("[NivelEdicao]", "[TBLUsers]", "[strUserID] = '" & Me.txtUser & "'")
Select Case Edicao
Case 1
Me.AllowEdits = True
Me.AllowDeletions = True
Me.AllowAdditions = True
Me.Comando27.enabled = True

Case 2
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
Me.Comando27.enabled = False
End Select

strUserID é o campo da tabela que tem a ID? Se o ID for tipo numérico, retire as aspas simples:

Edicao = DLookup("[NivelEdicao]", "[TBLUsers]", "[strUserID] = " & Me.txtUser)

O campo é texto, fiz assim:
Edicao = DLookup("[NivelEdicao]", "[TBLUsers]", "[strUserID] = '" & Me.txtUser)

Porém continua o mesmo erro, com erro em tempo de execução 2447

Você está declarando Edição como Integer, que significa número inteiro. Tente declarar como String.

Ajustei a declação, porém o erro permanece, erro em tempo de execução 2447, dizendo que tem ponto ou ponto de exclamação.

donizeth,
Ajustou como?
tente
Dim Edicao As string
Edicao = DLookup("[NivelEdicao]", "[TBLUsers]", "[strUserID] = '" & Me.txtUser & "'")
Select Case Edicao
Case "1"
Me.AllowEdits = True
Me.AllowDeletions = True
Me.AllowAdditions = True
Me.Comando27.enabled = True

Case "2"
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
Me.Comando27.enabled = False
End Select

copiei o código exatamente como você colocou,mas o erro continua.

Disponibilize a bd e indique como acontece o erro

Só é necessário o uso do parenteses quando o nome contiver espaço.

Edicao = DLookup("NivelEdicao", "TBLUsers", "strUserID = '" & Me.txtUser & "'")

Sucesso!

ok, obrigado resolvido.