Passing a reference of a object on a form

A

AdmSteck

I have this code on one form

Private Sub Owner_DblClick(Cancel As Integer
On Error GoTo Err_Owner_DblClic
Dim lngOwner As Lon
If IsNull(Me![Owner]) The
Me![Owner].Text = "
Els
lngOwner = Me![Owner
Me![Owner] = Nul
End I
DoCmd.OpenForm "Who Entry
Me![Owner].Requer
If lngOwner <> 0 Then Me![Owner] = lngOwne
Exit_Owner_DblClick
Exit Su
Err_Owner_DblClick
MsgBox Err.Descriptio
Resume Exit_Owner_DblClic
End Su

But I would like to modify it and place it in a class module so I can use it on several forms. How do I pass a reference of the combobox "Owner" to the function in the module so that I can replace all the me![owner]?
 
D

Dan Artuso

Hi,
The signature would be:
Public Sub YourFunction(ctl As ComboBox)
'then just substitute ctl where ever you used Me![Owner]
End Sub

HTH
Dan Artuso

AdmSteck said:
I have this code on one form:

Private Sub Owner_DblClick(Cancel As Integer)
On Error GoTo Err_Owner_DblClick
Dim lngOwner As Long
If IsNull(Me![Owner]) Then
Me![Owner].Text = ""
Else
lngOwner = Me![Owner]
Me![Owner] = Null
End If
DoCmd.OpenForm "Who Entry"
Me![Owner].Requery
If lngOwner <> 0 Then Me![Owner] = lngOwner
Exit_Owner_DblClick:
Exit Sub
Err_Owner_DblClick:
MsgBox Err.Description
Resume Exit_Owner_DblClick
End Sub


But I would like to modify it and place it in a class module so I can use it on several forms. How do I pass a reference of
Click to expand...
the combobox "Owner" to the function in the module so that I can replace all the me![owner]?
 
G

George Nicholson

This is untested.

Me!Owner refers to the underlying recordset field and not the combobox
itself so adjustments may be necessary, but hopefully this will get you
started.

Private Sub Owner_DblClick(Cancel As Integer)
Call CheckOwner(Me.cboOwner)
End Sub

Public Sub CheckOwner(cbo as ComboBox)
On Error GoTo ErrHandler
Dim lngOwner As Long
If IsNull(cbo) Then
cbo.Text = ""
Else
lngOwner = cbo
cbo = Null
End If
DoCmd.OpenForm "Who Entry"
cbo.Requery
If lngOwner <> 0 Then cbo = lngOwner
ExitHere:
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHere
End Sub

--
George Nicholson

Remove 'Junk' from return address.


AdmSteck said:
I have this code on one form:

Private Sub Owner_DblClick(Cancel As Integer)
On Error GoTo Err_Owner_DblClick
Dim lngOwner As Long
If IsNull(Me![Owner]) Then
Me![Owner].Text = ""
Else
lngOwner = Me![Owner]
Me![Owner] = Null
End If
DoCmd.OpenForm "Who Entry"
Me![Owner].Requery
If lngOwner <> 0 Then Me![Owner] = lngOwner
Exit_Owner_DblClick:
Exit Sub
Err_Owner_DblClick:
MsgBox Err.Description
Resume Exit_Owner_DblClick
End Sub


But I would like to modify it and place it in a class module so I can use
Click to expand...
it on several forms. How do I pass a reference of the combobox "Owner" to
the function in the module so that I can replace all the me![owner]?
 
Top