title image


Smiley Du brauchst halt...
eine Ereignisprozedur für das AfterUpdate-Ereignis des Kombifelds:



Private Sub Kombi_AfterUpdate()

Select Case Kombi

Case "Verspätung"

If Me!Verspätung >= 10 then

Me!Strafe = NZ(Me!Verspätung,0) * 1

else

Me!Strafe = NZ(Me!Verspätung,0) * 0.5

end if

Case "Rauchen"

Me!Strafe = 5

Case "AccessProgrammierenOhneAhnungZuHaben"

Me!Strafe = "1 Woche im Keller mit einem VBA-Buch und der Online-Hilfe"

end select

end sub





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: