Skip to main content

Posts

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   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 = DateDiff("d

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). Likes 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 fantastic The use of lots of South Africa music was great, would have like them to be specific to 1990, when the book is set though The Oliver Twist part is well done Setting was fantastic, go on Michael house for letting them use their grounds (I assume it was) Bonus: was the Dad's car The scenes with the narative where relatively well done So on the whole I enjoyed the movie enough to say it was mildly enjoyable Irritations To call them di