Abrir formulário baseado em consulta apresentando registro específco

Boa noite amigos.
Estou com um problema que não estou conseguindo resolver. Tenho um formulário, baseado em consulta, que deve apresentar ao abrir, um determinado registro. Esse registro deveria ser apresentado baseado em permissão de acesso e em um determinado critério. A partir do formulário principal, ao clicar um botão de comando, esse aciona uma consulta, a partir de um critério, e da verificação de conformidade de acesso, que deve se dar em três condições: Usuário responsável, administradores e gerentes. Até aí, o programa está funcionando. O problema ocorre na abertura do formulário. Caso afirmativo, o forumlário deveria apresentar o registro filtrado através de consulta. Caso negativo, deveria emitir uma mensagem de não conformidade e voltar a abrir o formulário principal. Está ocorrendo, entretanto, que nos dois casos os formulários estão abrindo. Como este formulário possui um campo para foto, além disso, com relação a ela, no caso afirmativo, em que deveria aparecer a foto, esta não aparece, mas os outros campos são preenchidos normalmente. Para o caso negativo, onde o formulário não deveria abrir, está abrindo e a foto aparece normalmente.

Estou usando o código abaixo para o formulário:

Private Sub Form_Load()
Me.TimerInterval = 1000
Dim stDocName As String
Dim stLinkCriteria As String
If getUsuarioAtual() = Combinação253 Or getGrupoUsuarioAtual() = "ADMINISTRADORES" Or getGrupoUsuarioAtual() = "GERENTES" Then
stDocName = "frmQryFichasCompleta"
stLinkCriteria = "Codinome do Alvo=" & Me![Codinome do Alvo]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.OpenForm "frmQryFichasCompleta"
DoCmd.Close acForm, Me.Name
Else
MsgBox "Acesso permitido somente ao Auxiliar de Analista responsável, administradores e gerentes!", _
vbExclamation, "Acesso Negado"
DoCmd.OpenForm "FPrincipal"
End If
End Sub


Para a foto, utilizo o seguinte código:

Private Sub Form_Current()
If Me.Link <> 0 Then
Me.Foto.Visible = True
Me.Foto.Picture = Me.Link
Else
Me.Foto.Visible = False
End If
End Sub


Agradeço a ajuda.

Luciano

Ola;

Fica extremamente mais facil você anexar parte do seu banco para analise.

Desta forma, não conseguimos perceber, o que vem nas funções "get*****" nem na caixa de combinação.