<!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>with the code below i get as result: One
Produktcode, One number and One price depending on which
checkboxProduktcode is selected.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Is there a way to change this code so that i could
select more then one checkboxProduktcode (still only one of the chbA1, chbA2,
chbA3 or chbUitz1can be selected) and that the outcome would be the selected
produktcodes with there numbers and prices</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> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Dim strNumber as String<BR>Dim bolFound as
Boolean<BR><BR>bolFound = False<BR>If chbProductCode1 = true
then<BR> strNumber = "1"<BR> bolFound =
True<BR>ElseIf chbProductCode2 = true then<BR> strNumber =
"2"<BR> bolFound = True</FONT></DIV>
<DIV><FONT face=Arial size=2>ElseIf chbProductCode3 = true
then<BR> strNumber = "3"<BR> bolFound =
True<BR>ElseIf chbProductCode4 = true then<BR> strNumber =
"4"<BR> bolFound = True<BR>ElseIf chbProductCode5 = true
then<BR> strNumber = "5"<BR> bolFound =
True<BR><BR>EndIf<BR><BR>If bolFound = True then<BR>
.Item("ProductCode" & strNumber).Value = Nz(Me("txtProductCode" &
_<BR>
strNumber))<BR> .Item("Number" & strNumber).Value =
Nz(Me![txtNumber])<BR> <BR> If chbA1 = True
then<BR> .Item("Price" &
strNumber).Value = Nz(Me("txt" &
_<BR>
strNumber & "c16"))<BR> ElseIf chbA2 = True
then<BR> .Item("Price" &
strNumber).Value = Nz(Me("txt" &
_<BR>
strNumber & "c17"))<BR> ElseIf chbA3 = True
then<BR> .Item("Price" &
strNumber).Value = Nz(Me("txt" &
_<BR>
strNumber & "c18"))<BR> ElseIf chbUitz1 = True
then<BR> .Item("Number" &
strNumber).Value = Nz(Me("txtUitz" &
_<BR>
strNumber & "Number"))<BR>
.Item("Price" & strNumber).Value = Nz(Me("txtUitz" &
_<BR>
strNumber & "Price"))<BR> End If<BR>End
If<BR></DIV></FONT></BODY></HTML>