[Resolvido]Erro ao apertar tecla

Boa tarde amigos,

Estou um problema que esta intrigando-me, é o seguinte: uso a expressão abaixo em um formulário:

   Select Case KeyCode
   Case vbKeyF5
   KeyCode = 0
   'Dim Mensagem, estilo, Titulo, Resposta
   If Forms!TerminalVendas![TerminalVendasSub].Form![Contador] <> 0 Then
   Mensagem = "Todo o histórico deste pedido (produtos e parcelamentos) serão excluídos.  " & Chr(13) & "Deseja continuar ?"
   estilo = vbYesNo + vbExclamation + vbDefaultButton2
   Titulo = "GDS - Sistemas"
   
   resposta = MsgBox(Mensagem, estilo, Titulo)
   If resposta = vbNo Then Exit Sub
     
   DoCmd.RunCommand acCmdDeleteRecord
   DoCmd.Close acForm, "TerminalVendas"
   DoCmd.OpenForm "TerminalVendas", acNormal, "", "", , acNormal
   Forms!TerminalVendas.DataEntry = True
   End If
   If Forms!TerminalVendas![TerminalVendasSub].Form![Contador] <> 0 And Forms!TerminalVendas!DataDoPedido < Date Then
   Mensagem = "Este pedido faz parte do movimento financeiro anterior,(produtos e parcelamentos) serão excluídos.  " & Chr(13) & "Deseja continuar ?"
   estilo = vbYesNo + vbCritical + vbDefaultButton2
   Titulo = "ATENÇÃO"
   
   resposta = MsgBox(Mensagem, estilo, Titulo)
   If resposta = vbNo Then Exit Sub
     
   DoCmd.RunCommand acCmdDeleteRecord
   DoCmd.Close acForm, "TerminalVendas"
   DoCmd.OpenForm "TerminalVendas", acNormal, "", "", , acNormal
   Forms!TerminalVendas.DataEntry = True
   End If
   If Forms!TerminalVendas![TerminalVendasSub].Form![Contador] = 0 Then
   DoCmd.RunCommand acCmdDeleteRecord
   DoCmd.Close acForm, "TerminalVendas"
   DoCmd.OpenForm "TerminalVendas", acNormal, "", "", , acNormal
   Forms!TerminalVendas.DataEntry = True
   End If
End Select

Quando executo na minha máquina funciona perfeitamente.

Mas quando executo na máquina do cliente dá o seguinte erro: "A expressão Ao apertar tecla que você inseriu como definição de propriedade de evento gerou o seguinte erro: O comando ou ação excluir registro não está disponivel agora." O procedimento é executado, ou seja, o registro é excluido, mas aparece a mensagem.

As duas maquinas estão com Win7 e Access 2007 com SP03 atualizados.

O que pode ser isso?

Grato

Menezes

Amigo,

Faça o seguinte:

Decompila;
Mande compactar e reparar;
Compila novamente; e
Instale novamente na máquina do cliente.


Abraços,

Ok Uilson,

Vou fazer aqui e já dou retorno.

Grato

Qualquer dúvida estou a disposição.

Olá Uilson,

Com ele no formato MDB deu certíssimo. Mas quando converto para MDE dá o mesmo erro. Mas já é meio caminho andado.

Só um lembrete, este sistema foi desenvolvido em Access 2003 e esta rodando também em 2007.


Grato

Menezes

Amigo,

Ao compilar não dá erro de escrita no VBA?

Nenhum erro. Código todo tá limpo.

Bom dia Uilson,

Acho que identifiquei o problema. Uso modulo de código livre após atualizar/perder o foco no nome do cliente, meu formulário abre com código do pedido em branco e o numero só é fornecido após a saída do campo, quando executo a exclusão o código do pedido fica em branco e o procedimento continua a ser executado, como ele não encontra um registro para excluir dá o erro. Resolvi colocando um Exit Sub após cada instrução, ficando como abaixo.

Só não entendo porque o erro só dava em MDE.

Select Case KeyCode
  Case vbKeyF5
  KeyCode = 0
  'Dim Mensagem, estilo, Titulo, Resposta
  If Forms!TerminalVendas![TerminalVendasSub].Form![Contador] <> 0 Then
  Mensagem = "Todo o histórico deste pedido (produtos e parcelamentos) serão excluídos.  " & Chr(13) & "Deseja continuar ?"
  estilo = vbYesNo + vbExclamation + vbDefaultButton2
  Titulo = "GDS - Sistemas"
 
  resposta = MsgBox(Mensagem, estilo, Titulo)
  If resposta = vbNo Then Exit Sub
   
  DoCmd.RunCommand acCmdDeleteRecord
  DoCmd.Close acForm, "TerminalVendas"
  DoCmd.OpenForm "TerminalVendas", acNormal, "", "", , acNormal
  Forms!TerminalVendas.DataEntry = True
Exit Sub  
End If
  If Forms!TerminalVendas![TerminalVendasSub].Form![Contador] <> 0 And Forms!TerminalVendas!DataDoPedido < Date Then
  Mensagem = "Este pedido faz parte do movimento financeiro anterior,(produtos e parcelamentos) serão excluídos.  " & Chr(13) & "Deseja continuar ?"
  estilo = vbYesNo + vbCritical + vbDefaultButton2
  Titulo = "ATENÇÃO"
 
  resposta = MsgBox(Mensagem, estilo, Titulo)
  If resposta = vbNo Then Exit Sub
   
  DoCmd.RunCommand acCmdDeleteRecord
  DoCmd.Close acForm, "TerminalVendas"
  DoCmd.OpenForm "TerminalVendas", acNormal, "", "", , acNormal
  Forms!TerminalVendas.DataEntry = True
Exit sub  
End If
  If Forms!TerminalVendas![TerminalVendasSub].Form![Contador] = 0 Then
  DoCmd.RunCommand acCmdDeleteRecord
  DoCmd.Close acForm, "TerminalVendas"
  DoCmd.OpenForm "TerminalVendas", acNormal, "", "", , acNormal
  Forms!TerminalVendas.DataEntry = True
Exit sub  
End If
End Select

Agradeço imensamente sua ajuda, deu a luz inicial para identificar o problema.

Grato e um grande abraço

Menezes

ok abraços...