Column headings remaining visible

[bradp1979]

I'm not 100% sure how to describe the issue, so I'll let the pictures speak for themselves. In the 3 pictures, are the Client information, Vendor information, and Government entity information. The column headers of "Event#," "Date," "Event Nature," and "Event Address" all are visible only when looking at Client information, and do not show when looking at Vendor information or Gov't entity information. However, "Cars Expected" and "Cars Parked" is still visible. The settings are all the same, but I can't get them to only show when Client info is up.



Picture 1, Client; Picture 2, Vendor; Picture 3, Gov't



Thank you.

[June7]

Would have to review form design. If you want to provide db for analysis, follow instructions at bottom of my post.

[bradp1979]

Here it is. It's barely functional, but based on previous threads where I uploaded it, it should work.

[June7]

Which is the main form (or the subforms) involved in issue?

[bradp1979]

frmClient. When you look at it in design mode, you'll see 3 different subforms that sit in the same place down near the bottom of the form. Which is visible is determined by which type of client.

[June7]

There is duplicate keyboard shortcut for Save and Edit Station buttons.

I see 3 forms: fsubRelContactEntity, fsubRelPymtSchedDistrictSta, fsubRelLotClient. The first is at top and other 2 at bottom.

You want the labels above the listbox to be not visible when the listbox is not visible? Suggest you give the Cars Expected and Cars Parked better names and include them in the code, just as you have for the other labels such lblEventAddress.

What process should I use to open frmClient without error? Directly from navigation pane triggers error.

I get an error opening db - can't find MSCAL.ocx. Are you using calendar control somewhere?

[bradp1979]

I'm not using calendar control that I'm aware of, and I'm not sure why you're getting an error when tring to open frmClient form the nav pane. Have you tried opening it from the switchboard?

I inherited this database, so I had no hand in building it.

I can name cars parked and cars expected as, say lblParked and lblExpected, but I am not sure where to include them in the code. When I look at the code for the form, I see the commands that tell the various labels to be visible or not, but where to stick these, I'm not sure.

Private Sub cboSelIndustry_AfterUpdate()
If Me.cboSelIndustry = 44 Then
Me.lblEventNum.Visible = False
Me.lblEventDate.Visible = False
Me.lblEventNature.Visible = False
Me.lblEventAddress.Visible = False
Me.lboEvent.Visible = False
Me.lblPymtSched.Visible = False
Me.lblDistrictSta.Visible = False
Me.cboSelDistrictSta.Visible = False
Me.lkupCheckPayableTo.Visible = False
Me.chldFsubRelPymtSchedDistrictSta.Visible = False
Me.cmdStation.Visible = False
Me.lblParkingLots.Visible = True
Me.chldFsubRelLotClient.Visible = True
ElseIf Me.cboSelIndustry = 48 Then
Me.lblEventNum.Visible = False
Me.lblEventDate.Visible = False
Me.lblEventNature.Visible = False
Me.lblEventAddress.Visible = False
Me.lboEvent.Visible = False
Me.lblParkingLots.Visible = False
Me.lblReferral.Visible = False
Me.cboSelRefBy.Visible = False
Me.cboSelReference.Visible = False
Me.txtReference.Visible = False
Me.chldfsubRelContactEntity!cboSelRank.Visible = True
Me.lblDistrictSta.Visible = True
Me.cboSelDistrictSta.Visible = True
Me.lkupCheckPayableTo.Visible = True
Me.cmdStation.Visible = True
Me.lblPymtSched.Visible = True
Me.chldFsubRelPymtSchedDistrictSta.Visible = True
Else
Me.lblEventNum.Visible = True
Me.lblEventDate.Visible = True
Me.lblEventNature.Visible = True
Me.lblEventAddress.Visible = True
Me.lboEvent.Visible = True
Me.cboSelRefBy.Visible = True
Me.lblReferral.Visible = True
Me.lblDistrictSta.Visible = False
Me.cboSelDistrictSta.Visible = False
Me.lkupCheckPayableTo.Visible = False
Me.lblPymtSched.Visible = False
Me.lblParkingLots.Visible = False
Me.chldFsubRelLotClient.Visible = False
Me.chldFsubRelPymtSchedDistrictSta.Visible = False
Me.cmdStation.Visible = False
End If
End Sub

[bradp1979]

Ok, I named them as I said above, and I changed the code to read this:
Private Sub cboSelIndustry_AfterUpdate()
If Me.cboSelIndustry = 44 Then
Me.lblEventNum.Visible = False
Me.lblEventDate.Visible = False
Me.lblEventNature.Visible = False
Me.lblEventAddress.Visible = False
Me.lboEvent.Visible = False
Me.lblExpected.Visible = False
Me.lblParked.Visible = False
Me.lblPymtSched.Visible = False
Me.lblDistrictSta.Visible = False
Me.cboSelDistrictSta.Visible = False
Me.lkupCheckPayableTo.Visible = False
Me.chldFsubRelPymtSchedDistrictSta.Visible = False
Me.cmdStation.Visible = False
Me.lblParkingLots.Visible = True
Me.chldFsubRelLotClient.Visible = True
ElseIf Me.cboSelIndustry = 48 Then
Me.lblEventNum.Visible = False
Me.lblEventDate.Visible = False
Me.lblEventNature.Visible = False
Me.lblEventAddress.Visible = False
Me.lboEvent.Visible = False
Me.lblExpected.Visible = False
Me.lblParked.Visible = False
Me.lblParkingLots.Visible = False
Me.lblReferral.Visible = False
Me.cboSelRefBy.Visible = False
Me.cboSelReference.Visible = False
Me.txtReference.Visible = False
Me.chldfsubRelContactEntity!cboSelRank.Visible = True
Me.lblDistrictSta.Visible = True
Me.cboSelDistrictSta.Visible = True
Me.lkupCheckPayableTo.Visible = True
Me.cmdStation.Visible = True
Me.lblPymtSched.Visible = True
Me.chldFsubRelPymtSchedDistrictSta.Visible = True
Else
Me.lblEventNum.Visible = True
Me.lblEventDate.Visible = True
Me.lblEventNature.Visible = True
Me.lblEventAddress.Visible = True
Me.lboEvent.Visible = True
Me.lblExpected.Visible = True
Me.lblParked.Visible = True
Me.cboSelRefBy.Visible = True
Me.lblReferral.Visible = True
Me.lblDistrictSta.Visible = False
Me.cboSelDistrictSta.Visible = False
Me.lkupCheckPayableTo.Visible = False
Me.lblPymtSched.Visible = False
Me.lblParkingLots.Visible = False
Me.chldFsubRelLotClient.Visible = False
Me.chldFsubRelPymtSchedDistrictSta.Visible = False
Me.cmdStation.Visible = False
End If
End Sub

However, Cars Parked and Cars Expected are still visible no matter which industry is selected.

[bradp1979]

Here, try this FE. It may work better.

[June7]

Still get error opening form:

Compile error in query expression 'IIf(Not(IsNull([EntityName])) And IsNull([ClientName]),-1,[PrimaryContact]'.

Opening the form RecordSource query triggers error:

California Parking Valet Database can't represent the join expression tblClient.ClientID = qryContact.EntityID in Design view.

[bradp1979]

I'm not sure I can fix that one. I had to delete all of the sensitive information, and the client table, though left in place, by necessity was thoroughly gutted.

I'll work on it and get back to you.

Stupid question, did you delete all the tables and re-link them to the BE I sent?

[bradp1979]

I deleted all the tables, then linked the tables to the stripped down BE, and didn't get any error messages when opening up the client form.

[June7]

I did the relinking of course but did not delete the links, just relinked from Link Manager. All but one table (tblEmployee_bu) were found and linked. Tables open just fine, at least the ones I hit on.

I tried opening qryClient in datasheet view from navigation pane and get the compile error.

I tried opening qryClient In design view from navigation pane and get the error about join expression.

EDIT: Apparently not all tables relinked - but only tblEMployee_bu triggered error. So this time did delete all and set new links. Weird. Still get the same errors. Plus a new one when I try to close or open db: Invalid operation. I give up.

However, the new posted db still shows labels have same names as before (Label165 and Label166). These are not the names showing in your posted code. Code in db does not show these changes.

[bradp1979]

I'm still stumped on this one. The settings are all identical across the board, and the code has been written to mirror the other column headers that are either visible or not depending on the contact type, and am not getting positive results.

[June7]

Since I cannot open your form, cannot debug.

Have you step debugged?