469,330 Members | 1,308 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,330 developers. It's quick & easy.

Is there an application builder that can be used to build apps on top of Access?

Hi,

Does anyone know about a application builder which can be based on ms access?
I need software to build an application with forms, tables etc as in access. The reason is that I wat the application to look professional. Not like in access with the screen in the background. E.g. If i click on the application it must open with a form to log in. And all the other forms must be like on any other program. Not with the access screen on the background. could anybody suggest something?

Thanks
Nov 24 '10 #1
4 1776
You can compile the access app so it runs independant of access or you can switch off all the background stuff from within access code. No need to reinvent the wheel.
Jan 13 '11 #2
Hi, thanks for replying after so long time. What info do u need from me to help me build that code. That would just be amazing.
Ryno
Jan 13 '11 #3
OOps, just taken another look at compliling database to mde and using access runtime module, still allows user to access tables so sorry no good.
Will dig out an old prog of mine with code to disable menus etc and post soon as.
Jan 14 '11 #4
Ok have stripped my old app except for relevant code.
First off let me point out a few things.
When the app starts it may ask you if you want to block unsafe expressions, the only way I know to get around this is to go to te tools menu in access and select macros, security. You need to set the option to low which, I guess is ok if you are operating in a closed environment. Or add yourself as a trusted source but I don't know how to do that.
When the app opens menus and the design window are hidden, the code is in the open event of the switchboard form.
Expand|Select|Wrap|Line Numbers
  1. Private Sub Form_Open(Cancel As Integer)
  2. ' Minimize the database window and initialize the form.
  3. ' hide toolbars
  4. On Error Resume Next
  5.  
  6.  
  7. DoCmd.RunCommand acCmdWindowHide
  8. DoCmd.ShowToolbar ("menu Bar"), acToolbarNo
  9. DoCmd.ShowToolbar ("Database"), acToolbarNo
  10. DoCmd.ShowToolbar ("Relationship"), acToolbarNo
  11. DoCmd.ShowToolbar ("Table Design"), acToolbarNo
  12. DoCmd.ShowToolbar ("Table Datasheet"), acToolbarNo
  13. DoCmd.ShowToolbar ("Query Design"), acToolbarNo
  14. DoCmd.ShowToolbar ("Query Datasheet"), acToolbarNo
  15. DoCmd.ShowToolbar ("Form Design"), acToolbarNo
  16. DoCmd.ShowToolbar ("Form View"), acToolbarNo
  17. DoCmd.ShowToolbar ("Filter/Sort"), acToolbarNo
  18. DoCmd.ShowToolbar ("Report Design"), acToolbarNo
  19. DoCmd.ShowToolbar ("Toolbox"), acToolbarNo
  20. DoCmd.ShowToolbar ("Formatting(Form/Report)"), acToolbarNo
  21. DoCmd.ShowToolbar ("Formatting(Datasheet)"), acToolbarNo
  22. DoCmd.ShowToolbar ("Macro Design"), acToolbarNo
  23. DoCmd.ShowToolbar ("Utility1"), acToolbarNo
  24. DoCmd.ShowToolbar ("Print Preview"), acToolbarNo
  25. DoCmd.ShowToolbar ("Utility2"), acToolbarNo
  26. DoCmd.ShowToolbar ("Web"), acToolbarNo
  27. DoCmd.ShowToolbar ("Source Code Control"), acToolbarNo
  28. DoCmd.ShowToolbar ("Visual Basic"), acToolbarNo
  29.  
  30.  
  31.     ' Move to the switchboard page that is marked as the default.
  32.     Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
  33.     Me.FilterOn = True
  34.  
  35. End Sub
  36.  
Strangely the line
Expand|Select|Wrap|Line Numbers
  1. DoCmd.RunCommand acCmdWindowHide
only seems to work when the app is initially opened.

You MUST have a backdoor entry built into your app, personally I comment out the above code until I am sure the app is ready and working.
The backdoor in the attached app is a label on the switchboard with a click event set, this then asks for a password before proceeding (or not) to let you select wether to show or hide the menu bars etc. Instructions are shown in the app attached.
The code to toggle show or hide is as follows.
in the label click event
Expand|Select|Wrap|Line Numbers
  1. Private Sub Label25_Click()
  2. Dim msg As String
  3. On Error GoTo wrongpass
  4.  
  5. msg = InputBox("Enter the security code.")
  6. If msg <> "secadmin" Then
  7. GoTo wrongpass
  8. End If
  9. msg = InputBox("Option Hide / Enable ?")
  10. If msg = "enable" Then
  11. 'reinstate toolbars
  12. On Error Resume Next
  13.  
  14. DoCmd.ShowToolbar ("menu Bar"), acToolbarWhereApprop
  15. DoCmd.ShowToolbar ("Database"), acToolbarWhereApprop
  16. DoCmd.ShowToolbar ("Relationship"), acToolbarWhereApprop
  17. DoCmd.ShowToolbar ("Table Design"), acToolbarWhereApprop
  18. DoCmd.ShowToolbar ("Table Datasheet"), acToolbarWhereApprop
  19. DoCmd.ShowToolbar ("Query Design"), acToolbarWhereApprop
  20. DoCmd.ShowToolbar ("Query Datasheet"), acToolbarWhereApprop
  21. DoCmd.ShowToolbar ("Form Design"), acToolbarWhereApprop
  22. DoCmd.ShowToolbar ("Form View"), acToolbarWhereApprop
  23. DoCmd.ShowToolbar ("Filter/Sort"), acToolbarWhereApprop
  24. DoCmd.ShowToolbar ("Report Design"), acToolbarWhereApprop
  25. DoCmd.ShowToolbar ("Toolbox"), acToolbarWhereApprop
  26. DoCmd.ShowToolbar ("Formatting(Form/Report)"), acToolbarWhereApprop
  27. DoCmd.ShowToolbar ("Formatting(Datasheet)"), acToolbarWhereApprop
  28. DoCmd.ShowToolbar ("Macro Design"), acToolbarWhereApprop
  29. DoCmd.ShowToolbar ("Utility1"), acToolbarWhereApprop
  30. DoCmd.ShowToolbar ("Utility2"), acToolbarWhereApprop
  31. DoCmd.ShowToolbar ("Print Preview"), acToolbarWhereApprop
  32. DoCmd.ShowToolbar ("Web"), acToolbarWhereApprop
  33. DoCmd.ShowToolbar ("Source Code Control"), acToolbarWhereApprop
  34. DoCmd.ShowToolbar ("Visual Basic"), acToolbarWhereApprop
  35. Exit Sub
  36. End If
  37. If msg = "hide" Then
  38.  
  39. DoCmd.ShowToolbar ("menu Bar"), acToolbarNo
  40. DoCmd.ShowToolbar ("Database"), acToolbarNo
  41. DoCmd.ShowToolbar ("Relationship"), acToolbarNo
  42. DoCmd.ShowToolbar ("Table Design"), acToolbarNo
  43. DoCmd.ShowToolbar ("Table Datasheet"), acToolbarNo
  44. DoCmd.ShowToolbar ("Query Design"), acToolbarNo
  45. DoCmd.ShowToolbar ("Query Datasheet"), acToolbarNo
  46. DoCmd.ShowToolbar ("Form Design"), acToolbarNo
  47. DoCmd.ShowToolbar ("Form View"), acToolbarNo
  48. DoCmd.ShowToolbar ("Filter/Sort"), acToolbarNo
  49. DoCmd.ShowToolbar ("Report Design"), acToolbarNo
  50. DoCmd.ShowToolbar ("Toolbox"), acToolbarNo
  51. DoCmd.ShowToolbar ("Formatting(Form/Report)"), acToolbarNo
  52. DoCmd.ShowToolbar ("Formatting(Datasheet)"), acToolbarNo
  53. DoCmd.ShowToolbar ("Macro Design"), acToolbarNo
  54. DoCmd.ShowToolbar ("Utility1"), acToolbarNo
  55. DoCmd.ShowToolbar ("Print Preview"), acToolbarNo
  56. DoCmd.ShowToolbar ("Utility2"), acToolbarNo
  57. DoCmd.ShowToolbar ("Web"), acToolbarNo
  58. DoCmd.ShowToolbar ("Source Code Control"), acToolbarNo
  59. DoCmd.ShowToolbar ("Visual Basic"), acToolbarNo
  60. Exit Sub
  61. End If
  62. Exit Sub
  63.  
  64. wrongpass:
  65. 'error because no password entered
  66.  
  67. Exit Sub
  68. End Sub
  69.  
After entering "enable" to show menu bars, to show the design pane you must goto access menu "window, unhide" and select database window. After you have finished updating, maintaining your app you should again goto access menu "window" and select to hide the design pane then select your backdoor entry point and hide menu strips etc BEFORE handing the app back to the user / operator.
Attached Files
File Type: zip disable enable menus etc.zip (727.8 KB, 81 views)
Jan 14 '11 #5

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

reply views Thread by james | last post: by
4 posts views Thread by Daz Talbot | last post: by
reply views Thread by AlexanderTodorovic | last post: by
2 posts views Thread by John J. Hughes II | last post: by
2 posts views Thread by jphelan | last post: by
3 posts views Thread by Oriane | last post: by
1 post views Thread by CARIGAR | last post: by
reply views Thread by zhoujie | last post: by
reply views Thread by suresh191 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.