<!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><FONT face=Arial size=2>Pedro</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>...look up the SelectCase methods in your Help file
...HTH :)</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV>William Hindman<BR>"All it takes for evil to prevail is for good men to do
nothing." Edmund Burke<BR></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=pedro@plex.nl href="mailto:pedro@plex.nl">Pedro Janssen</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> Monday, March 24, 2003 5:07
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [AccessD] IF ...... ELSEIF</DIV>
<DIV><BR></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>
<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></BODY></HTML>