Still stuck on this code clleanup

**peter.thompson** · 09-22-2006, 10:28 PM

I have multiple userforms that have textboxes with the same name e.g.txtSalary. I have duplicated code in each userform and want to place code in a standard module. Example below. When I run the code I get a runtime error "Object Required". I guess that I have to point the code to the specific object somehow?

Cheers

Peter

In userform code

Private Sub txtSalary_Change()
RemDec
End Sub

In standard module code

Public Sub RemDec()
If txtSalary.Text = "." Then
txtSalary.Text = ""
End If
End Sub

**protonLeah** · 09-23-2006, 09:09 PM

Try:

If FormName.txtSalary.Text =...

**peter.thompson** · 09-23-2006, 10:39 PM

Yes that works but it doesn't cut down on the code required - I have 20 userforms that have common textboxes and would have to make 20 entries. How can one point code in a standard module to the active userform, without specifically naming the userform?

Cheers

Peter

**Myles** · 09-24-2006, 09:19 AM

To the best of my knowledge, you need an event code for that but I don't think the Userform collection property supports a class event to link all the userforms.

**peter.thompson** · 09-24-2006, 07:37 PM

I guess that it can't be done!

Cheers

Peter

**colofnature** · 09-24-2006, 08:07 PM

Pass the form calling the routine as a parameter:

Please Login or Register  to view this content.

HTH
Col

**peter.thompson** · 09-24-2006, 11:38 PM

It works - have saved me many lines of code!

Cheers

Peter (now happy)

Still stuck on this code clleanup

LinkBack

Thread Tools

Rate This Thread

Display

Still stuck on this code clleanup

Thanks Proton

Thanks Myles

Thanks Col

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions