title image


Smiley Re: VBA-Problem ;(
In einem Textfeld deines Formulars (ein Kombinationsfeld wäre noch eleganter) gibst du die gewünschte Filmnummer ein. In das Ereignis "Nach Aktualisierung" dieses Feldes schreibst du folgenden Code:If Dlookup("Anzahl", "DeineTabelle", "Filmnummer ='" & DeinTextfeld & "')" = 0 Then MsgBox "Film ist nicht vorhanden!" GoTo Exit Sub Else Dim DB As Database, RS AS Recordset Set DB = Currentdb Set RS = DB.Openrecordset("DeineTabelle", DBOPENDYNASET) RS.FindFirst "Filmnummer = '" & DeinTextfeld & "'" RS.Edit RS!Anzahl = RS!Anzahl - 1 RS.UpdateEnd IfDas ist hier sehr vereinfacht dargestellt - ohne Fehlerroutine oder Sicherheitsabfrage. Aber vielleicht kannst du dich damit anfreunden und die Sache nach deinen Wünschen ausbauen.Viel Erfolg!Pitzi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: