[Resolvido]Carregamento do ícone nos formulários

Prezados, espero que esteja tudo bem!

Sou novo por aqui, não tenho certeza se é este o local correto para o tópico!
Notei recentemente que, alguns dos formulários em "popup", não mostram o ícone na barra de títulos qual, especifiquei nas configurações do access, ficando "vazio".
O aplicativo ao carregar tem uma tela de login que abre automaticamente em popup, restrito, com estilo de bordas (nenhum).

Notei o seguinte padrão:
- Quando ativo o botão "Fechar" da caixa de controle do forms login, após acessar o aplicativo, todos os forms que possuem o botão "Fechar" da caixa de controle ativo, mostram o ícone, e os demais quem tem o botão "Fechar" desativado, não mostram o ícone, apenas o "Título".
- Agora, quando desativo o botão "Fechar" da caixa de controle do forms login, após acessar o aplicativo, todos os forms que possuem o botão "Fechar" da caixa de controle desativado, mostram o ícone, e os demais quem tem o botão "Fechar" ativo, não mostram o ícone, apenas o "Título".
- E, quando desativo o carregamento automático do forms "login", e o sistema entra direto, todos os forms mostram normalmente o ícone especificado para os formulários! E, mesmo abrindo o formulário "login" com o aplicativo já aberto, tudo continua a funcionar normalmente, ou seja, só ocorre essa situação se colocar o formulário login para iniciar automaticamente, seja pelas configurações do banco de dados, seja pela macro.

Alguém já notou ou passou por isso e tem uma dica para resolver esse pequeno detalhe, rs.

Grato!

Bom dia e seja benvindo!

Sobre seus questionamentos:
A caixa de controle contempla os botões maximizar, minimizar, fechar e o ícone do formulário.
Se você ativar o botão fechar ou qualquer outro dos que mencionei e lá nas propriedades do banco de dados atual, você marcou para usar o icone nos formulários, então o ícone irá aparecer.

Essa é uma das características do Access.

Caro Marcelo David, boa noite!

Perfeito seu entendimento! É isto mesmo, no meu caso, os formulários para cadastro estão em modo Diálogo, logo, em todos, os botões maximizar e minimizar estão desativados e, uns com o botão fechar ativo e outros desativados!
Deste modo, apenas o formulário de "login" estar com estilo da borda "Nenhum", (não mostra os botões maximizar, minimizar, fechar e o ícone), há, este se inicia automaticamente via macro "AutoExec".

Até ai tudo tranquilo, agora quando coloco as credenciais, e o acesso é liberado, noto que, todos os demais formulários existentes, que possuem em sua configuração, por exemplo, o botão fechar ativo, só mostra o ícone na barra de título se, no formulário login, este também esteja ativo, ao iniciar o acesso.

Então, se no formulário login, mesmo sem bordas, a opção do botão de fechar estiver desativada, os demais formulários que estão com o botão fechar ativo não mostram o ícone e vise versar.
Mas, os que estão com o botão fechar desativado, a mesma configuração do formulário login, mostra o ícone. É intrigante, rs!

Outro ponto, quando abro o aplicativo sem carregar o formulário login, o ícone aparece normalmente em todos os formulários
E, se fecho o formulário de login sem executar o código de acesso, tudo normal, mostra o ícone!

Então, testei uma outra hipótese, coloquei para carregar, ao abrir o aplicativo, o formulário de login e um outro formulário, sendo, login com botão fechar desativado e, o outro formulário com o botão fechar ativo, o formulário secundário fecha imediatamente logo após carregamento, e o interessante, o ícone mostra normalmente em todos os formulários, quando deixo ambos os formulário carregando juntos (um com o botão fechar ativo e no outro desativado, não importando o estilo da borda para este dois iniciais).!

Rapaz, acredito que o formulário de login está apresentando algum erro... Decide criar um novo do 0 só para verificar! Continuo nos teste no momento!

Se alguém tiver uma dica, de já agradeço!

Bom dia,
qual código existe no formulário de login?

Bom dia!

Segue todo o código constante no form!

Option Compare Database
Option Explicit


Este é o código que libera o acesso:
===========================================================================================
Private Sub btac_Click()

If IsNull(cbus) Or IsNull(cbsn) Then 'Verificar as credenciais de acesso!
   fncMsgBoxPers "Informe o usuário e a senha para continuar!", , True, True
   Me.cbsn.SetFocus
   
ElseIf DCount("*", "tblUsuarios", "usuario='" & cbus & "' And Senha='" & cbsn & "' And Ativos = True") > 0 Then 'Verificando as credencias antigas!
   Dim Resposta As String
   Resposta = MsgBox("Olá " & cbus & "! Após as ultimas atualizações é obrigatório cadastrar ou atualizar os seguintes dados: - Endereço " _
   & "de e-mail; e, senha! Quer fazer esse procedimento agora?", vbQuestion + vbYesNo, "Atenção")
   
           If Resposta = vbYes Then
               Dim strRecUser As String
               strRecUser = " SELECT IdUsuario, Nome " _
               & " FROM tblUsuarios " _
               & " WHERE usuario = '" & cbus & "'; "
               Me.cblist.RowSource = strRecUser
               Me.cblist.Requery
               Me.cblist.value = Me.cblist.Column(0, 0)
               DoCmd.OpenForm "frmRecuperacaoUsuarios", acNormal, , "[IdUsuario] = [Forms]![frmNovoLogin]![cblist]", acFormEdit
           
           Else
               MsgBox "Certo, não será possível utilizar o sistema até atualizar as informações!", vbCritical, "Atenção"
       
           End If

Else
       Dim strSenhaInf As String   'Declarando as variáveis que irão armazenar os dados
       Dim strSenhaMod As String

       strSenhaInf = cbsn          'Repasso para a Variável a senha que foi digitada manualmente
       strSenhaMod = fncCrip(strSenhaInf, 102030)

           If DCount("*", "tblUsuarios", "usuario='" & cbus & "' And Senha='" & strSenhaMod & "' And Ativos = True") = 1 Then
               Call fncUsuarioAtual
               DoCmd.Close acForm, "frmNovoLogin"
               
               fncMsgBoxPers "Bem vindo, " & StrConv(DLookup("Nome", "tblUsuarioAtual"), 3) & "!", , False, True
               
           ElseIf DCount("*", "tblUsuarios", "usuario='" & cbus & "' And SenhaRec='" & strSenhaMod & "' And Ativos = True") = 1 Then
               strRecUser = " SELECT IdUsuario, Nome " _
               & " FROM tblUsuarios " _
               & " WHERE usuario = '" & cbus & "'; "
               
               Me.cblist.RowSource = strRecUser
               Me.cblist.Requery
               Me.cblist.value = Me.cblist.Column(0, 0)
               
               DoCmd.OpenForm "frmRecuperacaoUsuariosEmail", acNormal, , "[IdUsuario] = [Forms]![frmNovoLogin]![cblist]", acFormEdit
               
           Else
               fncMsgBoxPers "Acesso negado, verifique os dados ou recupere seu acesso!", , True, True
               Form_frmNovoLogin.SetFocus
               Me.cbsn.SetFocus
               
           End If

End If


End Sub

===========================================================================================



Demais códigos:

Private Sub btex_Click()
       DoCmd.Quit
End Sub

Private Sub btrc_Click()
       '-------------------------------------------------------------------------------
       'Para recuperar as credenciais de acesso!
       '-------------------------------------------------------------------------------

       If IsNull(cbus) Then
           fncMsgBoxPers "Informe seu nome de usuário!", , True, True
           Me.cbus.SetFocus
           Exit Sub
       End If
       
       If DCount("*", "tblUsuarios", "usuario='" & cbus & "' And Ativos = True") = 0 Then
           fncMsgBoxPers "O usuário " & cbus & ", não possui cadastro ou está inativo! Informe ao administrador do sistema!", , True, True
           Me.cbus.SetFocus
           Exit Sub
       Else
           Dim R As String
           R = MsgBox("Uma nova senha será enviada para o endereço de e-mail cadastrado, deseja continuar?", vbQuestion + vbYesNo, "Recuperação de acesso")
           
           If R = vbYes Then
           Call fncEnviarEmail
       Else
           fncMsgBoxPers "Solicitação cancelada!", , True, True
           Exit Sub
       End If
       End If

       '-------------------------------------------------------------------------------
End Sub


Private Sub opcUser_AfterUpdate()
       '------------------------------------------------------------------------------
       'Registra o usuário para o próximo acesso!
       '------------------------------------------------------------------------------
       Call fncUserAlt
       DoCmd.RunCommand acCmdSaveRecord
       Me.Requery
End Sub

--

Bom dia,
após a mensagem de boas-vindas de acesso ao sistema ( fncMsgBoxPers "Bem vindo, " & StrConv(DLookup("Nome", "tblUsuarioAtual"), 3) & "!", , False, True), ponha isso:
Application.RefreshTitleBar

teste para vermos.

Se não surtir efeito, poste aqui um fragmento do seu sistema para simularmos a mesma situação.

Bom dia!

Coloquei, no entanto não resolveu!

Quando o botão fechar tá ativo no forms login:





Quando o botão fechar tá desativado no forms login:




Deste jeito, rs.

Boa noite!

O erro foi resolvido após recriar o formulário "login"!

Maravilha! Gratos pelo retorno!