Question : fonction appelée ne s'exécutant pas - pourquoi ?

Quand l'utilisateur presse F8, on déclenche un macro qui jette l'utilisateur dans cette fonction de HotKeySaveRecord. Son but est d'appeler une fonction de SaveRecord.    Depuis l'évolution pour accéder à 2007, cette fonctionnalité ne fonctionne plus.   Quand je fais un pas par cette fonction, elle passe juste bien par le varTemp = la ligne de frm.SaveRecord () sans écrire jamais la fonction de SaveRecord. Elle ne fait pas erreur. l'aide du

Any que vous pouvez fournir serait beaucoup appréciée.  Merci !

class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 :
fonction >Public " de l'id= " codeSnippet806751 de 
 0 d'Err.Number puis
      ExitRoutine GoTo
   Finir si
   Sur l'erreur ErrorHandler GoTo
   
   'Voir si nous pouvons exécuter une fonction de SaveRecord () sur la forme courante.
   Sur l'erreur reprendre après
   varTemp = frm.SaveRecord ()
   gobjLastError.Save errent, strProcedureName
   Sur l'erreur ErrorHandler GoTo
   'Inspecter maintenant le gobjLastError pour voir si nous avons trouvé un SaveRecord forme-spécifique ().
   Choisir le cas gobjLastError.Number
      Pas affaire 0 'aucunes erreurs.  La forme courante a eu une fonction de SaveRecord ().
         'Ne faire rien
      La forme courante de l'affaire 2465 'n'a pas eu une fonction de SaveRecord ().
         'Exécuter la fonction globale de SaveRecord ().
         varTemp = SaveRecord ()
      Le cas 'une autre erreur s'est produit autrement.
         gobjLastError.Raise gobjLastError.Number et « :  » et gobjLastError.Description
   Extrémité choisie
   
ExitRoutine :
   Sortir la fonction
ErrorHandler :
   gobjLastError.Save errent, strProcedureName
   Choisir le cas gobjLastError.Number
      Enfermer autrement
         gobjLastError.Show
         Reprendre ExitRoutine
   Finir choisi
Finir la fonction
class= de

Réponse : fonction appelée ne s'exécutant pas - pourquoi ?

Pas sure pourquoi tout ce code est nécessaire.  La manière la plus simple de sauver un disque est la suivante.

Sur une forme avec un bouton de sauvegarde :

Me.Dirty = faux

SI… vous avez besoin d'un « global » sauf (?) … puis dans un module de vba :

Forms.YourFormName.Dirty = faux

Ou

Screen.ActiveForm.Dirty = faux

MX
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us