Skip to main content


Showing posts from December, 2010

Appending a record in Access using VBA NO SQL

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
  ' 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 = DateDiff("d", rsTracker("Cou…

Movie Review: Spud 1

Last night we went to go see the adaption to move of the book by John van de Ruit.

In the days BC (before children) we saw movies regularly, but now a days catching more than one movie a year is a treat (at a movie house that is).

So first let me say what I liked:

The movie's main character and of course the Gov (Clease) where well cast, even if John Milton had to grow on me. The Dad, Wombat and the Mom where also well cast.The use of original footage of the news of the announcement that Madiba is to be released, was fantasticThe use of lots of South Africa music was great, would have like them to be specific to 1990, when the book is set thoughThe Oliver Twist part is well doneSetting was fantastic, go on Michael house for letting them use their grounds (I assume it was)Bonus: was the Dad's carThe scenes with the narative where relatively well doneSo on the whole I enjoyed the movie enough to say it was mildly enjoyable

To call them dislikes would be too strong…