Detect which column (1 Viewer)

kirkm · Dec 11, 2018

I have a datasheet-view subform on my main Form.
On the main form I want a button to do something with the selected datasheet column.

How can my code detect which column is selected? That is, it's name been clicked and the whole column has changed colour.

June7 · Dec 11, 2018

Try.
Forms![your form name].ActiveControl.Name

or

Screen.ActiveControl.Name

https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa223188(v=office.11)

I suppose this code could be in that control's Click event.

Exactly what do you need to accomplish?

kirkm · Dec 12, 2018

Forms![your form name].ActiveControl.Name gives the first column name, not the selected one.
Screen.ActiveControl.Name gives the name of the button on the main Form.

I didn't write this database and some of the things are a bit hard to follow, I'm not even sure what the Form Name is. The underlying source for it is "frmCDTracks" but the subform may have a different name. I'm not 100% sure...but I have seen "SubCDTracks" in design view somewhere, but can't find it now to confirm. (And using that with ActiveControl.Name gives an error). I'm using Access 2007 and not very familiar with UI.

Eugene-LS · Dec 12, 2018

Try that way, please.

Code:

Me![Your object subform name].Form.ActiveControl.Name

kirkm · Dec 12, 2018

Thanks for the suggestion... but it (as before) printed the 1st column name, not the active one. I wonder if I'm using the right name? If I goto design mode and click the wee square where the rulers join (on the left), in Property Sheet Selection Type: Subform/Subreport I see "subCDTracks". Seems to be ticked.. and has a drop with other controls from the Main Form.

Eugene-LS · Dec 12, 2018

kirkm said:
... I wonder if I'm using the right name? If I goto design mode and click the wee square where the rulers join (on the left), in Property Sheet Selection Type: Subform/Subreport I see "subCDTracks". Seems to be ticked.. and has a drop with other controls from the Main Form.

See picture bellow :

June7 · Dec 12, 2018

Sorry, I missed that you want to reference a subform. Where do you want to run the code? Eugene's suggestion works for me.

objSubForm should replace "Your object sub form"

Post your code.

kirkm · Dec 12, 2018

I think I'm doing all the right things, but it just isn't working.
I want to run he code from a button on the Main Form, and only have this so far.

Code:

Private Sub btnTitleCase_Click()
    MsgBox Me!subCDTracks.Form.ActiveControl.Name
End Sub

And here's my image to equate with Eugene's.
Perhaps I should create a tiny cut down version of the db and let you's try ?

The msgbox shows the name of the first column in the datasheet, not the one I have selected.

Eugene-LS · Dec 12, 2018

kirkm said:
I think I'm doing all the right things, but it just isn't working..

Well, let's try anoter way ...

Code:

Private sActiveControlName$

Private Sub btnTitleCase_Click()
    If sActiveControlName = "" Then subCDTracks_Exit False
        MsgBox "Active column:" & vbCrLf & sActiveControlName, vbInformation
End Sub

Private Sub subCDTracks_Exit(Cancel As Integer)
    sActiveControlName = Me!subCDTracks.Form.ActiveControl.Name
End Sub

I've tested - it works for me

kirkm · Dec 12, 2018

Your help is much appreciated. I'm getting the same result though so will attach the db.

kirkm · Dec 12, 2018

Ahh, hangon. It suddenly started working with Eugenes code. After I had exited and rebooted access. Hmmm sorry.. hate this sort of thing !

kirkm · Dec 12, 2018

Eugene, am I right in thinking you're forcing an exit from the subform if sActiveControlName is an empty string? And at that point it can somehow get the control name, but not otherwise ? Is there any reason for sending False ? I tried True and it seems the same.
Anyway what I want to do, now the column is known, is detect when its name is clicked and only then enable btnTitleCase. I have set sActiveControlName back to "" in the Forms Current event (else it remembers the last one) but if no column is selected it will return txtTTrack. That's not desirable as whatever sActiveControlName is will have stuff done to it, so should be selected first.

Detect which column (1 Viewer)

kirkm

Registered User.

June7

AWF VIP

kirkm

Registered User.

Eugene-LS

Registered User.

kirkm

Registered User.

Eugene-LS

Registered User.

Attachments

June7

AWF VIP

kirkm

Registered User.

Attachments

Eugene-LS

Registered User.

kirkm

Registered User.

Attachments

kirkm

Registered User.

kirkm

Registered User.

Similar threads

Users who are viewing this thread