Who Gives a .... Anyway

I have started slowly converting my Access database to SQL. The reason is that I would like to take the application online. After trying to use Access's (version 2007) transfer tool, which did not work that well. I found Microsoft's SQL Migration Assistant 2008 for Access, nicknamed SSMA. Which you can download here . When you install there is a niggle about the license, which you need to download into their specified directory and it must be the name they provide. So about the create table. My one table would not convert and I could not see why. After looking at the SQL command I saw the problem was the use of DateSerial. I googled a few sites and could not find an answer The CREATE TABLE line was: [RequireUntilDate] datetime2(0) DEFAULT DateSerial(1980,1,1) NOT NULL, I clicked on the whole command and copied it and then in SQL Server Management Studio, I tried to create the table and found that if I specified the date in US date format it worked: [RequireUnti...

I could not believe how hard it was to find a simple example on how to append a record on condition (in this cast the date has change) for Access, so after I got the code working I thought why not post it. VBA is not my favourite language by any stretch of the imagination, so excuse any inappropriateness: Code Sample: ' Append a record to the a Table if it is a new day for tracking purpose Dim db As Database Dim rsTracker As Recordset Dim bDoAppend As Boolean Dim iLastCount As Long Set db = CurrentDb Set rsTracker = db.OpenRecordset("TotalCountTrackerTbl", dbOpenDynaset) ' check if the database has a record, and if the date is valid bDoAppend = IsNull(rsTracker("TrackDate")) If rsTracker.RecordCount <> 0 Then   rsTracker.MoveLast Else   ' no records so do append   bDoAppend = True End If ' still must not append then check if it is a new date since last record stored If Not bDoAppend Then   bDoAppend ...