Form object properties not set - Access Developers


	Back to Access Developers Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

Form object properties not set

Jennifer Neighbors

3 years ago

I am working on an app where the user can select a screen background from a set of choices. The background chosen may be looked up in a table. The background images are stored in the same folder as my access db file. I link to the chosen background image when each form is loaded. I have a procedure in each form's on-load event to do this, and it works perfectly.

However, I want to make my code more efficient using a global procedure. Doing so requires passing the form as an object to the global procedure ("me.form") so the global procedure knows which form is calling.

In the global procedure, the form object's properties cannot be set, however. This code doesn't work:

Sub SetFormBackground(oForm As Object)

Dim path As String
Dim PicName As String

path = CurrentProject.path
PicName = DLookup("Background", "tblBackgrounds", "ChooseThisOne = True")

With oForm
.Picture = path & "\" & PicName
.PictureAlignment = 3
End With

End Sub

I get runtime error 438 - Object doesn't support this property or method.

This isn't a particularly complex procedure! I could just leave this in each form's module, where I can easily work with the form properties, but I'm curious now. How can I set a form's properties from a global module dynamically?

Kevin Robertson @Reply

3 years ago

Are you using parentheses when calling SetFormBackground?
They are not needed since it's not a function.

SetFormBackground Me.Form

or

SetFormBackground Me

You could also send the Form Name as a string:

Sub SetFormBackground(FormName As String)



    Dim path As String

    Dim PicName As String

    

    path = CurrentProject.path

    PicName = DLookup("Background", "BackgroundT", "ChooseThisOne = True")

    

    With Forms(FormName)

      .Picture = path & "\" & PicName

      .PictureAlignment = 3

    End With



End Sub

Then in your form: SetFormBackground Me.Name

A couple of options.

	Jennifer Neighbors OP @Reply 3 years ago
Your version works perfectly! I also tried passing the string variable but got tripped up in the syntax of the "with...end with" clause. You've clarified how to write that, and it's far more straightforward than I thought. Thank you so much!

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Developers.

Next Unseen