[Resolvido]Referência Caixa de seleção

Boa tarde a todos espero que me ajudem tenho uma duvida aq vou explicar

tenho um formulario chamado produto dentro dele tem um botão para excluir registro nesse botão ao clicar ele aparece pedindo a senha do admin que tenho um formulario cadastro de funcionários que cadastra login e senha porem um usuario tem que ser o admin que so ele tem o direito de alterar ou excluir registro. ai que vem minha duvida adicionei um campo no cadastro de funcionários uma caixa de seleção com o nome admin para reparar o administrador do sistema. porem não consigo referencia a caixa de seleção no botão como sim ele e admin segue o código abaixo que estou usando

Private Sub Comando20_Click()
Dim y As String
Dim strForm As String
Dim strRet As String
y = InputBoxDK("Digite a Senha!!!.", "Autorização do Administrador")
If y = DLookup("Senha", "Funcionários") Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
'este valor entre parenteses é o nome do formulário protegido
Else
MsgBox "Senha incorreta", vbCritical, "Senha incorreta"
'aqui a mensagem de senha incorreta. Pode alterar
End If
End Sub

Funciona perfeitamento porem ele vai pega a senha de qualquer funcionário cadastrado, sei que podia criar um formulario separado para os usuarios mais se puderem me ajudar agradeço.

este codigo ai você está buscando a senha de todos os funcionarios.

Tente assim:

dim SenhaAdmin as string
SenhaAdmin = DLookup("Senha", "Funcionários", "UsuarioAdminDaTabelaFuncionarios = " & y)
y = InputBoxDK("Digite a Senha!!!.", "Autorização do Administrador")

If y = SenhaAdmin Then
Executa comando
else
msgbox ("Senha do admin incorreta")
end if

Boa tarde caro colega tentei usar seu código porem da erro esse meu código estive vendo e ele busca somente o primeiro registro no caso o numero 1

bom n e o que eu queria queria que ele buscasse so o admin referenciando o campo que tenho para defini o admin que e uma caixa de seleção com o nome admin e um campo sim/não se vc tiver outra opção agradeço.

Boa noite,
Pode adaptar o seu código
onde tem
If y = DLookup("Senha", "Funcionários") Then

coloque condição que verifique se é admin (terá campo Admin na tabela, do tipo Sim/Não)
If y = DLookup("Senha", "Funcionários","Admin=True") Then

O meu amigo muito obrigado funciono certim esse forum e massa
fico show de bola

Ainda bem que resolveu
Lembre-se que o título deve-se manter em toda a dúvida, não o deve alterar