Tag Property

[Ann]

Hi,

First let me say I'm not a programmer so I appreciate any help that is
offered.

Someone has helped me with the code below. Each tag property on each
control has either a 10 for Low Risk, 100 for Medium Risk and 1000 for High
Risk. Each control has an AfterUpdate event that will call the sub Risk.
This then will populate the txtRisk control which will put the appropriate
checkmark in an option group checkbox. The problem is that they are all high
because it's added all of them not just those that are checked. How do I get
it to only add the value in the tag property to the RiskValue if the checkbox
is checked? Thank you again for any help I receive.

Public Sub Risk()

Dim RiskValue As Integer

RiskValue = RiskValue + CInt([Forms]![Main]![SSN].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Name].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![DOB].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Address].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Phone].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]!.Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Med Record].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![HP Beneficiary].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Account].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Certificate].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![License].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Full Face Photo].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Vehicle].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Web URL].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Internet Address].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Finger Print].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Voice Print].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Health Info].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Other].Tag)

If RiskValue > 1000 And RiskValue < 8480 Then
txtRisk = 1
End If

If RiskValue > 100 And RiskValue < 480 Then
txtRisk = 2
End If

If RiskValue > 0 And RiskValue < 80 Then
txtRisk = 3
End If

End Sub

 

[Jack Leach]

If Nz(Me.CheckBox, False) Then RiskValue = RiskValue +
CInt([Forms]![Main]![SSN].Tag)


Watch out for the word wrap, the above is supposed to be one line.

In all honesty I would probably go about this whole thing in a different
manner, but it works as is, so...

Just check the value of the checkbox. If it's checked the RiskValue will be
added.

This assumes that the name of your check box is CheckBox. Say the name of
your check box is chkSSN, then it would look like:

If Nz(Me.chkSSN, False) Then RiskValue = RiskValue.....


etc


hth
--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)

Hi,

First let me say I'm not a programmer so I appreciate any help that is
offered.

Someone has helped me with the code below. Each tag property on each
control has either a 10 for Low Risk, 100 for Medium Risk and 1000 for High
Risk. Each control has an AfterUpdate event that will call the sub Risk.
This then will populate the txtRisk control which will put the appropriate
checkmark in an option group checkbox. The problem is that they are all high
because it's added all of them not just those that are checked. How do I get
it to only add the value in the tag property to the RiskValue if the checkbox
is checked? Thank you again for any help I receive.

Public Sub Risk()

Dim RiskValue As Integer

RiskValue = RiskValue + CInt([Forms]![Main]![SSN].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Name].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![DOB].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Address].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Phone].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]!.Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Med Record].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![HP Beneficiary].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Account].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Certificate].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![License].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Full Face Photo].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Vehicle].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Web URL].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Internet Address].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Finger Print].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Voice Print].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Health Info].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Other].Tag)

If RiskValue > 1000 And RiskValue < 8480 Then
txtRisk = 1
End If

If RiskValue > 100 And RiskValue < 480 Then
txtRisk = 2
End If

If RiskValue > 0 And RiskValue < 80 Then
txtRisk = 3
End If

End Sub[/QUOTE]

 

[Linq Adams via AccessMonster.com]

Ann, please do not double post questions. It is considered very poor
netiquette and can cause the people volunteering to help you to waste their
time, giving answers that have already been supplied in the duplicate post.

The Forty-five minutes between your first and second post is not really an
inordinate amount of time to go without a response. The people supplying
answers here are volunteering their time, and the number on board at any
given time comes and goes, both with the time of day and other obligations
posters have.

If you feel that your question has fallen so far down the queue as to not
attract attention, the proper thing to do is simply post a replay saying
"bump." This "bumping of the thread will bring it back up to the top of the
queue, but really shouldn't be done until the thread has been out there for
an hour or two.

Thanks for your attention in this matter.

 

[Dirk Goldgar]

If you feel that your question has fallen so far down the queue as to not
attract attention, the proper thing to do is simply post a replay saying
"bump." This "bumping of the thread will bring it back up to the top of
the
queue, but really shouldn't be done until the thread has been out there
for
an hour or two.

An hour or two? I think at least a day should go by before one attempts to
bump or repost a message.

By the way , bumping doesn't always, work depending on how the messages are
being read. With my newsreader, grouping by thread, bumping accomplishes
nothing.

 

[David C. Holley]

She's working with 20 check boxes that have different weights depending on
which category that they're in High, Medium, or Low. All 20 checkboxes can
be checked or one or any number in between. Based on which checkboxes are
checked, the intent is to determine Risk Level. Currently, the business rule
is that if any check box in the high category is checked, the overall risk
is High. If any checkbox in the medium category is checked, the overall risk
is Medium, unless its High. Finally, if a Low checkbox is checked, the risk
factor is Low, unless its Medium or Low.

However, given that the business rule could change as well as others could
be added, I came up with an approach that's intended to be flexible thus
making things easier.

Each of the checkboxes are assigned a value via the Tag property. 10 if its
in the Low category, 100 if its in the Medium category, 1000 if its in the
High category. This gives a mathmatical means by which to determine if the
Risk Level should be High, Medium, or Low regardless of the combination of
checked boxes that are checked.

If a single checkbox in the High category is checked, the calculated value
will be 1000.
If a single checkbox in the Medium category is checked, the calculated value
will be 100.
If a single checkbox in the Low category is checked, the calculated value
will be 10.

From there we can derive which ranges indicate that the Risk Level should be
high, medium, or low.
If all of the check boxes in the Low category are checked, the value will
never be greater than 80. (There are eight in that category)
If all of the check boxes in the Medium & Low categories are checked, the
value will never be greater than. 480. (4 in the medium category with a
value of 100 each plus the 8 in the low category with a value of 10 each).

That gives us the If...thens that you see below.

Naturally if a check box is added, changed or removed, the math has to be
reworked, but conceptually the only impact to the actual code should be to
change the If..thens or add additional ones if more rules are added.

If Nz(Me.CheckBox, False) Then RiskValue = RiskValue +
CInt([Forms]![Main]![SSN].Tag)


Watch out for the word wrap, the above is supposed to be one line.

In all honesty I would probably go about this whole thing in a different
manner, but it works as is, so...

Just check the value of the checkbox. If it's checked the RiskValue will
be
added.

This assumes that the name of your check box is CheckBox. Say the name of
your check box is chkSSN, then it would look like:

If Nz(Me.chkSSN, False) Then RiskValue = RiskValue.....


etc


hth
--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)

Hi,

First let me say I'm not a programmer so I appreciate any help that is
offered.

Someone has helped me with the code below. Each tag property on each
control has either a 10 for Low Risk, 100 for Medium Risk and 1000 for
High
Risk. Each control has an AfterUpdate event that will call the sub Risk.
This then will populate the txtRisk control which will put the
appropriate
checkmark in an option group checkbox. The problem is that they are all
high
because it's added all of them not just those that are checked. How do I
get
it to only add the value in the tag property to the RiskValue if the
checkbox
is checked? Thank you again for any help I receive.

Public Sub Risk()

Dim RiskValue As Integer

RiskValue = RiskValue + CInt([Forms]![Main]![SSN].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Name].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![DOB].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Address].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Phone].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]!.Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Med Record].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![HP Beneficiary].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Account].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Certificate].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![License].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Full Face Photo].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Vehicle].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Web URL].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Internet Address].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Finger Print].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Voice Print].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Health Info].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Other].Tag)

If RiskValue > 1000 And RiskValue < 8480 Then
txtRisk = 1
End If

If RiskValue > 100 And RiskValue < 480 Then
txtRisk = 2
End If

If RiskValue > 0 And RiskValue < 80 Then
txtRisk = 3
End If

End Sub[/QUOTE][/QUOTE]

 

[Jack Leach]

I was under the impression that op had a check box next to each control that
it was to be calculated for, and wanted the risk calculated for that control
only if the checkbox next to it was checked. Based on the description, every
control already has a value set to it (via the Tag property). But when sub
Risk is running, it is adding the value of every check box because there's no
way for it to differentiate betweens one's that should be included in the
tally. It seemed to me that op wanted to know the overall risk for the whole
(the tally of all controls that are checked to calculate the overall risk).

In any case, the whole approach seems wrong to me. Generally you don't try
and perform this type of calculations from a form interface using tags on a
control. It sounds to me (although it is difficult to tell exactly what
she's doing), that she should have a table set up for risk factor for each of
these predefined fields (because the risk factor stored in the tag for the
control is not changing....), which can then be queried behind the form to
display, on a record by record basis, what the total risk value is for based
on the selected (checked) controls used. It would certainly be a far more
efficient way to handle it.

But anyway, that's my take. I'm sure someone will get it figured out.

--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)

She's working with 20 check boxes that have different weights depending on
which category that they're in High, Medium, or Low. All 20 checkboxes can
be checked or one or any number in between. Based on which checkboxes are
checked, the intent is to determine Risk Level. Currently, the business rule
is that if any check box in the high category is checked, the overall risk
is High. If any checkbox in the medium category is checked, the overall risk
is Medium, unless its High. Finally, if a Low checkbox is checked, the risk
factor is Low, unless its Medium or Low.

However, given that the business rule could change as well as others could
be added, I came up with an approach that's intended to be flexible thus
making things easier.

Each of the checkboxes are assigned a value via the Tag property. 10 if its
in the Low category, 100 if its in the Medium category, 1000 if its in the
High category. This gives a mathmatical means by which to determine if the
Risk Level should be High, Medium, or Low regardless of the combination of
checked boxes that are checked.

If a single checkbox in the High category is checked, the calculated value
will be 1000.
If a single checkbox in the Medium category is checked, the calculated value
will be 100.
If a single checkbox in the Low category is checked, the calculated value
will be 10.

From there we can derive which ranges indicate that the Risk Level should be
high, medium, or low.
If all of the check boxes in the Low category are checked, the value will
never be greater than 80. (There are eight in that category)
If all of the check boxes in the Medium & Low categories are checked, the
value will never be greater than. 480. (4 in the medium category with a
value of 100 each plus the 8 in the low category with a value of 10 each).

That gives us the If...thens that you see below.

Naturally if a check box is added, changed or removed, the math has to be
reworked, but conceptually the only impact to the actual code should be to
change the If..thens or add additional ones if more rules are added.

If Nz(Me.CheckBox, False) Then RiskValue = RiskValue +
CInt([Forms]![Main]![SSN].Tag)


Watch out for the word wrap, the above is supposed to be one line.

In all honesty I would probably go about this whole thing in a different
manner, but it works as is, so...

Just check the value of the checkbox. If it's checked the RiskValue will
be
added.

This assumes that the name of your check box is CheckBox. Say the name of
your check box is chkSSN, then it would look like:

If Nz(Me.chkSSN, False) Then RiskValue = RiskValue.....


etc


hth
--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)

Hi,

First let me say I'm not a programmer so I appreciate any help that is
offered.

Someone has helped me with the code below. Each tag property on each
control has either a 10 for Low Risk, 100 for Medium Risk and 1000 for
High
Risk. Each control has an AfterUpdate event that will call the sub Risk.
This then will populate the txtRisk control which will put the
appropriate
checkmark in an option group checkbox. The problem is that they are all
high
because it's added all of them not just those that are checked. How do I
get
it to only add the value in the tag property to the RiskValue if the
checkbox
is checked? Thank you again for any help I receive.

Public Sub Risk()

Dim RiskValue As Integer

RiskValue = RiskValue + CInt([Forms]![Main]![SSN].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Name].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![DOB].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Address].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Phone].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]!.Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Med Record].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![HP Beneficiary].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Account].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Certificate].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![License].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Full Face Photo].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Vehicle].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Web URL].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Internet Address].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Finger Print].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Voice Print].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Health Info].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Other].Tag)

If RiskValue > 1000 And RiskValue < 8480 Then
txtRisk = 1
End If

If RiskValue > 100 And RiskValue < 480 Then
txtRisk = 2
End If

If RiskValue > 0 And RiskValue < 80 Then
txtRisk = 3
End If

End Sub[/QUOTE][/QUOTE]


.
[/QUOTE]

 

[Dale Fye]

Ann,

There seems to be some question regarding whether you have a checkbox next
to each of these fields, or associated with each of these fields. If so,
then you could do something like:

Dim frm as form
Set frm = forms("Main")

RiskValue = 0
RiskValue = RiskValue + (abs(me.chkSSN) * Cint(frm.ssn.tag))
RiskValue = RiskValue + (abs(me.chkName) * Cint(frm.Name.tag))
RiskValue = RiskValue + (abs(me.chkDOB) * Cint(frm.DOB.tag))
....

 

[David C. Holley]

I've been in email contact with her and did point out the issue of not
having the If...Thens.

I went with the approach that I did as I felt that it provided the greatest
flexibility in the event that the business rules changed and one that was
the simplist in terms of the code. If a lookup table were used, you'd still
have to have something in place to determine if a given dimension falls into
the High, Medium, Low categories and you'd have to have logic inplace for
the general rules - that anything in a High category automatically makes the
Risk Level - High, anything in the Medium category makes the Risk Level -
Medium. While this would work in the short term, given that the rules are
simple at this point, what if there's a rule that says if there's one Medium
and two Lows, the Risk Factor is High? You could certainly use a lookup
table and then just add a new record for each rule, but you'd also have to
implement security and there are the issues of duplicating the rules and
managing them general. 20 check boxes gives us 1,048,576 possible
combinations and thus that number of potential rules.

Buzz me at David.C.Holley using the same provider and I'll forward the Excel
spreadsheet that was used to work out the logic.

I was under the impression that op had a check box next to each control
that
it was to be calculated for, and wanted the risk calculated for that
control
only if the checkbox next to it was checked. Based on the description,
every
control already has a value set to it (via the Tag property). But when
sub
Risk is running, it is adding the value of every check box because there's
no
way for it to differentiate betweens one's that should be included in the
tally. It seemed to me that op wanted to know the overall risk for the
whole
(the tally of all controls that are checked to calculate the overall
risk).

In any case, the whole approach seems wrong to me. Generally you don't
try
and perform this type of calculations from a form interface using tags on
a
control. It sounds to me (although it is difficult to tell exactly what
she's doing), that she should have a table set up for risk factor for each
of
these predefined fields (because the risk factor stored in the tag for the
control is not changing....), which can then be queried behind the form to
display, on a record by record basis, what the total risk value is for
based
on the selected (checked) controls used. It would certainly be a far more
efficient way to handle it.

But anyway, that's my take. I'm sure someone will get it figured out.

--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)

She's working with 20 check boxes that have different weights depending
on
which category that they're in High, Medium, or Low. All 20 checkboxes
can
be checked or one or any number in between. Based on which checkboxes are
checked, the intent is to determine Risk Level. Currently, the business
rule
is that if any check box in the high category is checked, the overall
risk
is High. If any checkbox in the medium category is checked, the overall
risk
is Medium, unless its High. Finally, if a Low checkbox is checked, the
risk
factor is Low, unless its Medium or Low.

However, given that the business rule could change as well as others
could
be added, I came up with an approach that's intended to be flexible thus
making things easier.

Each of the checkboxes are assigned a value via the Tag property. 10 if
its
in the Low category, 100 if its in the Medium category, 1000 if its in
the
High category. This gives a mathmatical means by which to determine if
the
Risk Level should be High, Medium, or Low regardless of the combination
of
checked boxes that are checked.

If a single checkbox in the High category is checked, the calculated
value
will be 1000.
If a single checkbox in the Medium category is checked, the calculated
value
will be 100.
If a single checkbox in the Low category is checked, the calculated value
will be 10.

From there we can derive which ranges indicate that the Risk Level should
be
high, medium, or low.
If all of the check boxes in the Low category are checked, the value will
never be greater than 80. (There are eight in that category)
If all of the check boxes in the Medium & Low categories are checked, the
value will never be greater than. 480. (4 in the medium category with a
value of 100 each plus the 8 in the low category with a value of 10
each).

That gives us the If...thens that you see below.

Naturally if a check box is added, changed or removed, the math has to be
reworked, but conceptually the only impact to the actual code should be
to
change the If..thens or add additional ones if more rules are added.

If Nz(Me.CheckBox, False) Then RiskValue = RiskValue +
CInt([Forms]![Main]![SSN].Tag)


Watch out for the word wrap, the above is supposed to be one line.

In all honesty I would probably go about this whole thing in a
different
manner, but it works as is, so...

Just check the value of the checkbox. If it's checked the RiskValue
will
be
added.

This assumes that the name of your check box is CheckBox. Say the name
of
your check box is chkSSN, then it would look like:

If Nz(Me.chkSSN, False) Then RiskValue = RiskValue.....


etc


hth
--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)



:

Hi,

First let me say I'm not a programmer so I appreciate any help that is
offered.

Someone has helped me with the code below. Each tag property on each
control has either a 10 for Low Risk, 100 for Medium Risk and 1000 for
High
Risk. Each control has an AfterUpdate event that will call the sub
Risk.
This then will populate the txtRisk control which will put the
appropriate
checkmark in an option group checkbox. The problem is that they are
all
high
because it's added all of them not just those that are checked. How
do I
get
it to only add the value in the tag property to the RiskValue if the
checkbox
is checked? Thank you again for any help I receive.

Public Sub Risk()

Dim RiskValue As Integer

RiskValue = RiskValue + CInt([Forms]![Main]![SSN].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Name].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![DOB].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Address].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Phone].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]!.Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Med Record].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![HP Beneficiary].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Account].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Certificate].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![License].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Full Face Photo].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Vehicle].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Web URL].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Internet Address].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Finger Print].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Voice Print].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Health Info].Tag)
RiskValue = RiskValue + CInt([Forms]![Main]![Other].Tag)

If RiskValue > 1000 And RiskValue < 8480 Then
txtRisk = 1
End If

If RiskValue > 100 And RiskValue < 480 Then
txtRisk = 2
End If

If RiskValue > 0 And RiskValue < 80 Then
txtRisk = 3
End If

End Sub[/QUOTE]


.
[/QUOTE][/QUOTE]