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
RS!WkorbAnzahl = RS!WkorbAnzahl + 1
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
Hallo,
Zitatwenn allerdings der Datensatz vorhanden ist soll der Feldwert im Endlosformular des Datensatzes um 1 erhört werden
"erhört" :D
versuch mal so:
.
.
.
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
Danke dass ich erhört wurde! ;D
Funktioniert prima wie immer
Gruß Frank