Cuestión : El comando o la acción “DeleteRecord” no está disponible ahora.

En el acceso 2007, tengo una función en un módulo que suprima el expediente actual seleccionado cuando se selecciona el artículo de menú del expediente de la cancelación.   En versiones previas del acceso, utilizamos SendKeys “{CANCELACIÓN}”, verdad - que ahora no hace nada a menos que hacer el sucio de registro (corregir el icono aparece).  Así pues, cambié al acCmdDeleteRecord de DoCmd.RunCommand.  Ese causa a error “el comando o la acción DeleteRecord no está disponible ahora”. el

I ha confirmado que la forma permite las canceladuras, hechas un deshacer si la forma es sucia, cerciorado de que la forma no está leída solamente. No es un subform, es una forma continua independiente, y el problema también ocurre con solo forms.

I pegado - cualquier idea que cualquier persona conseguida fuera apreciada mucho.  Thanks. class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
función >Public notpretty DeleteRecord " del class= " del id= " codeSnippet808021 del 
 0 de Err.Number entonces
      ExitRoutine indicado
   Terminar si
   En el error ErrorHandler indicado
   
   'Si la forma no tiene ningún RecordSource, ninguna necesidad de continuar.
   Si Format$ (frm.RecordSource) = "" entonces
      ExitRoutine indicado
   Terminar si
   
   'Si esto es un nuevo récord, ninguna necesidad de continuar.
   Si frm.NewRecord entonces
      ExitRoutine indicado
   Terminar si
   
   'Todos si bien, hacer tan lo que vinimos aquí hacer.
   gstrActiveFormForDeleteRecord = frm. Nombre
   
   'Enviar el F2 para asegurarse de que el usuario no ha seleccionado todos los expedientes.
   SendKeys “{F2}”, verdad
   
   'Seleccionar el registro en curso (y asegurarse que solamente uno esté seleccionado!)
   En error reasumir después
   acCmdSelectRecord de RunCommand
   Si <> 0 de Err.Number entonces
      ExitRoutine indicado
   Terminar si
   En el error ErrorHandler indicado
   
   'Hacer la opción de registro del menú de la “cancelación regular”.
   'En curriculum vitae del error después
   
   Si frm. Sucio = entonces verdad
    frm. Deshacer
   Terminar si
   
 
   acCmdDeleteRecord de DoCmd.RunCommand
   'SendKeys “{CANCELACIÓN}”, verdad

   gobjLastError.Save yerran, strProcedureName
   En el error ErrorHandler indicado
   Seleccionar el caso gobjLastError.Number
      No encajonar 0 'ningunos errores
         'No hacer nada
      Encajonar 
         'Dar un error de sistema para todo lo demás.
         gobjLastError.Raise gobjLastError.Number y “: ” y gobjLastError.Description
   Extremo selecto
   
ExitRoutine:
   En curriculum vitae del error después
   gstrActiveFormForDeleteRecord = ""
   Salir la función
ErrorHandler:
   gobjLastError.Save yerran, strProcedureName
   Seleccionar el caso gobjLastError.Number
      Encajonar 
         gobjLastError.Show
         Reasumir ExitRoutine
   Terminar selecto
Terminar la función
class= del

Respuesta : El comando o la acción “DeleteRecord” no está disponible ahora.

Utilizar esto en lugar de otro
1:
2:
3:
4:

   Amortiguar los rs como Recordset
   Fijar los rs = el frm. Recordset
   rs. Cancelación
   rs. Requery
Otras soluciones  
 
programming4us programming4us