Wenn Datensatz im Endlosformular RS!Feld wert +1

[Frank77]

Hallo !

Mit der unteren Prozedur fülle ich ein Endlosformular wenn allerdings der Datensatz vorhanden ist soll der Feldwert im Endlosformular des Datensatzes um 1 erhöht werden
Habe es so versucht aber das geht leider nicht

Code [Auswählen] Erweitern

RS!WkorbAnzahl = RS!WkorbAnzahl + 1

Code [Auswählen] Erweitern

Private Sub CmdArtInWarenkorb_Click()
Dim RS As Recordset

Set RS = Me!TblWarenkorbUnterformular2.Form.RecordsetClone
RS.FindFirst "WkorbArtID = " & Me!TxtArtID

If RS.NoMatch = False Then
  RS.AddNew
  RS!WkorbAnzahl = RS!WkorbAnzahl + 1                                   <<<<<<<<<<<<<<<<<<<<<<<<
Set RS = Nothing
Else
   RS.AddNew
   RS!WkorbArtID = Me!TxtArtID
   RS!WkorbLiefArtNr = Me!TxtArtLifArtNr
   RS!WkorbArtName = Me!TxtArtName
   RS!WkorbMwst = Me!TxtArtMwstIDRef
   RS!WkorbArtNetto = Me!TxtArtVPENettoPreis
   RS!WkorbArtBrutto = TxtArtVPENettoPreis / (1 + TxtArtMwstIDRef)
   RS.Update
   RS.Close
Set RS = Nothing
   Me!TxtInKorb1 = Me!TxtInKorb1 + 1
End If
End Sub

Freue mich über jede Lösung Gruß frank

[DF6GL]

Hallo,

wenn allerdings der Datensatz vorhanden ist soll der Feldwert im Endlosformular des Datensatzes um 1 erhört werden

"erhört"  




versuch mal so:

Code [Auswählen] Erweitern

.
.
.
If Not RS.NoMatch Then
  RS.Edit
  RS!WkorbAnzahl = RS!WkorbAnzahl + 1
  RS.Update  
   Do Beep                            
Else
.
.
.
.
End If
RS.Close
Set RS = Nothing

End Sub


[Frank77]

Danke dass ich erhört wurde! 

Funktioniert prima wie  immer

Gruß Frank