Random Nerdiness...

[statikimperium]

SELECT TOP 3 Food.* INTO Stomach FROM (Refrigerator INNER JOIN Pantry ON Refrigerator.Shelf = Pantry.Shelf) WHERE ((Food.Taste >= " & DLookup("[TasteValue]", "[Tastes]", "[Taste] = 'Good'") & " AND (DateDiff(dd, Food.Date_Purchased, GetDate()) <= 7))

Comments

[panzerkaetzchen]

A most appropriate usage of SQL statements. I approve.
*high five*

[mentalswitch]

delete from friends where user_id in (select user_id from livejournal_posts where livejournal_post_inspiration_conversation_id in (select conversation_id from discussion inner join people where discussion.user_id = people.user_id and people.user_id = 'dan' and conversation.credit_to_user_id != 'dan')

[panzerkaetzchen]

:)

[statikimperium]

Option Explicit
Public Function Apology() As Object
Dim strSQL As String, Accepted As Boolean
strSQL = "UPDATE Public_Record.Statements SET Apology = True WHERE ((Conversations.PersonID = " & DLookup("[Person_ID]", "[Friends]", "[Name] = 'Dan'") & ") AND (Conversations.Inspiration <> 'Me') AND (Conversations.Date = #02/23/2007#) AND (Conversations.Topic = 'SQL'))"
Do Until Accepted = True
DoCmd.RunSQL strSQL
Loop
Resume Friendship
End Function

[mentalswitch]

load "willthinkaboutit",8,1

run