WTF? !
As I’ve written before, the company I worked for previously was a bizarre outfit run by people who thought that software development was a dirty thing, and they really weren’t keen on upgrading past MS Access 97. In fact, the code base for their core application still uses DAO almost exclusively, rather than ADO (which make it impossible to upgrade to Access 2007 without a major re-write), and most of the business logic is based in the forms, as class modules are too hard to understand, according to the head developer. As an example I thought I would show you a snippet of code written by the head developer (AL), which is in my opinion one of the most absurd and ignorant pieces of coding I have ever seen. Here it is :
Public Function isnumber(a As String) As Boolean
Dim isn As Boolean
isn = False
If a = “0″ Or a = “1″ Or a = “2″ Or a = “3″ Or a = “4″ Or a = “5″ Or a = “6″ Or a = “7″ Or a = “8″ Or a = “9″ Then
isn = True
End If
isnumber = isn
End Function
Now, let me explain. This function was created to test that the first character of an address was numeric. So, why test for ’0′ ?!?! And why not use the VBA isnumeric() function ?
Perhaps now, you can see why I left. OMFG.