This is a flat file Excel training manager database that is filtered with an advanced filter with multiple criteria. We also run a userform that creates reports with a PDF option. I have decided to make a few small changes to the database that you see in the overview video. Value 'sort the database Sortit 'run the filter Adv Filter 'refresh the rowsource in the listbox lst Lookup. Row Source = "Filter_Staff" 'error block On Error Go To 0 Exit Sub err Handler:: Msg Box "An Error has Occurred " & vb Cr Lf & "The error number is: " _ & Err. Description & vb Cr Lf & _ "Please notify the administrator" End Sub In contrast to the previous procedure we will now be editing existing training competencies. To make the application a little bit easier to develop for those who are new to VBA I have removed the option buttons. So no new data is added rather existing data is edited and then overwritten in our dataset. Notice the date formatting for Private Sub cmd Edit_Click() 'declare the variables Dim findvalue As Range Dim c Num As Integer 'error handling On Error Go To err Handler: 'check for values If Reg1. Value = "" Then Msg Box "There is not data to edit" Exit Sub End If 'check to see if the date is entered If Not Is Date(Me. This is a training manager database application that will enable you to manage the training of your staff within your organisation.
I would strongly recommend that you use the templates file for this project.
More advanced participants can add them with the variations that they need. Reg7) Then Msg Box "Completed date must be a date format" Exit Sub End If 'clear the listbox lst Lookup. Offset(0, -9) 'update the values findvalue = Reg1.
This will enable a greater participation rate in this project. Row Source = "" 'find the row to edit Set findvalue = Sheet2.
These named ranges will be used to populate the userform controls.
No doubt you have ideas for how this could be adapted to suit your personal needs. It is best to complete the project as I have set up before customising it to suit your own needs or the needs of your company. Because you will have a better idea of how it works and will be in a better position to change and keep its full functionality.