[Resolvido]Form c/ PW indexado a Funcionarios

Procure por InputBox com senha no repositório.. isto servirá a teu proposito.. depois de aplicado o InputBox.. Passaremos a solução de abrir o form filtrado

Saudações

allright . . .but lá a coisa... eu a procura
tanks

Em um Módulo cole:

Código:


Option Compare Database
'////////////////////////////////////////////////////////////////////
'Password masked inputbox
'Allows you to hide characters entered in a VBA Inputbox.
'
'Code written by Daniel Klann
'http://www.danielklann.com/
'March 2003

'// Kindly permitted to be amended
'// Amended by Ivan F Moala
'// http://www.xcelfiles.com
'// April 2003
'// Works for Xl2000+ due the AddressOf Operator
'////////////////////////////////////////////////////////////////////

'******************** CALL FROM FORM *********************************
' Dim pwd As String
'
' pwd = InputBoxDK("Please Enter Password Below!", "Database Administration Security Form.")
'
' 'If no password was entered.
' If pwd = "" Then
' MsgBox "You didn't enter a password! You must enter password to 'enter the Administration Screen!" _
' , vbInformation, "Security Warning"
' End If
'**************************************



'API functions to be used
Private Declare Function CallNextHookEx _
Lib "user32" ( _
ByVal hHook As Long, _
ByVal ncode As Long, _
ByVal wParam As Long, _
lParam As Any) _
As Long

Private Declare Function GetModuleHandle _
Lib "kernel32" _
Alias "GetModuleHandleA" ( _
ByVal lpModuleName As String) _
As Long

Private Declare Function SetWindowsHookEx _
Lib "user32" _
Alias "SetWindowsHookExA" ( _
ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) _
As Long

Private Declare Function UnhookWindowsHookEx _
Lib "user32" ( _
ByVal hHook As Long) _
As Long

Private Declare Function SendDlgItemMessage _
Lib "user32" Alias "SendDlgItemMessageA" ( _
ByVal hDlg As Long, _
ByVal nIDDlgItem As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) _
As Long

Private Declare Function GetClassName _
Lib "user32" _
Alias "GetClassNameA" ( _
ByVal hWnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) _
As Long

Private Declare Function GetCurrentThreadId _
Lib "kernel32" () _
As Long

'Constants to be used in our API functions
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HC_ACTION = 0

Private hHook As Long

Public Function NewProc(ByVal lngCode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Dim RetVal
Dim strClassName As String, lngBuffer As Long

If lngCode < HC_ACTION Then
NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
Exit Function
End If

strClassName = String$(256, " ")
lngBuffer = 255

If lngCode = HCBT_ACTIVATE Then 'A window has been activated
RetVal = GetClassName(wParam, strClassName, lngBuffer)
If Left$(strClassName, RetVal) = "#32770" Then 'Class name of the Inputbox
'This changes the edit control so that it display the password character *.
'You can change the Asc("*") as you please.
SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0
End If
End If

'This line will ensure that any other hooks that may be in place are
'called correctly.
CallNextHookEx hHook, lngCode, wParam, lParam

End Function

'// Make it public = avail to ALL Modules
'// Lets simulate the VBA Input Function
Public Function InputBoxDK(Prompt As String, Optional Title As String, _
Optional Default As String, _
Optional Xpos As Long, _
Optional Ypos As Long, _
Optional Helpfile As String, _
Optional Context As Long) As String

Dim lngModHwnd As Long, lngThreadID As Long

'// Lets handle any Errors JIC! due to HookProc> App hang!
On Error GoTo ExitProperly
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
If Xpos Then
InputBoxDK = InPutBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
Else
InputBoxDK = InPutBox(Prompt, Title, Default, , , Helpfile, Context)
End If

ExitProperly:
UnhookWindowsHookEx hHook

End Function





No Módulo do Form:


Sub SeuBotao_Click()
var_senha = InputBoxDK("Informe a senha:", "Atenção!", "******")

If var_senha = Me.txtSenha.Value Then 'Aqui a senha esta em uma caixa texto no form que pode estar oculta, é a senha do funcionário (em um campo na tabela no registro do funcionário)
DoCmd.OpenForm "Form a ser Aberto"
DoCmd.Close acForm, "O Form a ser fechado"

Else
MsgBox "Senha incorreta"
Exit Sub

boas,
Não apanhei bem a informação... pode ser mais explicito ?
Obrigado

Quem procura sempre acha.

http://maximoaccess.forumeiros.com/t344-login-com-mascara-de-password-na-inputbox

Assim disse nosso Mestre... Saudações

ok
só não estou a entender uma coisa... eu queriq que os Dados Extra estivessem indexados ao Funcionario... bem imagine-se o seguinte :
No Form chamo o Funcionario 100 e pretendo indexar outros dados que só quem acesso a estes puder digitar a password e tem os dados que pertencem ao mesmo Funcionario 100...

Obrigado

O form que será aberto devera conter dados referentes a apenas o funcionário que esta a abrir?

boas,
sim isso mesmo... imagine abro o Funcionario 1 chamo os Dados Extra deste ( tipo de Contrato, Ordenado Etc ), mas se abrir o Funcionario 2 vou ao botao Dados Extra e da-me os Dados do Funcionario 2... era isto...
Obrigado
( Desculpem se não fui explicito no inicio do tópico )

Se Puder disponibilize parte do BD para que possamos ajudá-lo Amigão..

Saudaçoes

all_rigth

link :
http://dl.dropbox.com/u/37350411/GesDados.rar

obrigado

( voce tem na ficha de Funcionario um botão ( ainda sem link para o Form - vai ser o form que ainda não esta feito mas sera DadosExtraFuncionarios )

Uai Amigão... como quer fazer algo para um form que não existe ainda...

Faça o form depois post.. senão eu teria ainda que fazer o form.. ai foge ao objetivo..

Saudações

Ok...
Fica assim combinado. Logo já deixo tudo direitinho...
Obrigado, um abraço

harysohn ele ai... esta com o Form criado e licado a este... o resto veja se !!! Um abraço

http://dl.dropbox.com/u/37350411/GesDados%2026AGO2011.rar

boas,
harysohn já deu uma vista de olhos ? Na bd claro...
Obrigado

Amanha verei isso amigo...

Cumprimentos

Vamos la Amigão...
Qual o Form.. Qual o botão que quer clicar.. qual form será aberto.. e quais as informações filtradas que quer que aparecam?

Eis sua solução:

1 - Se escolhe o funcinario (Pesquisa) clicando no botão pesquisar no form Funcionarios
2 - Clica no Botao outros Dados>>>>> Código a ser executado no botão:

Private Sub Imagem9_Click()
Dim VarSenha As Double 'Recebe a senha da ImputBox
Dim Varusu As String 'Recebe a senha do usuario hravada na tabela DadosExtraFuncionario (Senha por usuário)

'Aqui carrego a senha do usuario de acordo com o usuario selecionado no formFuncionario
Varusu = DLookup("Senha", "DadosExtraFuncionario", "NumeroFuncionario=" & Me.NumeroFuncionario & "")
'Aqui carrego a variável com a senha inserida na ImputBox
var_senha = InputBoxDK("Informe a senha:", "Atenção!", "******")

'Caso a senha seja igual (ImputBox x funcionário Selecionado)
If var_senha = Varusu Then
'Abro o form DadosExtraFuncionario filtrado pelo Funcionario selecionado no FormFuncionario
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " DadosExtraFuncionarios"
stLinkCriteria = "[NumeroFuncionario]=" & Me![NumeroFuncionario]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else 'Caso a senha não confira
MsgBox "Senha incorreta"
Exit Sub
End If


End Sub


http://dl.dropbox.com/u/26441349/MarcosSouza_29_08_11.rar


Cunprimentos

GRANDE HARYSONH era simplesmente isto... Fantástico
Obrigado
( Quando for Grande quero ser como voce ) Eh Eh Eh ... um bem haja pra si !

Todos somos Grande aos olhos do Senhor..

Obrigado.. o Fórum agradece o retorno.

Bom trabalho