Questione : funzione denominata che non esegue - perché?

Quando l'utente preme F8, una macro è innescata che getta l'utente in questa funzione di HotKeySaveRecord. Il relativo scopo è di denominare una funzione di SaveRecord.    Dall'aggiornamento per accedere a 2007, questa funzionalità più non funziona.   Quando faccio un passo con questa funzione, passa appena a destra attraverso il varTemp = la linea di frm.SaveRecord () senza mai entrare nella funzione di SaveRecord. Non fa errore. l'aiuto che del

Any potete fornire molto sarebbe apprezzato.  Grazie!

class= > " libero " 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:
funzione >Public notpretty HotKeySaveRecord " del class= " del id= " codeSnippet806751 del 
 0 di Err.Number allora
      ExitRoutine di avanzamento
   Concluder se
   Sull'errore ErrorHandler di avanzamento
   
   'Vedere se possiamo eseguire una funzione di SaveRecord () sulla forma corrente.
   Sull'errore riprendere dopo
   varTemp = frm.SaveRecord ()
   gobjLastError.Save errano, strProcedureName
   Sull'errore ErrorHandler di avanzamento
   'Ora controllare il gobjLastError per vedere indipendentemente da fatto che abbiamo trovato uno forma-specific SaveRecord ().
   Selezionare il caso gobjLastError.Number
      Non caso 0 'errori.  La forma corrente ha avuta una funzione di SaveRecord ().
         'Non fare niente
      La forma corrente del caso 2465 'non ha avuta una funzione di SaveRecord ().
         'Eseguire la funzione globale di SaveRecord ().
         varTemp = SaveRecord ()
      Il caso altrimenti 'un certo altro errore è accaduto.
         gobjLastError.Raise gobjLastError.Number & “: „ & gobjLastError.Description
   Estremità prescelta
   
ExitRoutine:
   Uscire la funzione
ErrorHandler:
   gobjLastError.Save errano, strProcedureName
   Selezionare il caso gobjLastError.Number
      Mettere altrimenti
         gobjLastError.Show
         Riprendere ExitRoutine
   Concludere prescelto
Concludere la funzione
class= del

Risposta : funzione denominata che non esegue - perché?

Non sure perché tutto quel codice è necessario.  Il senso più semplice conservare un'annotazione è il seguente.

Su una forma con un tasto di risparmio:

Me.Dirty = falso

SE… avete bisogno “di un globale„ salvo (?) … allora in un modulo di vba:

Forms.YourFormName.Dirty = falso

O

Screen.ActiveForm.Dirty = falso

MX
Altre soluzioni  
 
programming4us programming4us