Recent content by lanato

The Sub UpdateStatus would be: Private Sub UpdateStatus() If Me.Production Is Not Null Then SysCmd acSysCmdSetStatus, "Ready for Production" Else SysCmd acSysCmdClearStatus End If End Sub

the DMax() is return the records field max value from a table,not the parameters. the code what you need is(or you creat a user function): If parametername = "time" then rs!Q12005 = iif([Me.Jan_05]> [Me.Feb_05] and [Me.Jan_05]> [Me.Mar-05],[Me.Jan_05],iif([Me.Feb_05] >[Me.Mar-05],[Me.Feb_05]...

when you pasting an OLE Object on a form, it's Enabled property is false. so you must change the property to True in Design Viewin .

i think you can creat and run a update query just like: UPDATE [Table] SET [Table].Rank = DCount("*","Table","Point<=" & [Point]);

you can see the new Query:qryInsertFixed is that you want?

I hope the next codes can help you: Private Sub MoveDown_Click() Me.OrderBy = "[sort_order] desc" Me.OrderByOn = True End Sub Private Sub MoveUp_Click() Me.OrderBy = "[sort_order]" Me.OrderByOn = True End Sub