Wow that rocks!! Thanks a bunch!
With your help (Thank you!) I created a Popup reminder system in Access/sqlsvr that works great! My users were using Outlook, which is good, but it's not integrated with our sales database. So with this I was able to setup a reminder system in place of the Outlook calendar. Not a full featured calendar in anyway, but it's a great follow-up reminder, and now it's integrated!
huskerdon (Don), thanks so much for taking the time to help!
Greg
Here is what I did:
====================================
OnTimer of form calls this function:
Private Function fRunMe()
If Me.chkTimerOn = False Then
GoTo exitall
End If
Dim af As Form
If Not FormIsLoaded("activityplanner"

Then
'MsgBox "Activity Planner is not loaded. Loading now."
x = FormLoad("activityplanner"

End If
'if ap is current form, then skip all, no need to remind when already there
Set af = Screen.ActiveForm
If af.Name = "activityplanner" Then
GoTo exitall
End If
'---------------------
Dim db As Database, rs As Recordset, rsList As Recordset
Set db = CurrentDb()
Dim sql, sqlList, it
sql = "Select count(*) as TheCount from ActivityUserView_today " & _
"where partyresponsible = '" & Forms.PrefHide.RepName & "' " & _
"and complete = 0 " & _
"and (DateDue <= #" & Now & "# and Datedue >= #" & td & " 12:00:00 AM#)"
Set rs = db.OpenRecordset(sql)
Dim t
t = 0
Do While Not rs.EOF
t = rs("TheCount"

rs.MoveNext
Loop
'setup default date minus time
mo = DatePart("m", Now)
da = DatePart("d", Now)
yr = DatePart("yyyy", Now)
td = CDate(mo & "/" & da & "/" & yr)
If t = 0 Then
GoTo exitall
Else
sqlList = "Select Datedue, Empname, Repname, Message from ActivityUserView " & _
"where partyresponsible = '" & Forms.PrefHide.RepName & "' " & _
"and complete = 0 " & _
"and (DateDue <= #" & Now & "# and Datedue >= #" & td & " 12:00:00 AM#) " & _
"Order by Datedue desc"
'open the records and loop through them, creates text of records in var 'it' for print in txtItems
Set rsList = db.OpenRecordset(sqlList)
it = ""
l = ""
Do While Not rsList.EOF
it = it & "____________________________________________________________" & vbCrLf & _
rsList("Datedue"

& " " & rsList("RepName"

& _
" " & Nz(rsList("Empname"

, "None"

& vbCrLf & _
" " & Left(rsList("Message"

, 70) & vbCrLf
rsList.MoveNext
Loop
DoCmd.OpenForm "frmTimerMsg", acNormal
Forms.frmTimerMsg.txtMsg1 = "You have " & t & " activities!"
Forms.frmTimerMsg.txtItems = it
'Once the form is setup, see what handle it has from win32
'if its minimized, restore it, if not just show it
'then last is setactivewindow and setforeground on the Access app (OMain) THEN the Access Form (OFormPopupNC)
'important to setfocus within Access BEFORE making active from win32
Dim Hwnd As Long, w As Integer, hwac As Long
Hwnd = FindWindow("OFormPopupNC", "Activity Reminder"

hwac = FindWindow("OMain", vbNullString)
If hwac > 0 Then
If IsIconic(hwac) Then ' this is if it's minimized ??
ShowWindow hwac, SW_RESTORE
ShowWindow Hwnd, SW_RESTORE
'ShowWindow hwnd, SW_SHOW
'ShowWindow hwnd, SH_SHOWNORMAL
Else
ShowWindow hwac, SW_SHOW
ShowWindow Hwnd, SW_SHOW
End If
SetActiveWindow hwac 'Make access active
'SetForegroundWindow hwac
Forms.frmTimerMsg.SetFocus 'setfocus on form in Access first
SetActiveWindow Hwnd
SetForegroundWindow Hwnd ' then make it foreground
End If
End If
exitall:
End Function