DeveloperBarn

Select Case ddl_client_option.selectedvalue
       Case "phone"
             client_phone.visible = true
             client_phone.SiteDetails = Master.SiteDetails
             client_phone.UserDetails = Master.UserDetails
             client_phone.ClientDetails = ClientDetails
             client_phone.update_details()
.
.

Private _ClientDetails As ClientBOL
Public Property ClientDetails() As ClientBOL
   Get
        Return _ClientDetails
   End Get
   Set(ByVal value As ClientBOL)
        _ClientDetails = value
   End Set
End Property
 
I have the same for SiteDetails & UserDetails
 
Private note as New FileNoteBOL
 
Public Sub update_details()
If Not IsNothing(ClientDetails) then
   txt_homephone.text = ClientDetails.homephone
   'this works fine and populates the control.
End If
.
.
.
End Sub
 
'When the add button is clicked this sub fires
Public Sub add_phonecall(ByVal s As Object, ByVal e As ImageClickEventArgs)
.
.
'this section fires on postback
If IsNothing(ClientDetails) then
   update_error.text = "No Client Details"
   Exit Sub
End If
 
'this line gives the Object Reference Error if I remove the section above
note.visitorref = ClientDetails.visitorref