Solved

Access 2010 Drill Down to Another Form

Posted on 2014-09-14
8
248 Views
Last Modified: 2014-09-14
I have a form (frm_Accounting_Transactions) with a field (Fund_Map) that has multiple values separated by commas (EC,EG,EM,EP,ER,ES,ET,TR)
I would like to drill down to another form (frm_fund_Groups) field Fund Type Code and display only the records based on the multiple values from the Fund_Map field on the frm_Accountinng_Transactions. Thanks
0
Comment
Question by:shieldsco
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
  • 2
8 Comments
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 40321793
try

docmd.openform "frm_fund_Groups",,, "[Fund Type Code]='" & me.txtFund_Map & "'"
or

docmd.openform "frm_fund_Groups",,, "[Fund Type Code]=" & chr(34) & me.txtFund_Map &  Chr(34)
0
 

Author Comment

by:shieldsco
ID: 40321825
I get compile error Method or Data Member no found on both..........txtFund_Map
0
 

Author Comment

by:shieldsco
ID: 40321827
Please note - the number of pairs vary with the records... some records my have three pairs while other records my none (null) or 1 or 5 etc
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:shieldsco
ID: 40321902
0
 
LVL 120

Accepted Solution

by:
Rey Obrero (Capricorn1) earned 500 total points
ID: 40321923
use these codes


Private Sub Fund_Map_Click()
Dim strFund As String, j As Integer, fundArr() As String
If InStr(Me.Fund_Map, ",") Then
    fundArr = Split(Me.Fund_Map, ",")
    For j = 0 To UBound(fundArr)
        strFund = strFund & "," & Chr(39) & fundArr(j) & Chr(39)
    Next
    Else
    strFund = Chr(39) & Me.Fund_Map & Chr(39)
End If
If InStr(strFund, ",") Then
    strFund = Mid(strFund, 2)
End If

DoCmd.OpenForm "frm_fund_Groups", , , "[Fund Type Code] in(" & strFund & ")"
End Sub

Open in new window

0
 
LVL 29

Expert Comment

by:IrogSinta
ID: 40321927
You can also give this a try:
DoCmd.OpenForm "frm_fund_Groups", , , "InStr('" & Me.Fund_Map & "',[Fund Type Code])>0"

Open in new window

Ron
0
 

Author Closing Comment

by:shieldsco
ID: 40321933
Very Good-- Thanks
0
 
LVL 29

Expert Comment

by:IrogSinta
ID: 40322053
So did you the other solution not work?
0

Featured Post

Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In a multiple monitor setup, if you don't want to use AutoCenter to position your popup forms, you have a problem: where will they appear?  Sometimes you may have an additional problem: where the devil did they go?  If you last had a popup form open…
In earlier versions of Windows (XP and before), you could drag a database to the taskbar, where it would appear as a taskbar icon to open that database.  This article shows how to recreate this functionality in Windows 7 through 10.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

729 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question