Hi,
Trying to get this to work but once I have entered info into all textboxes combo box still remains disabled. Where am I going wrong?
Trying to get this to work but once I have entered info into all textboxes combo box still remains disabled. Where am I going wrong?
Code:
Private Sub Client_FN_AfterUpdate()
Call EnableClientStatusCombo
End Sub
Private Sub Phone_Call__1_AfterUpdate()
Call EnableClientStatusCombo
End Sub
Private Sub Client_SN_AfterUpdate()
Call EnableClientStatusCombo
End Sub
Private Sub Email_Address_AfterUpdate()
If Not IsNull(Me.Email_Address) Then
Me.Command16.Enabled = True
End If
Call EnableClientStatusCombo
End Sub
Private Sub Lead_Date_AfterUpdate()
Call EnableClientStatusCombo
End Sub
Private Sub Mobile_No_AfterUpdate()
Call EnableClientStatusCombo
If Not IsNull(Me.Mobile_No) Then
Me.Command17.Enabled = True
End If
End Sub
Sub EnableClientStatusCombo()
If Not IsNull(Me.Lead_Date) Then
If Not IsNull(Me.Client_FN) Then
If Not IsNull(Me.Client_SN) Then
If Not IsNull(Me.Mobile_No) Then
If Not IsNull(Me.Email_Address) Then
If Not IsNull(Me.Phone_Call__1) Then
Me.ClientStatus.Enabled = True
End If
End If
End If
End If
End If
End If
End Sub