What i am hearing is this:
On PersonFrm:
Code:
Private Sub Form_Current()
Settings
End Sub
Code:
Sub Settings()
On Error GoTo Form_Current_Error
Call subCommon_Form_Current(Me.Form)
Me.CboAddressType.Requery
Me.CboPhoneType.Requery
Me.CboEmailType.Requery
Me.LstRelationship.Requery
Me.RecordLock = True
Call RecordLock_Click
Call ButtonControlOne
Me.Form.Caption = "Personal Contact"
CboAddressType = DLookup("AddressID", "Person2AddressQry", "PersonID=" & [PersonID] & " AND Preferred=True")
If IsNull(CboAddressType) Then
CboAddressType.Enabled = False
LblAddressTypeEdit.Visible = False
CmdAddAddress.Visible = True
Else
CboAddressType.Enabled = True
LblAddressTypeEdit.Visible = True
CmdAddAddress.Visible = False
End If
CboPhoneType = DLookup("PhoneID", "Person2PhoneQry", "PersonID=" & [PersonID] & " AND Preferred=True")
If IsNull(CboPhoneType) Then
CboPhoneType.Enabled = False
LblPhoneTypeEdit.Visible = False
CmdAddPhone.Visible = True
Else
CboPhoneType.Enabled = True
LblPhoneTypeEdit.Visible = True
CmdAddPhone.Visible = False
End If
CboEmailType = DLookup("EmailID", "Person2EmailQry", "PersonID=" & [PersonID] & " AND Preferred=True")
If IsNull(CboEmailType) Then
CboEmailType.Enabled = False
LblEmailTypeEdit.Visible = False
CmdAddEmail.Visible = True
Else
CboEmailType.Enabled = True
LblEmailTypeEdit.Visible = True
CmdAddEmail.Visible = False
End If
Form_Current_EXIT:
Exit Sub
Form_Current_Error:
Select Case Err
Case Else
'Call fcnLogError(Err.Number, Err.Description, " in Form_Current of VBA Document Form_frmAttendees", , True)
End Select
Resume Form_Current_EXIT
End Sub
And then put on AddressFrm:
Code:
Private Sub Form_Close()
Forms!PersonFrm.Settings
End Sub