Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Question about synchroize forms

Status
Not open for further replies.

Lavenderchan

Technical User
Jul 21, 2008
132
US
Hi I am trying to sink to forms with a main form on open. I have everything done the instructions told me. My query is not reading the code for criteria
[Forms]![Task Details]![ID]. Its reading it like a paratmeter. Does anyone know how I might trouble shoot this.
I am using this faq702-5860.


Keri
 
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
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top