<!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 part of a code that i have to
write in about five versions for 10 ProductCode's.</FONT></DIV>
<DIV><FONT face=Arial size=2>This is a lot of typing, copying, pasting and you
can't let your mind slip away, otherwise you make mistakes. Is there a shorter
and quicker way?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>TIA</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Pedro Janssen</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>If chbProductCode1= True then<BR>
.Item("ProductCode1").Value = Nz(Me![txtProductCode1])<BR>
<BR> If chbA1 = True
then<BR> .Item("Number1").Value =
Nz(Me![txtNumber])<BR> .Item("Price1").Value
= Nz(Me![txt1c16])<BR> ElseIf chbA2 = True
then<BR> .Item("Number1").Value =
Nz(Me![txtNumber])<BR>
.Item("Price1").Value = Nz(Me![txt1c17])<BR> ElseIf chbA3 =
True then<BR> .Item("Number1").Value =
Nz(Me![txtNumber])<BR>
.Item("Price1").Value = Nz(Me![txt1c18])</FONT></DIV>
<DIV><FONT face=Arial size=2> ElseIf chbUitz1 = True
then</FONT></DIV>
<DIV><FONT face=Arial size=2>
.Item("Number1").Value =
Nz(Me![txtUitz1Number])<BR>
.Item("Price1").Value = Nz(Me![txtUitz1Price])<BR> End
If<BR>End If</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial size=2>If chbProductCode2= True then<BR>
.Item("ProductCode2").Value = Nz(Me![txtProductCode2])<BR>
<BR> If chbA1 = True
then<BR> .Item("Number2").Value =
Nz(Me![txtNumber])<BR> .Item("Price2").Value
= Nz(Me![txt2c16])<BR> ElseIf chbA2 = True
then<BR> .Item("Number2").Value =
Nz(Me![txtNumber])<BR>
.Item("Price2").Value = Nz(Me![txt2c17])<BR> ElseIf chbA3 =
True then<BR> .Item("Number2").Value =
Nz(Me![txtNumber])<BR>
.Item("Price2").Value = Nz(Me![txt2c18])</FONT></DIV>
<DIV><FONT face=Arial size=2> ElseIf chbUitz2 = True
then</FONT></DIV>
<DIV><FONT face=Arial size=2>
.Item("Number2").Value =
Nz(Me![txtUitz2Number])<BR>
.Item("Price2").Value = Nz(Me![txtUitz2Price])<BR> End
If<BR>End If<BR><BR></DIV></FONT><BR><BR></DIV></FONT></BODY></HTML>