[Resolvido] Method or data member not found (Error 461)

Agradecia uma "pequena" ajuda para resolver o seguinte problema:
No formulário, no procedimento [Private Sub Form_Load()] não reconhece o membro (.id)
Agredecia, desde já, a ajuda que me possam dar.

Ja tentou copiar os objetos para um novo formulário?
As vezes um formulário dá erro e só copiando para um novo se resolve.

Cumprimentos.

Ou verifique no código no evento se tem algum objeto nomeado de forma equivocada.

Cumprimentos.

HARYSOHN, como por exemplo??
A referência ( Login.id ) é reconhecido no módulo Function, mas no formulário não...porque será?

Comecei a trabalhar noutro projecto a título experimental, e deu certo. Depois passei para este, e estou com este pequeno problema...
Agradecia se tivesse mais alguma ideia para me ajudar.


Cumprimentos

Login.id é o que?

Cumprimentos.

Tem a ver com as permissões dadas aos usuários para edição, adição e exclisão de registos nos formulários.

'Este é o módulo:

Option Compare Database

Public Login As Login
Type Login
   id As Long
   USUARIO As String
End Type

Public Function fncPermissões(NomeForm As Form)
Dim filtro As String
On Error Resume Next

filtro = "objeto = '" & NomeForm.Name & "'"
filtro = "Idfuncao = " & Nz(DLookup("idFuncao", "tblFunções", filtro), 0) & " "
If Nz(DLookup("bloqueada", "tblpermissoesUsuarios", filtro), True) = True Or Login.id = 1 Then
   MsgBox "Acesso bloqueado...", vbInformation, "Aviso"
   DoCmd.Close acForm, NomeForm.Name
   Exit Function
End If
NomeForm.AllowEdits = Nz(DLookup("atualizar", "tblpermissoesUsuarios", filtro), "false")
NomeForm.AllowDeletions = Nz(DLookup("excluir", "tblpermissoesUsuarios", filtro), "false")
NomeForm.AllowAdditions = Nz(DLookup("inserir", "tblpermissoesUsuarios", filtro), "false")
End Function


'E este é o procedimento de um dos formulários:

Private Sub Form_Load()
Dim filtro As String
On Error Resume Next

Call fncPermissões(Me)

filtro = "objeto = '" & Me.Name & "'"
filtro = "Idfuncao = " & Nz(DCount("idFuncao", "tblFunções", filtro), 0) & _
           " AND idUsuario =" & CLng(Login.id)

DoCmd.Close acForm, "Painel de Controle de Formulários"
DoCmd.GoToRecord , , acNewRec
Registo_N_.SetFocus
End Sub

'e o método .id não é reconhecido, se assim se pode designar


cumprimentos.

Tente apenas id ao invés de Login.id

Cumprimentos.

HARYSOHN, assim não funciona... ou será de outra forma?

Option Compare Database

Public LoginId As login
Type login
   id As Long
   USUARIO As String
End Type

Public Function fncPermissões(NomeForm As Form)
Dim filtro As String
On Error Resume Next

filtro = "objeto = '" & NomeForm.Name & "'"
filtro = "Idfuncao = " & Nz(DLookup("idFuncao", "tblFunções", filtro), 0) & " "
If Nz(DLookup("bloqueada", "tblpermissoesUsuarios", filtro), True) = True Or LoginId.id = 1 Then
   MsgBox "Acesso bloqueado...", vbInformation, "Aviso"
   DoCmd.Close acForm, NomeForm.Name
   Exit Function
End If
NomeForm.AllowEdits = Nz(DLookup("atualizar", "tblpermissoesUsuarios", filtro), "false")
NomeForm.AllowDeletions = Nz(DLookup("excluir", "tblpermissoesUsuarios", filtro), "false")
NomeForm.AllowAdditions = Nz(DLookup("inserir", "tblpermissoesUsuarios", filtro), "false")
End Function


Cumprimentos.

Amigão.. exclua esta linha.. ela está errada..

Public Login As Login




Cumprimentos.

HARYSOHN, mas se excluíe esta linha não me reconhe... ficaria assim:

Option Compare Database

Type login
id As Long
USUARIO As String
End Type


Cumprimentos.

Correto.. eu fiz uma pequena confusão..

Tente assim

LoginId.id


Cumprimentos.

Veja este pequeno exemplo

No módulo a declaração das variáveis

Ao abrir o formulário carrego os valores nas variáveis
No botão visualizo


Cumprimentos

HARYSOHN, deu certo. Está correctíssimo, muito obrigado pela ajuda.


Cumprimentos.

O Fórum agradece o Retorno.