Can't Make Form Visible, Again

Sep 20, 2005

Greetings. I have three forms that are open at the same time. They are related and cascading. The first form (frmEventAdd) is the anchor. Each event can have many Trials. The second form is frmTrialInfo. Each Trial can have three Classes. The third form is frmClassInfo. These forms are used for update and adding new records.

The user displays an event for update (frmEventAdd). Then clicks on a button to display the Trials for that event (opens frmTrialInfo). frmTrialInfo displays information for one Trial at a time. The user clicks on a button to display class information for that trial (frmClassInfo).

One of the fields on frmClassInfo is called cboJudge. It's a combobox with names of Judges (judges of dog competitions). The judge information in the combobox comes from two tables: tblPeople and tblJudges. If the user wants to add a new judge they may click on the btnNewJudge. btnNewJudge will open a form that is used to add a new person (frmPeople).

Because frmPeople is opened from many different points in the application, I found it easier to simply make the three, already opened, forms INVISIBLE.
So...command button btnNewJudge opens frmPeople and makes frmEventAdd, frmTrialInfo, and frmClassInfo INVISIBLE.

When frmPeople is closed (btnClose), it checks to see if each of the previously opened/visible windows is open and then makes each VISIBLE, again. frmEventAdd and frmTrialInfo reappear just fine. However frmClassInfo does not.

I have traced the btnClose_Click routine in frmPeople and it certainly looks like every line of code is being hit, but the line that should make frmClassInfo visible does not do anything (nor does it generate any error).

Here is the code from btnClose_Click in frmPeople. Can you help me?

********************************************

Private Sub btnClose_Click()
On Error GoTo Err_btnClose_Click

Dim blnEventAdd_Open As Boolean
Dim blnTrialInfo_Open As Boolean
Dim blnClassInfo_Open As Boolean

blnSecondChance = False

If blnDataChanged = True Then
If DataHasChanged() = vbYes Then
Call btnSave_Click
End If
End If

'================================================= =======================================
'blnSecondChance=False = NO SECOND CHANCE ... Close this Form
'blnSecondChance=True = USER GETS A SECOND CHANCE ... Do NOT Close this Form
'================================================= =======================================
If blnSecondChance = False Then
'Zero out Relative Record Number from Array
svRecNo(intCallerIX) = 0
blnDoUpdate = False
blnDataChanged = False
DoCmd.Close acForm, Me.Name

'Is the frmEventAdd form open?
blnEventAdd_Open = SysCmd(acSysCmdGetObjectState, acForm, "frmEventAdd") And _
acObjStateOpen

'Is the frmTrialInfo form open?
blnTrialInfo_Open = SysCmd(acSysCmdGetObjectState, acForm, "frmTrialInfo") And _
acObjStateOpen

'Is the frmClassInfo form open?
blnClassInfo_Open = SysCmd(acSysCmdGetObjectState, acForm, "frmClassInfo") And _
acObjStateOpen

If blnEventAdd_Open Or blnTrialInfo_Open Or blnClassInfo_Open Then
If blnEventAdd_Open Then
Forms("frmEventAdd").Visible = True
Forms("frmEventAdd")!cboContact.Requery
Forms("frmEventAdd")!cboSecretary.Requery
End If

If blnTrialInfo_Open Then
Forms("frmTrialInfo").Visible = True
Forms("frmTrialInfo")!cboTrialRep.Requery
End If

If blnClassInfo_Open Then
Forms("frmClassInfo").Visible = True
Forms("frmClassInfo")!cboJudge.Requery
End If

intCallerIX = intCallerIX - 1
Else
DoCmd.OpenForm PopCaller(), acNormal
End If
End If

Exit_btnClose_Click:
Exit Sub

Err_btnClose_Click:
Call ShowError("frmPeople", "btnClose_Click", Err.Number, Err.Description)
Resume Exit_btnClose_Click

End Sub

******************************************
Regards,
SueB

View Replies


ADVERTISEMENT

Modules & VBA :: Make Controls Visible Or Not Visible?

Mar 24, 2015

I have a Main Form with a Sub-Form, the sub-form is base off a query. on the sub-form i have 8 controls, one of them is "Status' and "Process" and "Review" My Main Form have a Refresh command that refreshes the data in the sub-form.

What i am trying to do is make the "Process" Control only visible is "Status" is a certain status and "Review" visible if "Status" is something else. what i have done works correctly On Open. I run into and issue on the refresh command. I get Run-time error '2165' "You can't hide a control that has the focus"

Code:
If Forms!Main_Form.[Name subform]!Status = "Ready" Then
Forms!Main_Form.[Name subform]!Process.Visible = True
Forms!Main_Form.[Name subform]!Review.Visible = False
ElseIf Forms!Main_Form.[Name subform]!Status = "Reviewing" Then
Forms!Main_Form.[Name subform]!Review.Visible = True
Forms!Main_Form.[Name subform]!Process.Visible = False
End If

I have done similar with a main form and making sub-form visible or not based on a control on a main form and that has worked perfectly. I am not sure how the control is getting focus and cause the error.

View 4 Replies View Related

Modules & VBA :: Unable To Make A Label Visible On A Form During Print

May 9, 2014

I am trying to make a label visible on a form during print if a field has "like a string". We use a form so that it prints 3 forms to one page (They are tags for units for repair). I can get the label to be visible in the form view but when I print, the label is visible on every record where it is only visible on the current record in form view. My goal is to have the label only show on those records where the condition is met.

Here is my code that works in form view only: (It is to designate easier a warranty tag from a new repair tag)

Code:
If Me.Problem_Description Like "Warr*" Then
Me.lbl_w.Visible = True
Else
Me.lbl_w.Visible = False
End If

I have attached an image of a tag sheet Tag_Sheet_W.jpg. As you can see if I got my desired result only the first tag would have a W.

View 1 Replies View Related

Make Command Button Visible Based On Value Of Control On Another Form

Feb 27, 2015

Form 1: I have a combo box on my main menu(MenuMainF) called cboCompanyType with typical values 1,2,3,4,5,etc......

Form 2: I have a command button on my administration menu(MenuAdminF) called cmdDevelopment

My goal is to have the cmdDevelopment button of Form 2 be visible if cboCompanyType on Form 1 is equal to 1,2,3, or 4, but if it is any other value, then cmdDevelopment should be not visible.

View 1 Replies View Related

How To Make Tables Visible

Apr 6, 2007

hey guys i was just wondering if anyone knew the code to make a table visible via changing a combo box. i know for a form its simply
Form_formname.visible=True

View 2 Replies View Related

Make A Button Visible??!!

Feb 21, 2005

Hi,

What is the code for the following problem that am I having:

When I click on a button (button1) then I want to make another button (button2) visible.

Thanks for your help in advance!!

Paul.

View 5 Replies View Related

Make Tabctl Visible

May 29, 2005

i am trying to make my tab control visible, after i did it visible=false in the open form event.
the problem is that the button that supposed to open the tab control is locates in a form and the tab control is located as a sub form.
it doesnt recognize any version of writing that i am trying.

details:
main form - "f_1"
sub form - "f_2"
the btn - btn1 (located in the main form)
the tabctl - tblctrl1 (located in the sub form)

please advice

View 1 Replies View Related

Make Only One Of Several Subforms Visible

Apr 27, 2006

Hello all.

I have orders being entered, some of which may be in any one of several categories for which we need additional information. I would like to be able to have either a set of checkboxes answering the question "Check the appropriate box if the order is one of the following types" ... or ... have a radio-button selection where only one can be chosen at a time. That is important... that only one be able to be chosen at a time. It is possible to have orders outside this set of choices, and no selection made at all. Once the selection is made, I'd like either the appropriate fields to show in the main form... or ... have the appropriate subform show based on the entry from the checkboxes or radio selection.


I could have

OrderEntryForm containing
checkboxes or radio selection for Type1, Type2, Type3 with the appropriate Type1fields, Type2fields, and Type3fields hidden until the right checkbox or radio button is selected.

or

OrderEntryForm containing
checkboxes or radio selection for Type1, Type2, Type3 with the appropriate subforms Type1form, Type2form, and Type3form hidden until the right checkbox or radio button is selected.


There's only one problem: I have no idea how to make this happen... nor which way of doing this is best. Any help is GREATLY appreciated.

Tom

View 3 Replies View Related

Make Field On Subform Not Visible

Mar 17, 2005

I have a form with a subform. I would like to make a field on the subform not visible if a field on the primary field is null. Can anyone help? Thanks.

View 1 Replies View Related

Make A Text Box Visible On Cmd Button

Aug 27, 2006

Hi, I have a form with a INFO button, what I need is when the info button is pressed a text box becomes visible on the form and when pressed again the text box become not visible, this will allow the final user the have additional information regading compiling the form etc!
Thanks
Marco

View 5 Replies View Related

Modules & VBA :: How To Make Access Visible

Apr 27, 2014

From Excel, I open a database and start a macro with the following:

Set oApp = CreateObject("Access.Application")
oApp.Visible = False
oApp.OpenCurrentDatabase db, True
oApp.DoCmd.RunMacro "Import_Data"

With the macro running and Access not visible, how can I make the database visible if an error occurs in the macro? Currently, if an error occurs in the macro, a 'Msgbox' message is generated (by the database macro). But with Access not visible and Excel visible, the process cannot continue unless the user knows to click on the 'Microsoft Access' icon in the task bar to bring Access to foreground and acknowledge the 'Msgbox' message.

I'd like to activate the Access window from within the database macro.

View 3 Replies View Related

Can Selecting A Combo Box Make A Text Box Visible Again

Sep 29, 2005

Hi,
Is it possible when choosing a combo box to have it make a text box visible, when in this text boxes properties you've chosen visible=NO. Can an event procedure or some code be written that will make visible=YES.

Thanks any help with be greatly appreciated

View 1 Replies View Related

Onformat For Report Make Visible Is Not Null

Aug 13, 2005

I want my fields on the report to show up if there is data to show and to disappear if no data is avaliable. Also, will the fields format together or will they still stay apart? I need them closer together for the report.

Here we go.

In the report are months 1, 2 and 3 as well as the label box for each. I need the label box and the data(text box) to disappear when the data box is null. This is where I had started:

Private Sub GroupHeader1_Format(Cancel As Integer, FormatCount As Integer)

If Not IsNull(Me.Ctl1_Month) Then Me.Ctl1_Month.Visible = True
Else
Me.Ctl1_Month.Visible = False
End If


End Sub

But when I try and run the report I get this error:
Can't Execute Code in Design Mode.

Can someone help as to what I have done wrong or where I should place this type of format?

Many thanks.

View 8 Replies View Related

Can Selecting A Combo Box Make A Text Box Visible Again?

Sep 30, 2005

Hi,
Is it possible when choosing a combo box to have it make a text box visible, when in this text boxes properties you've chosen visible=NO. Can an event procedure or some code be written that will make visible=YES.

Thanks any help with be greatly appreciated

View 1 Replies View Related

Forms :: Make Visible When Field Is Not Empty

Oct 6, 2013

I've got a memo field on a form where the name is TextEXTRA

The Control Source for TextEXTRA is EXTRA.

I've got a box called BoxSHOW (Visible = No)

As I browse through records or find records, I want the box to become visible when there is something in the EXTRA field and become invisible when the EXTRA field is empty. This is what I've tried .....

Private Sub Form_Current()
If EXTRA Is Not Null Then
BoxSHOW.Visible = True
End If
End Sub

I tried many variations on the first line such as ...

Me.EXTRA "EXTRA" TextEXTRA

but I always get errors.

View 5 Replies View Related

Forms :: How To Make Combo Box Visible When Click On Label

Sep 28, 2014

i have a label and a combobox (the combobox is invisibile). in a form.

how do i make the combobox visibile when i click on the label?

View 2 Replies View Related

Reports :: Make Yes / No Checkbox Visible On Printed Report

Aug 28, 2014

I have a form with a Yes/No checkbox. Sometimes a data entry person will use this, sometimes an associated report is printed and a technician in the field will be required to fill check the box by hand and return the report for data entry. what I have tried to format the check box, if the box isn't already checked, I can't get it to show up clearly on the printed report. It's set to Visible, width 6pt, solid, black, always display, yet it still is barely visible. Ive tried increasing the grid line thicknesses, making it shadowed, nothing seems to work. Is there anything I can do?

View 9 Replies View Related

Reports :: How To Make Label Visible Depending On Text Box Value

Jul 27, 2014

I have a report that displays on a continuous style report. What courses the employee have been on and when they expire

right I have field call expirydate and another call dayover showing the number of days till that course has expired also I have made a label called Expired1

now what I'm trying to do.....

if the expirydate has passed I want the expired1 label to be visible and dayover field to become invisible

I have tried

Code:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Expirydate < Date Then
Me.expired1.Visible = True
Me.DaysOver.Visible = False
End If
If Me.Expirydate > Date Then
Me.expired1.Value = False
Me.DaysOver.Value = True
End If

I have also tried the code on current event on the report

now my problem if one of the course has expired it will show the label called Expired1 but on all the records but I only want it to display on the record that has expired and leave the daysover text box visible if course has not expired

View 7 Replies View Related

How To Make Total Rows In Query Permanently Visible

Aug 29, 2011

How do I make the 'total rows' in query permanently visible? Right now, every single time when I click on to my query, I will have to go to HOME---> RECORDS ---> TOTALS then the Total row will appear. And when I export that query, the TOTAL ROW is missing. how to make the total rows visible always?

View 4 Replies View Related

Make Reports Visible When Reach A Certain Count (60 Days)

Jul 31, 2013

I have 2 tables on one report, 1 is visible, the other visible = no, Is there a way to make that visible = yes when you reach a certain count (60days)...

View 1 Replies View Related

Forms :: Select Via Combobox - Make Numerous Controls Visible

Sep 18, 2013

I have a form where i select via a combo box if a product has been inspected, if it has, additional controls are then made visible.

If Me.Inspection_Completed = "Yes" Then
Me.Date_Inspection_Comp.Visible = True
Me.Date_Inspection_Comp = Me.Dateinsp
Me.Inspector.Visible = True
Me.Qty_Inspected.Visible = True
Me.OK.Visible = True

[Code] ....

I tried to put this in a function so i could call it on load, or on current etc, but cant seem to get it to work, apparently you cannot use the me. in a function.

View 4 Replies View Related

Modules & VBA :: How To Make Label Visible On A Report If A Textbox Is Empty

May 10, 2014

I'm working on a report. I have a text box that contains directory path for a picture which is showed in a image box on my report which works great. I have now created a label called "nopiclb" that has "no Pic "entered in it but I want to set the label to not visible if path1 has a file path in it but visible if path1 is empty

I put the code below in onformat event in the detail section, but is not working

Code:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(Me.path1) = True Or Me.path1 = "" Then
Me.Nopiclb.Visible = True
Else
Me.Nopiclb.Visible = False
End If
End Sub

View 3 Replies View Related

General :: Using Combobox Selection In IF Statement To Make Another Text Box Visible

Aug 28, 2012

I have a combobox [CBreason] that reads from a table to show me why someone is gaining access to the building.

One of the options is "Incident".

When incident is selected I want a textbox [TBIncidentNo] and a button[BIncidentDup] control I made to appear.

I thought that the code:

If Me.CBReason.Value = "Incident" Then
Me.CBIncidentNo.Visible = True
Me.BIncidentDup.Visible = True
Else
Me.CBIncidentNo.Visible = False
Me.BIncidentDup.Visible = False
End If

Placed in the after update action of the CBReason box would sufice but it doesnt work

I'm guessing the value is not recognised fro some reason but i cant work out why. There is no error message or issus, it makes the box dissapear when there is no entry but no change for selecting incident.

View 3 Replies View Related

Reports :: Null Date Field - Make Entire Entry Not Visible On Report

Dec 16, 2013

I am building a report that has a header with several details followed by a detail section.

What I need to do is make the entire entry not visible on the report if one of the dates is null.

So it looks like this

last first title id memb # date a date b
1. smith , john fng 8521 2356224
5/12/2012 6/20/2013
10/2/2013 (is null)

2. neckbone, jim dude 2548 85858412
6/20/2013 5/5/2014
8/5/2013 2/31/2013

On the report i want the 1st entry (smith john) not to be visible due to the null (B) Date.... but i want it to be visible once the date is entered...

View 2 Replies View Related

Modules & VBA :: Write A Loop To Make Certain Elements In Access Report Visible / Invisible

Aug 23, 2013

I am trying to improve my code by making it more readible. The following code works, but it is certainly not the most efficient way. I`m trying to write a loop to make certain elements in an Access report visible/invisible, but I can`t address the visibility property of these items while iterating over i.

Code:
DoCmd.OpenReport "tblInterval subreport", acViewDesign, , , acHidden
Reports![tblInterval subreport]!BoxInsp1.Visible = False
Reports![tblInterval subreport]!BoxInsp2.Visible = False
Reports![tblInterval subreport]!BoxInsp3.Visible = False

[code]...

View 2 Replies View Related

Choosing Fields From Combo Box To Make Fields Visible

Aug 30, 2004

I have a combo box linked to a look-up table. There are 8 fields in the look-up table but only if one of three is chosen do I want additional combo boxes to become visible. Do I put the code in the "after update" or "on change" event of the combo box and how do I express the code-

If TechniqueCombo="caudal" or "spinal" or "epidural" then
TextNeedleType.Visible=True

(am I close??)

Thanks

View 4 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved