Fråga : Befalla eller handlingen ”DeleteRecord” är inte tillgängliga nu.

I ta fram 2007, I've fick en fungera i en enhet som tar bort det för närvarande utvalda rekordet, när objektet för borttagningsrekordmenyn är utvalt.   I föregående versioner av ta fram, oss använde SendKeys ”{BORTTAGNINGS}”, True - som gör ingenting undantar nu gör rekordet att smutsa ner (redigera symbolen syns).  Så jag kopplade till DoCmd.RunCommand-acCmdDeleteRecorden.  Att orsakar felet ”befalla eller handlingen DeleteRecord, är inte tillgänglig nu”.

I har bekräftat att bilda låter raderingar som göras en ångra, om bilda är smutsar ner, sett till att bilda inte läs endast. Det är inte en subform, det är ett fristående fortlöpande bildar, och problemet uppstår också med den klibbade förmiddagen för singeln forms.

I - några idéer, som fången någon skulle, uppskattas mycket.  Thanks. > för

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:

" codeBody " " >Public för class= " för 0 därefter GoTo ExitRoutine Avsluta om På felet GoTo ErrorHandler 'Om bilda har ingen RecordSource, inget behov att fortsätta. Om Format$ (frm.RecordSource) = "" därefter GoTo ExitRoutine Avsluta om 'Om detta är ett nytt rekord, inget behov att fortsätta. Om frm.NewRecord därefter GoTo ExitRoutine Avsluta om 'Alla, om väl, gör så vad vi kom här att göra. gstrActiveFormForDeleteRecord = frm. Känt 'Överför F2 för att se till att användaren har inte utvalt alla rekord. SendKeys ”{F2}” som är riktig 'Välj strömrekordet (och se till att endast en är utvald!), På felmeritförteckning därefter RunCommand acCmdSelectRecord Om Err.Number-<> 0 därefter GoTo ExitRoutine Avsluta om På felet GoTo ErrorHandler 'Gör alternativet för menyn för stamgäst”borttagnings det rekord-”. 'På felmeritförteckning därefter Om frm. Smutsa ner = True därefter frm. Ångra Avsluta om DoCmd.RunCommand-acCmdDeleteRecord 'SendKeys ”{BORTTAGNINGS}” som är riktig gobjLastError.Save felar, strProcedureName På felet GoTo ErrorHandler Välj fallet gobjLastError.Number Case 0 'inget fel 'Gör ingenting Case annars 'Ge ett systemfel för något annat. gobjLastError.Raise gobjLastError.Number & ”: ” & gobjLastError.Description Avsluta valt ExitRoutine: På felmeritförteckning därefter gstrActiveFormForDeleteRecord = "", Gå ut fungerar ErrorHandler: gobjLastError.Save felar, strProcedureName Välj fallet gobjLastError.Number Case annars gobjLastError.Show Meritförteckning ExitRoutine Avsluta valt Avsluta fungerar " klar "

Svar : Befalla eller handlingen ”DeleteRecord” är inte tillgängliga nu.

Använd detta i stället

1: 2: 3: 4:

Dunkla rs som Recordset Fastställda rs = frm. Recordset rs. Borttagnings rs. Requery