diff --git a/source/main.dfm b/source/main.dfm
index 1144e4c2..f4cb9328 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -2539,6 +2539,7 @@ object MainForm: TMainForm
       ImageIndex = 118
       ShortCut = 16449
       OnExecute = actSelectAllExecute
+      OnUpdate = ValidateControls
     end
     object actCreateRoutine: TAction
       Category = 'Database'