<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1141" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><SPAN class=196024519-25032003><FONT face=Arial color=#0000ff
size=2>Pedro,</FONT></SPAN></DIV>
<DIV><SPAN class=196024519-25032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=196024519-25032003><FONT face=Arial color=#0000ff size=2>If you
use this code (or something like it) add the test for:</FONT></SPAN></DIV>
<DIV><SPAN class=196024519-25032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=196024519-25032003><FONT face=Arial color=#0000ff
size=2> If blnGetOut = True </FONT></SPAN></DIV>
<DIV><SPAN class=196024519-25032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=196024519-25032003><FONT face=Arial color=#0000ff
size=2>before moving to Next j also to get you out of the inner loop as
well. Oversight on my part.</FONT></SPAN></DIV>
<DIV><SPAN class=196024519-25032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=196024519-25032003><FONT face=Arial color=#0000ff
size=2>Sorry,</FONT></SPAN> </DIV>
<P><FONT face=Arial size=2>Jim DeMarco</FONT> <BR><FONT face=Tahoma><FONT
size=2><SPAN class=196024519-25032003><FONT face=Arial
color=#0000ff> </FONT></SPAN></FONT></FONT></P>
<P><FONT face=Tahoma><FONT size=2><SPAN
class=196024519-25032003></SPAN></FONT></FONT> </P>
<P><FONT face=Tahoma><FONT size=2><SPAN
class=196024519-25032003> </SPAN>-----Original Message-----<BR><B>From:</B>
Pedro Janssen [mailto:pedro@plex.nl]<BR><B>Sent:</B> Tuesday, March 25, 2003
2:17 PM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> Re: [AccessD] IF ...... ELSEIF<BR><BR></P></FONT></FONT>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV><FONT face=Arial size=2>Thank You William and Jim.</FONT></DIV>
<DIV><FONT face=Arial size=2>I now the SelectCase statement. But i still find
it a lot of work.</FONT></DIV>
<DIV><FONT face=Arial size=2>I hoped to receive a reaction like Jim did.</FONT></DIV>
<DIV><FONT face=Arial size=2>I will try this and hopefully it
works.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Greetings </FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Pedro Janssen</FONT></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=Jdemarco@hshhp.org href="mailto:Jdemarco@hshhp.org">Jim DeMarco</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=accessd@databaseadvisors.com
href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Tuesday, March 25, 2003 2:25
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> RE: [AccessD] IF ...... ELSEIF</DIV>
<DIV><BR></DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2>Pedro,</FONT></SPAN></DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2>Since you seem to be following a control naming/numbering scheme try
something like this (untested, written in notepad; watch for
wrapping):</FONT></SPAN></DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2>Dim blnGetOut As Boolean</FONT></SPAN></DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2>for i = 1 to 6 'change to the number of chbx
items (x = numeric value)</FONT></SPAN></DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2><BR> for j = 0 to 1 'change to the
number of letters (suffix) to iterate through - 1 (as in chb1A or
chb1B)</FONT></SPAN><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff size=2><BR> if controls("chb" & i) =
true and controls("chb" & j & chr(65 + j)) =
true<BR> prps.Item("Name").Value =
Nz(Me.Controls("txtName" & i)<BR>
prps.Item("Adress").Value = NZ(Me.conrols("txtAddress" &
i)<BR> prps.Item("Part" & i & chr(65 +
j)).Value = Nz(Me.controls("txtPart" & i & chr(65 +
j))<BR> prps.Item("ZkFonds" & i & chr(65 + j)).Value = Nz(Me.controls("txtZkfonds" & i & chr(65 +
j)) </FONT></SPAN></DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2> blnGetOut = True<BR>
end if<BR> next j</FONT></SPAN></DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2> If blnGetOut = True Then Exit For<BR>next
i</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=481411113-25032003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<P><FONT face=Arial><FONT size=2><SPAN
class=481411113-25032003>HTH</SPAN>,</FONT></FONT> </P>
<P><FONT face=Arial size=2>Jim DeMarco</FONT> <BR><FONT face=Arial
size=2>Director of Product Development</FONT> <BR><FONT face=Arial size=2>HealthSource/Hudson Health Plan</FONT> </P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Pedro Janssen
[mailto:pedro@plex.nl]<BR><B>Sent:</B> Monday, March 24, 2003 5:08
PM<BR><B>To:</B> AccessD@databaseadvisors.com<BR><B>Subject:</B> [AccessD]
IF ...... ELSEIF<BR><BR></FONT></DIV>
<DIV><FONT face=Arial size=2>Hello Group,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>The code below is a part of a code that
i use to make </FONT></DIV>
<DIV><FONT face=Arial size=2>wordletters with data from
access2K.</FONT></DIV>
<DIV> </DIV>
<DIV> <FONT face=Arial size=2><FONT face=Arial size=2>I<SPAN
class=730385419-15042002>f chb1 = True and chb1A = True
then</SPAN></FONT></DIV>
<DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Name").Value =
Nz(Me![txtName1])<BR> prps.Item("Adress").Value = Nz(Me![txtAddress1])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Part1A").Value =
Nz(Me![txtPart1A])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("ZkFonds1A").Value =
Nz(Me![txtZkFonds1A])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002><BR> </SPAN></FONT><FONT
size=+0><FONT face=Arial size=2>E<SPAN class=730385419-15042002>lseIf chb1
= True and chb1B = True then</DIV>
<DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Name").Value =
Nz(Me![txtName1])<BR> prps.Item("Adress").Value = Nz(Me![txtAddress1])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Part1B").Value =
Nz(Me![txtPart1B])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("ZkFonds1B").Value =
Nz(Me![txtZkFonds1B])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT></SPAN></FONT></FONT><FONT size=+0><SPAN class=730385419-15042002></SPAN><FONT face=Arial size=2>E<SPAN class=730385419-15042002>lseIf <FONT face=Arial size=2>
<FONT face=Arial size=2><SPAN class=730385419-15042002>chb2 = True and
chb2A = True then</SPAN></FONT>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Name").Value =
Nz(Me![txtName2])<BR> prps.Item("Adress").Value = Nz(Me![txtAddress2])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Part2A").Value =
Nz(Me![txtPart2A])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("ZkFonds2A").Value =
Nz(Me![txtZkFonds2A])
<DIV><BR></SPAN></FONT><FONT size=+0><SPAN
class=730385419-15042002></SPAN><FONT face=Arial size=2>E<SPAN class=730385419-15042002>lseIf chb2 = True and chb2B = True then </DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Name").Value =
Nz(Me![txtName2])<BR> prps.Item("Adress").Value = Nz(Me![txtAddress2])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Part2B").Value =
Nz(Me![txtPart2B])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("ZkFonds2B").Value =
Nz(Me![txtZkFonds2B])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT></SPAN></FONT></FONT> </DIV>
<DIV></FONT></SPAN></FONT></FONT><FONT size=+0><FONT size=+0><SPAN
class=730385419-15042002></SPAN><FONT face=Arial size=2>E<SPAN class=730385419-15042002>nd If</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT size=+0><FONT size=+0><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT></FONT></FONT> </DIV>
<DIV><FONT size=+0><FONT size=+0><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT></FONT></FONT> </DIV>
<DIV><FONT size=+0><FONT size=+0><FONT face=Arial size=2><SPAN
class=730385419-15042002>because i have lots of fields and lots of checkboxes its a hell</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT size=+0><FONT size=+0><FONT face=Arial size=2><SPAN
class=730385419-15042002>of a job to type, or copy/paste and change all
this.</SPAN></FONT></FONT></FONT></DIV>
<DIV>I know the code below isn't working, but is there a way to
modifie</DIV>
<DIV>the code to something like</DIV>
<DIV> </DIV>
<DIV>
<DIV> </DIV>
<DIV> <FONT face=Arial size=2><FONT face=Arial size=2>I<SPAN
class=730385419-15042002>f chb1 = True then</SPAN></FONT></DIV>
<DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Name").Value =
Nz(Me![txtName1])<BR> prps.Item("Adress").Value = Nz(Me![txtAddress1])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN class=730385419-15042002>AND chb2A =
True Then</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=730385419-15042002>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Part1A").Value =
Nz(Me![txtPart1A])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("ZkFonds1A").Value =
Nz(Me![txtZkFonds1A])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=730385419-15042002></SPAN></FONT>
<DIV><FONT face=Arial size=2><SPAN class=730385419-15042002>AND chb2B =
True Then</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=730385419-15042002>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Part1B").Value =
Nz(Me![txtPart1B])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("ZkFonds1B").Value =
Nz(Me![txtZkFonds1B])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT></SPAN></FONT></SPAN></FONT><FONT
face=Arial size=2><SPAN class=730385419-15042002></SPAN></FONT><FONT
face=Arial size=2><SPAN class=730385419-15042002><BR></SPAN></FONT><FONT
size=+0><FONT face=Arial size=2>E<SPAN class=730385419-15042002>lseIf
<FONT face=Arial size=2><FONT face=Arial size=2>I<SPAN
class=730385419-15042002>f chb2 = True then</SPAN></FONT>
<DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Name").Value =
Nz(Me![txtName2])<BR> prps.Item("Adress").Value = Nz(Me![txtAddress2])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN class=730385419-15042002>AND chb2A =
True Then</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=730385419-15042002>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Part2A").Value =
Nz(Me![txtPart2A])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("ZkFonds2A").Value =
Nz(Me![txtZkFonds2A])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=730385419-15042002></SPAN></FONT>
<DIV><FONT face=Arial size=2><SPAN class=730385419-15042002>AND chb2B =
True Then</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=730385419-15042002>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("Part2B").Value =
Nz(Me![txtPart2B])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002> prps.Item("ZkFonds2B").Value =
Nz(Me![txtZkFonds2B])</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT> </DIV></SPAN></FONT></SPAN></FONT></FONT></SPAN></FONT></FONT><FONT
size=+0><FONT face=Arial size=2><SPAN class=730385419-15042002><FONT
face=Arial size=2></DIV></DIV></DIV></DIV></DIV></DIV></DIV></DIV>
<DIV>
<DIV>
<DIV>
<DIV></FONT></SPAN></FONT></FONT><FONT size=+0><FONT size=+0><SPAN
class=730385419-15042002></SPAN><FONT face=Arial size=2>E<SPAN class=730385419-15042002>nd If</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT size=+0><FONT size=+0><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT></FONT></FONT> </DIV>
<DIV><FONT size=+0><FONT size=+0><FONT face=Arial size=2><SPAN
class=730385419-15042002>TIA</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT size=+0><FONT size=+0><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT></FONT></FONT> </DIV>
<DIV><FONT size=+0><FONT size=+0><FONT face=Arial size=2><SPAN
class=730385419-15042002>Pedro Janssen</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT size=+0><FONT size=+0><FONT face=Arial size=2><SPAN
class=730385419-15042002></SPAN></FONT></FONT></FONT> </DIV></DIV></DIV></DIV></DIV></FONT></DIV></DIV></DIV></DIV></FONT></DIV></BLOCKQUOTE><CODE><FONT
size=3><BR><BR>***********************************************************************************<BR>"This
electronic message is intended to be for the use only of the named
recipient, and may contain information from HealthSource/Hudson Health Plan
(HS/HHP) that is confidential or privileged. If you are not the intended
recipient, you are hereby notified that any disclosure, copying,
distribution or use of the contents of this message is strictly prohibited.
If you have received this message in error or are not the named recipient,
please notify us immediately, either by contacting the sender at the
electronic mail address noted above or calling HS/HHP at (914) 631-1611. If
you are not the intended recipient, please do not forward this email to anyone, and delete and destroy all copies of this message. Thank
You".<BR>***********************************************************************************<BR></FONT></CODE>
<P>
<HR>
<P></P>_______________________________________________<BR>AccessD mailing
list<BR>AccessD@databaseadvisors.com<BR>http://databaseadvisors.com/mailman/listinfo/accessd<BR>Website:
http://www.databaseadvisors.com<BR></BLOCKQUOTE></BLOCKQUOTE><CODE><FONT SIZE=3><BR>
<BR>
***********************************************************************************<BR>
"This electronic message is intended to be for the use only of the named recipient, and may contain information from HealthSource/Hudson Health Plan (HS/HHP) that is confidential or privileged. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution or use of the contents of this message is strictly prohibited. If you have received this message in error or are not the named recipient, please notify us immediately, either by contacting the sender at the electronic mail address noted above or calling HS/HHP at (914) 631-1611. If you are not the intended recipient, please do not forward this email to anyone, and delete and destroy all copies of this message. Thank You".<BR>
***********************************************************************************<BR>
</FONT></CODE>
</BODY></HTML>