title image


Smiley Wenn beispielsweise...
das maximale Füllgewicht in der 2. Spalte des Kombifelds "Därme" steht:



Private Sub Form_Current()

Me!MaxFuellgewicht = Me!Daerme.Column(1)

end sub



Private Sub Daerme_AfterUpdate()

Me!MaxFuellgewicht = Me!Daerme.Column(1)

If NZ(Me!Fuellgewicht,0) > NZ(Me!Daerme.Column(1),0) then

MsgBox "Darm ist überfüllt!"

Me!Fuellgewicht = 0

Me!Fuellgewicht.Setfocus

end if

end sub



Private Sub Fuellgewicht_AfterUpdate()

If NZ(Me!Füllgewicht,0) > NZ(Me!Daerme.Column(1),0) then

MsgBox "Darm ist überfüllt!"

Me!Fuellgewicht.Undo

end if

end sub



oder ähnlich.


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: