<!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=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>
</BODY></HTML>