[Resolvido]figura OLE não acoplada

Boa Tarde,
Tenho um formulario de Login, no qual uso o seguinte código abaixo para validar o usuario.
Gostaria de incluir neste código uma função para que ao validar a senha uma figura OLE não acoplada ficasse visivel.

Private Sub btok_Click()
Dim strSenha1 As String
Dim strsenha2 As String
Dim K As Integer
On Error Resume Next
'-------------------------------------------------
'Verifica preenchimento dos campos usuário e senha
'-------------------------------------------------
If IsNull(Me!cboUsuário) Then
MsgBox "Digite o nome do usuário...", vbInformation, "Aviso de segurança"
Me!cboUsuário.SetFocus
Exit Sub
Else
If IsNull(Me!Senha) Then
MsgBox "Digite a senha...", vbInformation, "Aviso de segurança"
Me!Senha.SetFocus
Exit Sub
End If
End If

'-------------------------------------------------
'Verifica Data de expiração do sistema
'-------------------------------------------------
Dim Minhadata As String 'isto declara a variavel Minhadata
Dim Dia As String, Mes As String, Ano As String 'isto cria a variavel Dia, mes e ano
Dia = "29" 'isto especifica até que dia o programa irá funcionar
Mes = "11" 'isto especifica ate que mes o programa funcionará
Ano = "2012" 'e isto especifica até que ano
Minhadata = Dia & "/" & Mes & "/" & Ano

'converte para data
Dim dt As Date
dt = Minhadata

If Date > dt Then
MsgBox "Este programa expirou, contate o administrador", vbExclamation, "Atenção"
MsgBox "anderson_cgms@hotmail.com _ Celular - (67) 9142-5020", vbInformation, "Administrador"
DoCmd.Quit
End If

'-----------------------------------------------------
'Compara senha digitada com senha armazenada na tabela
'Se for a correta, abre o aplicativo
'-----------------------------------------------------
With Me!cboUsuário

strSenha1 = "": strsenha2 = ""
If Len(.Column(2) & "") <> Len(Me!Senha & "") Then
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso de segurança"
Me!Senha.SetFocus
Exit Sub
End If
For K = 1 To Len(Me!Senha)
strSenha1 = strSenha1 & Asc(Mid$(Me!Senha, K, 1))
strsenha2 = strsenha2 & Asc(Mid$(.Column(2), K, 1))
Next K

If strSenha1 = strsenha2 Then

DoCmd.Close acForm, "Principio 2"
DoCmd.OpenForm "Carregando", acNormal, "", "", , acNormal
DoCmd.Restore

Else
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso de segurança"
Me!Senha.SetFocus
End If
End With
End Sub


Aguardo ancioso e desde já agradeço.

Boas...

Esta meio complicado essa...

Vejamos...

que tipo de figura ?

onde está essa figura ?

ela carrega depois da senha ?

ela esta em algum formulário ?

Boa tarde silvio,

Vamos lá.

1 Rª Figura OLE não acoplada (BMP).
2 Rª Esta figura esta em um formulario (Principio 2)
3 Rª Ela esta como invisivel e apos a senha quero que fique visivel
4 Rª formulario (Principio 2)

Silvio sei que és ocupado mais poderia ser:

If Me!Senha = Me!cboUsuário.Column(2) Then

Forms![Principio 2]!OLENãoAcoplado.visible = false.

Mas não esta dando certo. (não faz nada)

Att,

Boa tarde.

Antes uma dica preciosa para ti.

usa-se o ! para referenciar formulários e subformulários.

usa-se o . (ponto) para referenciar controles que estão em forms e subforms.


Bom vejamos.

if me.senha= me.cboususário.column(2) then
Forms![Principio 2]!OLENãoAcoplado.visible = false

teste

Bom dia Silvio,

Isso ai meu amigo, muito obrigado.

e guardarei a dica pode ter certeza.


Att,