Toggle Sort on a Datasheet sub form

I have a datasheet sub form (embedded in a pop up form) and want to toggle the sort of one column from a button on the main form, can anyone help with syntax?

HKFuey

Asked: 2012-04-13

Advertise Here

1 Solution

LVL 50

Dale FyeCommented: 2012-04-13

Private sub cmd_Sort_Click

dim strOrderBy as string

strOrderBy = me.subformcontrolname.form.orderBy

strOrderBy = "[FieldName]" & Iff(instr(strOrderBy, "DESC") =0, " DESC", NULL)

me.subformcontrolname.Form.OrderBy = strOrderBy
me.subformcontrolname.Form.OrderOn = true

ENd Sub

Note: you must replace "subformcontrolname" with the name of the subform control as it is seen in the Name property when viewing the main form in design view. Do not confuse this with the subform's sourceobject.

HKFueyAuthor Commented: 2012-04-13

Hi Fyed,
Looks promising but crashes on the last line:
Error 2465 Application Defined or object defined error.
BTW changed 'iff' to 'iif' ; )

LVL 50

Dale FyeCommented: 2012-04-13

Oops, that should be:

OrderByOn, not OrderOn

LVL 50

Dale FyeCommented: 2012-04-13

Hey,

It's early, and I hadn't had my coffee yet. And what good is a programmer who hasn't had his/her first cup of coffee?

HKFueyAuthor Commented: 2012-04-13

I've requested that this question be closed as follows:

Accepted answer: 0 points for HKFuey's comment #37842203

for the following reason:

Works perfectly, thanks very much!

LVL 50

Dale FyeCommented: 2012-04-13

I think you selected the wrong answer to give credit to.

HKFueyAuthor Commented: 2012-04-13

Thanks!

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Expand your skills with this month's free Premium course.

Toggle Sort on a Datasheet sub form

Join & Write a Comment Already a member? Login.

Featured Post