After click on radiobutton

En radiknap er naturligvis en radioknap :0)

På gruppens EfterOpdatering-hændelse lægges følgende kode:

Select Case Me!DinGruppe
  Case 1
    \'bla bla
  case 2
    \'bla bla
  case 3
    \'bla bla
  case else
    \'bla bla
end select

/Thomas

Ok!
men hvis et andet opjekt skal reagere på det?

det må du lige forklare nærmere...?
Hvad skal der ske?

I et felt der bliver beregnet ud fra nogle faste tal-værdier samt en værdi der variere udfra 4 forskellige produkter til en såkaldt ean-kode, det kunne eksempelvis være 200*300+?
? = det jeg ikke helt er klar over, hvis jeg klikker der skal ean-koden beregnes med den variable der nu svarer til det afkrydssede felt!
hmff.
Måske kan jeg alligevel godt strikke videre på din select case - men har du andre ideer, ville det jo være super! :-)

Det virker desværre ikke helt efter hensigten, derfor giver jeg lige en lidt mere detaljeret beskrivelse af problemer her:

på knap nummer 1,2,3 og 4 skal følgende ske, kun med taller me.[eandk_beregn] til forskel altså \"57061223\" skal hede \"57061219\" eksempelvis - men ellers bruge samme beregningsmetode. Når jeg benytter case versionen til dette brokker den sig over nogle duplikerede værdier eller noget i den stil!

Me.[eandk_beregn] = \"57061223\" & Me.Varenummeret

Me.[eandket] = (Val(Mid([eandk_beregn], 1, 1)) + Val(Mid([eandk_beregn], 3, 1)) + Val(Mid([eandk_beregn], 5, 1)) + Val(Mid([eandk_beregn], 7, 1)) + Val(Mid([eandk_beregn], 9, 1)) + Val(Mid([eandk_beregn], 11, 1))) + ((Val(Mid([eandk_beregn], 2, 1)) + Val(Mid([eandk_beregn], 4, 1)) + Val(Mid([eandk_beregn], 6, 1)) + Val(Mid([eandk_beregn], 8, 1)) + Val(Mid([eandk_beregn], 10, 1)) + Val(Mid([eandk_beregn], 12, 1))) * 3)
Dim eandket As Single
Dim AfrundetResultat As Integer
Me.[eandkto] = Int((Me.[eandket] + 5) / 10) * 10
Me.[eandk] = (Me.[eandk_beregn] & (Val(Me.[eandkto] - Me.[eandket])))


håber nogen kan give et godt svar: det kunne jo være der kom ekstra point i hatten!