[Resolvido]Palavra passe + algo

boas,
tenho este código passado pelo Mestre JPaulo ( apanhado aqui no Forum )

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim strResposta As String
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "Dinheiro", vbBinaryCompare) = 0 Then
DoCmd.Close
DoCmd.OpenForm "ContaBancaria"
Else
MsgBox "Senha incorreta...", vbCritical
DoCmd.CancelEvent
End If
End Sub

o que pretendia era que ao abrir este Form mantive-se vinculado ao Form anterior... Exemplo :
Chamos o Banco X que tem um botão que chama este Form: Conta Bancaria... eu queria que ele mantivesse todos os registos efectuados afectos a Banco X

Obrigado

Não entendi;

Detalhe melhor para percebermos.

boas, JP
irei tentar descrever o Codigo que estou a fazer... acho que você entendera melhor
-
Private Sub Comando6_Click()

'By JPaulo ® Maximo Access
Dim strResposta As String
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "Dinheiro", vbBinaryCompare) = 0 Then
DoCmd.Close
DoCmd.OpenForm "tbl_outrosdados"
Else
MsgBox "Senha incorreta...", vbCritical
DoCmd.CancelEvent
End If

On Error GoTo Err_Comando6_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "tbl_banco"

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

Exit_Comando6_Click:
Exit Sub

Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click

End Sub
-
este pede senha abre o Form só não fideliza ao Numero de Cliente, sem a primeira parte do Código, ou seja pedido de senha este fideliza...

Continuo sem entender,

Vamos lá...

1º Você manda fechar o form da senha DoCmd.Close

2º Você manda abrir o form "tbl_outrosdados"

3º Você Manda abrir o form "tbl_banco"

Este 3º formulario tem de abrir filtrado pelo formulario "tbl_outrosdados" ????

No limite para que a senha funcione tem de ser assim;



Private Sub Comando6_Click()
'By JPaulo ® Maximo Access
On Error GoTo Err_Comando6_Click

Dim stDocName As String
Dim strResposta As String

strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "Dinheiro", vbBinaryCompare) = 0 Then
DoCmd.Close
DoCmd.OpenForm "tbl_outrosdados"

DoCmd.OpenForm "tbl_banco"
Forms!tbl_banco.Filter = "[NumeroCliente] = & Forms!tbl_outrosdados!NumeroCliente"
Forms!tbl_banco.FilterOn = True

Else
MsgBox "Senha incorreta...", vbCritical
DoCmd.CancelEvent
End If

Exit_Comando6_Click:
Exit Sub

Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click
End Sub

bem... JP ! realmente experimentei o que me disse... mas... o que eu quero é :
Form tbl_Ficha Cliente abra Form tbl_banco e peça a senha e vincule o Cliente 1 aos dados da tabela do Form tbl_bancos...
repare mestre JP

On Error GoTo Err_Comando6_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "tbl_banco"

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

Exit_Comando6_Click:
Exit Sub

Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click

End Sub

este Código faz isso acrescentei foi a parte de pedir senha... Consegui-me fazer entender ?

Se esse codigo já faz o que pretende, qual o problema ?

boas, JP... este Código faz o que pretendo mas só não pede password ?
o que pretendia era acrescentar o pedido de password... Entende ? por isso ter acrescentado a parte do Código ( seu ) para pedir antes de fazer o que o Código faz.
Obrigado

Viu com atenção a mensagem Nº5 ?

É só substituir.

boas... JP - Mestre dos Mestres . . . n/ reparei nessa msg ... Desculpe !
Obrigado!