Private Sub Form_Current()
On Error GoTo Error_Handler
Dim rstSpouse1Query As Recordset
Dim rstSpouse2Query As Recordset
Dim strSpouse1SQL As String
Dim strSpouse2SQL As String
Dim rstFemaleNameLookup As Recordset
Dim rstMaleNameLookup As Recordset
Dim rstCollectionQuery As Recordset
Dim qdfSpouse1Query As QueryDef
Dim qdfSpouse2Query As QueryDef
Dim qdfFemaleMembers As QueryDef
Dim qdfMaleMembers As QueryDef
Dim qdfFemaleNameLookup As QueryDef
Dim qdfMaleNameLookup As QueryDef
Dim qdfCollectionQuery As QueryDef
Dim lngCurrRec As Long
Dim lngFirstSpouseID As Long
Dim lngSecondSpouseID As Long
Dim lngFirstMarriagePhotoCollectionID As Long
Dim strSqlGetPhotoCollectionPrefix
Dim lngSecondMarriagePhotoCollectionID As Long
Dim strCollTbl As String
Dim strSQLWhere As String
varCurrentMemberID = Me.CurrentRecord
If IsNull(varCurrentMemberID) Or IsNull(Me.CurrentRecord) Then
DoCmd.GoToRecord acDataForm, "frmMembers2", acFirst
varCurrentMemberID = Me.CurrentRecord
Me.Refresh
End If
dirtyForm = False
Me!btnSave.Enabled = False
Me!btnUndo.Enabled = False
If Not (IsNull(Me.cbGenderSelect)) Then
Call showCollection(Me.ID, Me.cbGenderSelect)
End If
If Me.cbGenderSelect = "M" Then
Me.cbFirstSpouseSelect.RowSourceType = "Table/Query"
Me.cbFirstSpouseSelect.RowSource = "qryGetFemaleIDsAndFullNames"
ElseIf Me.cbGenderSelect = "F" Then
Me.cbFirstSpouseSelect.RowSourceType = "Table/Query"
Me.cbFirstSpouseSelect.RowSource = "qryGetMaleIDsAndFullNames"
Else
Me.cbFirstSpouseSelect.RowSource = ""
End If
Set rstSpouse1Query = Nothing
Set rstSpouse2Query = Nothing
If Not (IsNull(Me.cbGenderSelect)) Then
Call showCollection(Me.ID, Me.cbGenderSelect)
End If
'Populate Family Photo Collection fields
Error_Handler_Exit:
On Error Resume Next
Exit Sub
Error_Handler:
Call showError
Resume Error_Handler_Exit
End Sub