<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.2920.0" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<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></BODY></HTML>