Search results

Hi; Private Sub Form_Open(Cancel As Integer) Randomize Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("YourTable", dbOpenDynaset) With rs If .EOF Then Exit Sub Else .MoveLast .AbsolutePosition = CLng(Rnd() * .RecordCount) Me.YourTextBox = !YourFieldInTable End If .Close End With Set...

this correction was: SET Posted = Date() but use the same On Error Resume Next

test please: On Error Resume Next CurrentDb.Execute "UPDATE tbl_READY_approved_agents_post_Clist SET Posted = Date() WHERE ListingID = '" & tempvalueid & "'" CurrentDb.Execute "UPDATE tbl_READY_approved_agents_post_Clist SET PostedUser = '" & tempvaluePostedby & "' WHERE ListingID = '" &...

the field Posted is format Date/Time or text ?

ListingID = '" & tempvalueid & "'" 'text ListingID = " & tempvalueid & "" 'number

In an empty column of your query: MonthRef: Format([YourFieldDate];"mm") In criteria: Format(Date();"mm") Or Format(Date();"mm")+1 Or Format(Date();"mm")+2

Re: Change font color on ALL form controls on "Got Focus" and "Lost Focus" Hi Chris; See the simple http://dl.dropbox.com/u/771097/EfeitosEspeciais.mdb

See; http://www.blueclaw-db.com/select_case.htm