Private Sub Form_Current()
Dim frm As Form
Dim frm2 As Form
Set frm2 = [Forms]![frmMain]![subfrmContacts].Form
'See if we need to allow additions to the contacts form to show the controls
If DCount("[ContactID]", "[tblContacts]", "CompanyID = " & [Forms]![frmMain]!CompanyID & "And [tblContacts].[DateDeleted] Is Null") = 0 Then
Me!subfrmContacts.Form.AllowAdditions = True
Else
Me!subfrmContacts.Form.AllowAdditions = False
End If
'--------------------------------
'Enable/disable the budget fields
'--------------------------------
If frm2.RespBrand.Value = -1 Then
frm2.BudgetBrand.Enabled = True
Else
frm2.BudgetBrand.Enabled = False
End If
If frm2.RespDirectMail.Value = -1 Then
frm2.BudgetDirectMail.Enabled = True
Else
frm2.BudgetDirectMail.Enabled = False
End If
If frm2.RespMedia.Value = -1 Then
frm2.BudgetMedia.Enabled = True
Else
frm2.BudgetMedia.Enabled = False
End If
If frm2.RespOnline.Value = -1 Then
frm2.BudgetOnline.Enabled = True
Else
frm2.BudgetOnline.Enabled = False
End If
If frm2.RespOther.Value = -1 Then
frm2.BudgetOther.Enabled = True
frm2.RespOtherDescription.Enabled = True
Else
frm2.BudgetOther.Enabled = False
frm2.RespOtherDescription.Enabled = False
End If
If frm2.RespPR.Value = -1 Then
frm2.BudgetPR.Enabled = True
Else
frm2.BudgetPR.Enabled = False
End If
If frm2.RespPrintPurchase.Value = -1 Then
frm2.BudgetPrintPurchase.Enabled = True
Else
frm2.BudgetPrintPurchase.Enabled = False
End If
frm2.Repaint
'-----------------------------------------------------------------
'Enable/disable the buttons on the contact & contact history forms
'-----------------------------------------------------------------
'Set form shortcut
Set frm = frm2!subfrmContactHistory.Form
If IsNull(frm2!ContactID) Then
frm2.cmdContactsPrevious.Enabled = False
frm2.cmdContactsNext.Enabled = False
frm2.cmdContactsDelete.Enabled = False
frm.cmdContactHistoryExpand.Enabled = False
frm.cmdContactHistoryDelete.Enabled = False
frm.cmdContactHistoryFilter.Enabled = False
frm.cmdContactHistoryAddNew.Enabled = False
frm.ScrollBars = 2
GoTo exit_frm_current
ElseIf DCount("[ContactID]", "[tblContactHistory]", "ContactID = " & frm2!ContactID & "And [tblContactHistory].[DateDeleted] Is Null") = 0 Then
frm.ScrollBars = 2
frm.cmdContactHistoryExpand.Enabled = False
frm.cmdContactHistoryDelete.Enabled = False
frm.cmdContactHistoryFilter.Enabled = False
frm.cmdContactHistoryAddNew.Enabled = True
frm2.cmdContactsPrevious.Enabled = True
frm2.cmdContactsNext.Enabled = True
frm2.cmdContactsDelete.Enabled = True
Else
frm.cmdContactHistoryExpand.Enabled = True
frm.cmdContactHistoryDelete.Enabled = True
frm.cmdContactHistoryFilter.Enabled = True
frm.cmdContactHistoryAddNew.Enabled = True
frm2.cmdContactsPrevious.Enabled = True
frm2.cmdContactsNext.Enabled = True
frm2.cmdContactsDelete.Enabled = True
frm.ScrollBars = 2
End If
exit_frm_current:
Set frm = Nothing
Set frm2 = Nothing
End Sub