Here is the Sql for the form
SELECT [Reserve for Replacement].ID, [Reserve for Replacement].[REMS Number], [Reserve for Replacement].[FHA Number], [Reserve for Replacement].[Property Name], [Reserve for Replacement].[Open Date], [Reserve for Replacement].[Project Address], [Reserve for Replacement].[Project Phone], [Reserve for Replacement].[Project City, State, Zip Code], [Reserve for Replacement].Mortgagee, [Reserve for Replacement].[Mortgagee Contact], [Reserve for Replacement].[Mortgagee Address], [Reserve for Replacement].[Mortgagee City, State, Zip Code], [Reserve for Replacement].[Mortgagee Contact Information], [Reserve for Replacement].[Mortgagor/Management Agent], [Reserve for Replacement].[Mortgagor Contact Name], [Reserve for Replacement].[Mortgagor Address], [Reserve for Replacement].[Mortgagor City, State, Zip Code], [Reserve for Replacement].[Mortgagor/Management Agent Contact Information], [Reserve for Replacement].[Reserve for Replacement], [Reserve for Replacement].[Residual Receipt], [Reserve for Replacement].[Current Monthly Deposit], [Reserve for Replacement].[Account Cash Balance], [Reserve for Replacement].Other, [Reserve for Replacement].Total, [Reserve for Replacement].[Confirmed Beginning Balance], [Reserve for Replacement].[Amount Requested], [Reserve for Replacement].[Amount Released], [Reserve for Replacement].[New Balance], [Reserve for Replacement].[Number of Units], [Reserve for Replacement].[Mimmum Balance Requried], [Reserve for Replacement].[24 Months of Deposits at $500 per Unit], [Reserve for Replacement].[24 Months of Deposits at $1000 per Unit], [Reserve for Replacement].Comments, [Reserve for Replacement].Archive
FROM [Reserve for Replacement]
WHERE ((([Reserve for Replacement].ID)=[Forms]![Task Details]![ID]));
here is the sql for the second form
SELECT [Excess Income Current].ID, [Excess Income Current].[Property Name], [Excess Income Current].[REMS Number], [Excess Income Current].[FHA Number], [Excess Income Current].[Project Manager], [Excess Income Current].[Missing Report], [Excess Income Current].[Report Period], [Excess Income Current].[Date Received], [Excess Income Current].[Income Earned], [Excess Income Current].[Income Retained], [Excess Income Current].[Income Owed], [Excess Income Current].[Paid to HUD], [Excess Income Current].[Check Number]
FROM [Excess Income Current]
WHERE ((([Excess Income Current].ID)=[Forms]![Task Details]![ID]));
Here is the code
Function IsOpenFrm(frmName As String) As Boolean
Dim cp As CurrentProject, Frms As Object
Set cp = CurrentProject()
Set Frms = cp.AllForms
If Frms.Item(frmName).IsLoaded Then
If Forms(frmName).CurrentView > 0 Then IsOpenFrm = True
End If
Set Frms = Nothing
Set cp = Nothing
End Function
Private Sub Form_Current()
Me.Excess_Income_Details.Requery
Me.Reserve_for_Replacement_Details.Requery
End Sub
