Erro em abertura de formulário

Boa noite aos colegas. Estou com um problema a dias sem conseguir entender e corrigir.
Tenho um botão em um form que abre outro formulário usando um filtro. Este procedimento funciona normalmente, no entanto instalei o sistema em alguns micros e em alguns, quando acesso o botão surge a mensagem: "A ação OpenForm foi cancelada".

O grande mistério é que os micros estão todos com o Windows 7, Access 2007, sp3.

Em um funciona normalmente e em outro não. O que será? Abaixo mostro o código usado.



'------------------------------------------------------------------
Private Sub Btn_Depoimento_Click()
PlaySound1 fncOrigem(mSons) & "click.wav", 1, 1

If Me.CAD_ABERTO = "N" Then
MsgBox "O Inquérito precisa estar aberto." & _
vbCrLf & vbLf & "Selecione o botão REABRIR CADASTRO", vbExclamation, "Atenção!!!"

Exit Sub
End If

On Error GoTo Err_Btn_Depoimento_Click

If IsNull(Me.tx13) Or Me.tx13 = "" Then
MsgBox "Você deve selecionar um Envolvido.", vbExclamation, "Atenção!!!"
Else
DoCmd.OpenForm "Frm_Depoimento", , , "Tab_Depoimento!Cod_DetalhesInquerito = " & Me.tx13
End If

Exit_Btn_Depoimento_Click:
Exit Sub

Err_Btn_Depoimento_Click:
MsgBox Err.Description
Resume Exit_Btn_Depoimento_Click
End Sub
'---------------------------------------------------------

Aguardo a ajuda dos colegas. Obrigado.

Walter,

Antes de mais nada, verifique se o sistema operacional de todos os terminais são Windows 7 de 64 ou 32 bits.


Abraços,

Walter

DoCmd.OpenForm "Frm_Depoimento", , , "Tab_Depoimento!Cod_DetalhesInquerito = " & Me.tx13

Tente assim:

DoCmd.OpenForm "Frm_Depoimento", , , "[Cod_DetalhesInquerito] = " & Me.tx13

Se Cod_DetalhesInquerito for string é necessário colocar as aspas simples

DoCmd.OpenForm "Frm_Depoimento", , , "[Cod_DetalhesInquerito] = '" & Me.tx13 & "'"

Noob

Obrigado pela atenção, Uilson e Noobezinho.
Respondendo a Nobezinho, todos os pcs usam o windows 7 de 32 bits. Na verdade alguns usavam o de 64, e para tentar identificar o problema, formatei todos e instalei o de 32, e o problema persistiu.

Respondendo a Uilson, procedi as alterações sugeridas no entanto continuou o mesmo erro.

Obrigado mais uma vez e aguardo alguma dica.

Walter,

Tem como você disponibilizar a base para podermos analisar?

Amigo Julio. Obrigado pela atenção. Vou tentar diminuir o banco para enviar, pois atualmente o banco está com 80 tabelas e mais de 70 forms. E se alguém já tiver passado por isso aguardo alguma dica.

Walter

Envie-nos somente o formulário e a tabela em questão.

Mas, antes de enviar, teste para ver se o erro continua nessa cópia que fará.

Noob

Walter


Resolveu?


Noob

Ainda não companheiro. Vou isolar o formulário e testar nos pcs que estao dando problema. Assim que tiver um resultado volto a chamar. Obrigado.

Gostaria de pedir desculpa aos colegas que se prontificaram em ajudar, pela demora em responder. É que estive deveras atarefado nestes últimos dias.

Já tentei de tudo que conhecia porém o problema persiste.

Em um form tenho um botão que chama um segundo form tendo como critério o código identificador do primeiro form.

Outra coisa intrigante é que o problema só ocorre em alguns PC´s. Todos eles estão rodando o Windows 7 Ultimate 32 bits e Office 2007 com sp3.

Anexo segue exemplo do banco para análise dos colegas.

Obrigado pela atenção.

Walter

A parte do código que postou é que está com problemas, sinto dizer, mas você não colocou os formulários
que contém esse código.
Aqui a princípio, tudo funfando legal


Abraços

Noob

Noobezinho. Bota tarde. A parte do código que está dando erro está no botão imprimir, e ao invés de abrir o formulário, da aquela mensagem de erro que falei. Observe que isto acontece apenas em alguns computadores e em outros não.

Walter

Modifiquei a maneira com que é chamado o formulário Frm_MenuPeças.
Veja a Fonte de dados dele, eu também mudei o código do botão imprimir.
Verá também, mas isso não tem nada haver com o teu problema, que
mudei a mcrHide para macro Autoexec.
É essa macro que será executada quando se abre o aplicativo.
Ela irá executar a função para Minimizar o Access e abrir o Formulário Principal.

Sugiro que teste esse exemplo nas estações de trabalho.
Se funfar, ótimo!

Abraços

Noob

Obrigado. Vou testar e retorno.

Walter


Resolveu?

Caro Noobezinho. Estou com o tempo apertado. Mas vou testar nos pc que estão dando problema este fim de semana. Assim que testar lhe informo. Obrigado pela atenção.