Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / Forms / March 2008

Tip: Looking for answers? Try searching our database.

Form Coding Assistance Please?

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Golfinray - 12 Mar 2008 19:14 GMT
I have this code on an onclick event of a command button to open a form:
Private Sub Command0_Click()
Dim stPassword As String
    stPassword = inputbox("Enter Your Password")
    If stPassword = "areaa" Then
    DoCmd.OpenForm "manager a tracking", , , acnornmal
    Else: MsgBox "You Entered the wrong password"
End If
End Sub

I would like to add to that a command(s) to close the little menu form that
contains the command buttons when the manager a tracking form opens then
reopen it at close.  I know it has to be something like me.visible = false
and me.visible = true. but I'm not quite sure where to put those. Also is
acnormal the correct command to allow the managers to edit their tracking
forms and save on exit?
ruralguy - 13 Mar 2008 02:32 GMT
Try this code instead:
Private Sub Command0_Click()
  Dim stPassword As String
  stPassword = InputBox("Enter Your Password")
  If stPassword = "areaa" Then
     Me.Visible = False
     DoCmd.OpenForm "manager a tracking", , , , , acDialog
     Me.Visible = True
  Else
     MsgBox "You Entered the wrong password"
  End If
End Sub

>I have this code on an onclick event of a command button to open a form:
>Private Sub Command0_Click()
[quoted text clipped - 12 lines]
>acnormal the correct command to allow the managers to edit their tracking
>forms and save on exit?

Signature

RuralGuy (RG for short) aka Allan Bunch MS Access MVP - acXP WinXP Pro
Please post back to this forum so all may benefit.

 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.