Advertisement

06.25.2008 at 10:43AM PDT, ID: 23515468
[x]
Attachment Details

Hide Unhide Subform Columns

Asked by dkintaudi in Access Forms, Microsoft Access Database, Access Coding/Macros

Tags: Microsoft, Access, 2003

I'm trying to create a function that hides and unhides subform columns through the use of a list box.  It is working incorrectly as it is hiding and unhiding the wrong columns.  This is a challenge question as I've asked the question before in a seperate forum and no one has answered it.  I'm hoping it has a better chance here.  Thanks.  

Start Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Public Function SortSubform()
On Error GoTo Err_Handler
 
   Dim qDef As Object
   Dim strSql As String
   Dim vItem As Variant
   Dim NumFields As Integer
   Dim intCounter As Integer
   NumFields = 0
   ' loop through selected field names
   For Each vItem In Me.lstFieldList.ItemsSelected
      strSql = strSql & ",[" & Me.lstFieldList.ItemData(vItem) & "]"
      NumFields = NumFields + 1
   Next vItem
 
  For intCounter = 0 To NumFields
    Me.subformCertData.Form.Controls(lstFieldList.ItemData(intCounter)).ColumnHidden = True
    For Each vItem In Me.lstFieldList.ItemsSelected
    Me.subformCertData.Form.Controls(lstFieldList.ItemData(intCounter)).ColumnHidden = Not (lstFieldList.Selected(intCounter))
  Next vItem
  Next intCounter
 
   ' build new StrSQL statement
 
 strSql = "Select * " & _
"FROM tblCertificationData"
 
   ' add criteria for selected fields.
Strfield = "ReceivedDate"
 
strSql = strSql & " WHERE ((([ProcurementNumber]) Like [Forms]![frmSearch]![txtProcurementNumber]) And (([ReceivedDate]) Between [Forms]![frmSearch]![txtStartDate] And [Forms]![frmSearch]![txtEndDate]) AND (Isnull(PurchaseOrderNum) or ([PurchaseOrderNum]) Like [Forms]![frmSearch]![PONum]) And (([ReceivedBy]) Like [Forms]![frmSearch]![cboAnalystID]) AND (([EquipmentType]) Like [Forms]![frmSearch]![cboEquipmentType]) AND (([DistrictNumber]) Like [Forms]![frmSearch]![cboDistrict]))" & _
" Order by [ProcurementNumber];"
 
   ' save query with new StrSQL statement
   Set qDef = CurrentDb.QueryDefs("qryProjectCriteria")
   qDef.SQL = strSql
 
   Set qDef = Nothing
  Me.subformCertData.Form.RecordSource = strSql
   ' Set Recordsource of Subform
   'Me.SearchLst.ColumnCount = NumFields
Exit_Err_Handler:
    Exit Function
 
Err_Handler:
    MsgBox Err.Description
    Resume Exit_Err_Handler
End Function
[+][-]06.25.2008 at 11:04AM PDT, ID: 21868270

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:04AM PDT, ID: 21868281

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:10AM PDT, ID: 21868325

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:11AM PDT, ID: 21868334

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:29AM PDT, ID: 21868491

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:32AM PDT, ID: 21868518

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:34AM PDT, ID: 21868540

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:37AM PDT, ID: 21868567

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:39AM PDT, ID: 21868594

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:44AM PDT, ID: 21868643

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:46AM PDT, ID: 21868665

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:48AM PDT, ID: 21868679

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:53AM PDT, ID: 21868742

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 11:56AM PDT, ID: 21868765

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 02:00PM PDT, ID: 21869845

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 02:01PM PDT, ID: 21869849

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 03:39PM PDT, ID: 21870459

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]06.25.2008 at 04:48PM PDT, ID: 21870801

View this solution now by starting your 7-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zones: Access Forms, Microsoft Access Database, Access Coding/Macros
Tags: Microsoft, Access, 2003
Sign Up Now!
Solution Provided By: capricorn1
Participating Experts: 4
Solution Grade: A
 
 
[+][-]06.25.2008 at 05:09PM PDT, ID: 21870895

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
 
Loading Advertisement...
20080716-EE-VQP-32 / EE_QW_2_20070628