Fråga : kallat fungera utförande inte - why?

Fungera, när användarepressarna F8, en makro startas som kastar användaren in i denna HotKeySaveRecord. Dess ämna är till appellen som en SaveRecord fungerar.    Efter förbättring som tar fram 2007, denna funktionsduglighet fungerar ej längre.   Fungera, det går precis rätt till och med varTempen = frm.SaveRecorden () när jag kliver till och med denna, fodrar, utan någonsin att skriva in SaveRecorden, fungerar. Den gör inte felet. hjälp för

Any som du kan ge skulle, uppskattas mycket.  Tack!

> 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:

" codeBody " " >Public för class= " för 0 därefter GoTo ExitRoutine Avsluta om På felet GoTo ErrorHandler 'Se, om vi kan utföra en SaveRecord () fungerar på strömmen bildar. På felmeritförteckning därefter varTemp = frm.SaveRecord () gobjLastError.Save felar, strProcedureName På felet GoTo ErrorHandler 'Kontrollera nu gobjLastErroren för att se huruvida, eller vi inte grundar ennärmare detalj SaveRecord (). Välj fallet gobjLastError.Number Case 0 'inget fel. Strömmen bildar hade en SaveRecord () fungerar. 'Gör ingenting Strömmen för fall 2465 'bildar hade inte en SaveRecord () fungerar. 'Utför den globala SaveRecorden () fungerar. varTemp = SaveRecord () Fallet 'något annat fel händde annars. gobjLastError.Raise gobjLastError.Number & ”: ” & gobjLastError.Description Avsluta valt ExitRoutine: 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 : kallat fungera utförande inte - why?

Inte sure varför allt, som kodifierar är nödvändigt.  Det enklast långt till räddningen ett rekord är efter.

På en bilda med en räddning knäppas:

Me.Dirty = falskt

OM… du behöver ”en global” räddning (?) … därefter i en vbaenhet:

Forms.YourFormName.Dirty = falskt

Eller

Screen.ActiveForm.Dirty = falskt

mx