[Resolvido]erro ao fechar formulario e abrir outro

tenho um sistema que verifica se o campo digitado no ccampo existe em tabela, não existindo ele exibe uma mensagem e fecha o form e abre outro, mas não fazendo isso e apresenta o seguinte erro.

erro em tempo de execução '2585';
esta ação não pode ser executada durante o processamento de um evento de formulário ou relatório.

segue o codigo e onde está o erro.

Dim strSql As String, rstTemp As DAO.Recordset

If txtidfuncional <> "" Then
strSql = "Select * from TBLUsers where idfuncional = '" & txtidfuncional & "'"
Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
If Not rstTemp.EOF Then
rstTemp.Close
Exit Sub
Else
MsgBox "Esse é seu primeiro acesso, será necessário cadastro de Login e Senha.", , "Atenção!!!"
DoCmd.Close
DoCmd.OpenForm "frmcaduser2", acNormal
End If
End If
cmdalterar.Enabled = False
cmdfechar.Enabled = False

Ivan

Deveria ter colocado o código por completo, ou seja mostrar também onde colocou esse código.
Acredito que é exatamente aí que "mora o perigo".    
Quero dizer; Você colocou esse código para fechar o formulário atual exatamente num evento
em que ele não pode ser fechado, daí o conflito.
Procure mudar o código para um outro evento do formulário, não posso ajudar melhor, por não
saber onde está esse código.

Abraços

Noob

usuário digita um codigo.

Private Sub txtidfuncional_Exit(Cancel As Integer)
Dim strSql As String, rstTemp As DAO.Recordset

If txtidfuncional <> "" Then
strSql = "Select * from TBLUsers where idfuncional = '" & txtidfuncional & "'"
Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
If Not rstTemp.EOF Then
rstTemp.Close
Exit Sub
Else
MsgBox "Esse é seu primeiro acesso, será necessário cadastro de Login e Senha.", , "Atenção!!!"
DoCmd.Close
DoCmd.OpenForm "frmcaduser2", acNormal
End If
End If
cmdalterar.Enabled = False
cmdfechar.Enabled = False
End Sub

testei em outros eventos, receber foco, perder foco, após atualizar.

não funciona.

OBS. os campos textos estão em controle guia.

Tente esse código
Acredito que idfuncional seja string, caso contrario, retire as aspas simples da sentença do IF.

Código:



Private Sub usuario_Exit(Cancel As Integer)
If DCount("*", "TBLUser", "[idfuncional= '" & Me.txtidfuncional & "'") = 0 Then ' Não existe !
   MsgBox "Esse é seu primeiro acesso." & vbCrLf & "Será necessário cadastro de Login e Senha.", vbInformation, "Atenção!!!"
   DoCmd.OpenForm "frmcaduser2", acNormal
   DoCmd.Close acForm, Me.Name
End If
cmdalterar.Enabled = False
cmdfechar.Enabled = False
End Sub



Veja que primeiro comanda-se para abrir o outro formulário
e depois fecha-se o atual.

Noob

Olá Ifahidalgo, boa tarde.

Acredito que basta você inverter as ações como abaixo:


   MsgBox "Esse é seu primeiro acesso, será necessário cadastro de Login e Senha.", , "Atenção!!!"
   DoCmd.OpenForm "frmcaduser2", acNormal, "", "", , acNormal
   DoCmd.Close acForm, "SeuOutroFormulário"


Abraços, WSenna

fiz conforme informou, e utilizando seu exemplo.
deu o seguinte erro

erro em tempo de execução '2585';
esta ação não pode ser executada durante o processamento de um evento de formulário ou relatório.
na linha

DoCmd.Close acForm, Me.Name

Ola Senna

Tudo bem, velho marinheiro   


Mas  é isso, ele abre o outro form primeiro
depois fecha o atual.

O problema dele é que o formulário está executando
um evento quando o código é executado, dai o erro.

Ivan:
Experimente colocar no evento antes de atualizar  da caixa de texto.
Acrescente então:
Cancel=true
antes da linha que chama o form.

Aguardo
Noob

funcionou no evento antes de atualizar.

que louco isso.

obrigado mais uma vez

Exato!

Porque em outros eventos é assim:
É difícil explicar, mas dentro do evento executar outro
da conflito, principalmente quando a execução desse evento é "demorada"

Valeu pelo retorno

Boa sorte!

Noob