Populate subform text box

[hilian]

I’m trying to populate a text box on a subform (frmEpisodes) with information from a combo box on the main form. The combo box is called cboIntpLanguage; the information, the rate charged for an hour of interpretation, is in the third column. The text box is called txtIntpRate. When I use this code



Me!frmEpisodes.txtIntpRate = Me.cboIntpLanguage.Column(2)

I get the error message “Object doesn’t support this property or method." What am I doing wrong?

Thanks,

Henry

[ketbdnetbp]

Henry -

You could try...

[Forms]![MainFORMName]![frmEpisodes].form![txtIntpRate] = [Forms]![MainFormName]![cboIntpLanguage].Column(2)

Replace [MainFormName] with the name of your main form. This is the long version for illustrative purposes.

All the best,

Jim

[hilian]

Hi Jim, I tried the following code:

[Forms]![frmIntpCases]![frmEpisodes].Form![txtIntpRate] = [Forms]![ frmIntpCases]![cboIntpLanguage].Column(2)

Unfortunately it didn't work. I got this error message:

OPTAReports can’t find the form ‘frmIntpCases’ referred to in a macro expression or Visual basic code.

Thanks,

Henry

[ketbdnetbp]

Henry -

Is the main form open? Double check the spelling of the name of the Main Form. Also, what is "OPTAReports?"

Jim

[hilian]

The main form is open. I checked the spelling of everything. It was all correct. OPTAReports is the name of the DB. Actually the name of the DB is OPTAReorts Interp, but Access apparently truncated it. the db tracks interpretation services provided in a number of languages. Each language has a different rate.

[ketbdnetbp]

Henry -

Don't know if this is a copy and paste issue but, there is a space in the code...
[Forms]![frmIntpCases]![frmEpisodes].Form![txtIntpRate] = [Forms]![_frmIntpCases]![cboIntpLanguage].Column(2)

Remove space and see if that helps.

Jim

[hilian]

I removed the space, but that didn't work.

Thanks,

Henry

[ketbdnetbp]

Henry -

If the form is open and the form's name is spelled correctly and the error continues, it may be necessary to provide DB for analysis. However, in the interim, try...

dim frmCurrent as Form
Set frmCurrent = Screen.ActiveForm
MsgBox "The name of the current form is: " & frmCurrent.Name
'[Forms]![frmIntpCases]![frmEpisodes].Form![txtIntpRate] = [Forms]![frmIntpCases]![cboIntpLanguage].Column(2)
'See if the MsgBox returns "frmIntpCases"

Jim

[hilian]

Jim,

Thank you for the code. I tried it, but it still gave me the error message. I had a sanitized version of the db that I created to solve another problem. I decided to first try the original code with this version, and it worked. Evidently there was something in my db that was interfering with the code running. No way of knowing what it was, but I'm going to rebuild the db using the sanitized version as a starting point. I'll do that on Monday if I can get to it. If it still gives me problems, I'll ask for help again.

Thank you for all your help so far,

Henry