Kamis, 09 Mei 2019

RE: [MS_AccessPros] Visible Property

 

 

Duane,

The below code works.   

 

Me.sf_Dependents.Visible = DCount("*", "t_dependents", "DepEmpID = " & "EmpempID") > 0

 

 

I tried the variation with the  Me.   And it went to error.

The error was

Run-Time error ‘3075’:

Syntax error (missing operator) in query expression ‘DepEmpID =’.

 

Have a good evening.

 

Bill

 

Bill Singer

 

 

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com>
Sent: Thursday, May 9, 2019 6:20 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Visible Property

 

 

Bill,

The code you provided shouldn't work with the string  “EmpEmpID”.

Me.sf_Dependents.Visible = DCount("*", "t_dependents", "DepEmpID = " & “EmpEmpID”) > 0

I expect it is actually:

Me.sf_Dependents.Visible = DCount("*", "t_dependents", "DepEmpID = " & Me.EmpEmpID) > 0

 

Note I added the Me. to identify the source of EmpEmpID.
Duane

 


From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Bill.Singer@at-group.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Thursday, May 9, 2019 4:53 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] Visible Property

 

 

Duane,

Got it. See Below,

Thanks.

Did a little reading on DCount, it has been a while.

 

 

Private Sub Form_Current()

 Me.sf_Dependents.Visible = DCount("*", "t_dependents", "DepEmpID = " & “EmpEmpID”) > 0

 

 

End Sub

 

 

 

 

Bill

 

Bill Singer

 

 

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com>
Sent: Thursday, May 9, 2019 4:26 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Visible Property

 

 

Bill,

I would probably not bind the control to a field since you can use DCount() to determine if there are any dependents. I would probably just use a small command button to display the subform to add the first dependent. After that, the code I provide should suffice to display the subform if needed.

 

Duane

 


From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Bill.Singer@at-group.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Thursday, May 9, 2019 4:12 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] Visible Property

 

 

Duane,

Good point. Since the options box is unbound there will not be a saved field to change the visibility of the sub-form when scrolling through the records.

 

I think I am going to change this and make the options box bound to field that goes to the table so that the value is saved and the sub-form will show or not show based on the options box. 

 

I will have to mess around with it and see what works best.

 

Thanks, I am betting I will be back.

 

Bill

 

Bill Singer

 

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com>
Sent: Thursday, May 9, 2019 8:49 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Visible Property

 

 

Hi Bill,

 

I would assume that you want to toggle the visibility of sf_Dependents based on if there are any dependents as you open or move through records on the main form. Try the following. Add breakpoints if it doesn't work as expected so you can step through the code.

 

The On Current event look something like:

  

  Me.sf_Dependents.Visible = DCount("*","Your Dependents Table Name","LinkingFieldName = " & LinkingFieldFromMain) >0

 

  'Assuming linking field is numeric

  If  DCount("*","Your Dependents Table Name","LinkingFieldName = " & LinkingFieldFromMain) >0

      Me.OptAnyDep = 1

     Else

       Me.OptAnyDep = 2   

  End If 

 

 

Your code in the Update of OptAnyDep would be:

 

Me.sf_Dependents.Visible = Me.OptAnyDep = 1

 

Regards.

Duane

 


From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of 'Bill Singer' Bill.Singer@at-group.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Wednesday, May 8, 2019 8:57 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] Visible Property

 

Duane,

I should have provided that information.

 

The options box is unbound, but I can change that if you think it is a good
idea.

 

The name that comes up when I click on the frame is  OptAnyDep

The Yes button is called   OptionYes   ,   returns a 1

The No button is called  OptionNo     ,   returns a 2

 

I hope I covered what you needed and what you meant by the name of the
options group.   Do I have to keep the Frame around the buttons for it to be
a Group?

 

The subform that contains the information on the dependents is called
sf_Dependents

 

 

Bill

 

Bill Singer

Group Benefits Consultant

Phone: 763-754-8898

Fax: 763-754-8496

Toll Free: 877-902-8898

 <mailto:Bill.Singer@at-group.net> Bill.Singer@at-group.net



 

From: MS_Access_Professionals@yahoogroups.com
<MS_Access_Professionals@yahoogroups.com>
Sent: Wednesday, May 8, 2019 7:35 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Visible Property

 

 

Hi Bill,

An options group returns a number. Is this bound to a field in the forms
record source? What is the name of the option group? What is the name of the
subform control?

 

Duane

 

Get Outlook for iOS <https://aka.ms/o0ukef>

  _____ 

From: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals@yahoogroups.com>
<MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals@yahoogroups.com> > on behalf of
Bill.Singer@at-group.net <mailto:Bill.Singer@at-group.net>
[MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals@yahoogroups.com> >
Sent: Wednesday, May 8, 2019 4:54:23 PM
To: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals@yahoogroups.com>
Subject: [MS_AccessPros] Visible Property

 

I have Access 365 and am starting a new project so I think you will be
hearing more of me.

 

I am creating a health insurance enrollment database..

Here is the first issue.

 

If a person is single, with no dependents the form is shorter.

 

If the person has dependents I will need them to fill in the depends
information on a Sub Form.  I do not want the sub form to be visible unless
the new employee indicates they have dependent.   I am asking the question
on the form and the employee is to respond using an  Options box with the
"Yes" or "No" as their choices.  If they check no to the question then they
just continue on.  If they check Yes, I want the Sub Form to appear..   What
is the best way to change the "Visible" Property of the sub form after the
options box input. 

 

A macro?

Code?   A quick sample is always best for me.

 

Thanks,

 

Bill

 

Bill Singer

Minnesota

 





[Non-text portions of this message have been removed]



------------------------------------
Posted by: "Bill Singer" <bill.singer@at-group.net>
------------------------------------


------------------------------------

Yahoo Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/MS_Access_Professionals/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/MS_Access_Professionals/join
    (Yahoo! ID required)

<*> To change settings via email:
    MS_Access_Professionals-digest@yahoogroups.com
    MS_Access_Professionals-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
    MS_Access_Professionals-unsubscribe@yahoogroups.com

<*> Your use of Yahoo Groups is subject to:
    https://info.yahoo.com/legal/us/yahoo/utos/terms/

 

 

__._,_.___

Posted by: "Bill Singer" <bill.singer@at-group.net>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (10)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


SPONSORED LINKS
.

__,_._,___

Tidak ada komentar:

Posting Komentar