by Jonathan Halder | Feb 20, 2024 | MS Access, MS Access Features, MS Access Forms
Yesterday we discussed replacing the Access Splash Screen with your own custom bitmap. Today We will discuss how to launch the app without seeing the Access database window and just using your main form. The technique involves a few different Access settings and a...
by Jonathan Halder | Feb 2, 2024 | MS Access, MS Access Forms, MS Access VBA Coding, TDD
I am working on passing the test: WhenTwoTextFieldsChangeBeforeAndAfterValuesAreReturned. Right now it is getting a compile error in the FieldChanged function because in the loop over the controls I am trying to pass the variant Fld variable, which the function...
by Jonathan Halder | Jan 31, 2024 | MS Access, MS Access Forms, MS Access Tables, MS Access VBA Coding, TDD
Our next failing test will be based around getting multiple fields changed and returned within the BeforeUpdate event. ‘@TestMethod(“Verify Changes”) Private Sub WhenTwoTextFieldsChangeBeforeAndAfterValuesAreReturned() Dim testFormAuditor As...
by Jonathan Halder | Jan 16, 2024 | MS Access, MS Access Forms, MS Access Tables, MS Access VBA Coding, TDD
Now our auditor will need to be a little smarter. We need to check the beginning and ending value of the test text field during the test in the form Before Update event. We won’t yet consider canceled BeforeUpdate events, I’ll just keep that in the back of...
by Jonathan Halder | Jan 15, 2024 | MS Access Forms, MS Access VBA Coding, TDD
I’m just finished with the green phase meaning all my tests pass. That means I can refactor. I do have some redundant code in my tests, so i think I will refactor them to make them a little more readable. Here are my tests now: ‘@TestMethod(“Count...
by Jonathan Halder | Jan 8, 2024 | MS Access, MS Access Forms, MS Access VBA Coding, TDD
The latest test is failing due to a compiler error: ‘@TestMethod(“FormAuditor”) Private Sub GivenFormAuditorWhenNoFormIsChangedThenAuditorReturnsEmptyListOfChanges() Dim testFormAuditor As New FormAuditor Dim testDictionary As New...