Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Private Sub cmdAddNew_Click() txtName = Null txtPosition = Null txtLocation = Null txtID = 0 chkNew = True '--- enable the text boxes and the Save button txtID.Enabled = True txtName.Enabled = True txtPosition.Enabled = True txtLocation.Enabled = True txtName.SetFocus '--- disable the list box, the Add New button, the Close button, and the Edit button '--- must be done after the setfocus as we cannot disable something that has focus lstEmployee.Enabled = False cmdAddNew.Enabled = False cmdEdit.Enabled = False cmdExit.Enabled = True cmdClear.Enabled = True cmdSave.Enabled = True cmddelete.Enabled = False End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.