Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.

Share this Page URL
Help

4 Steuerelemente > 4.5Listenfelder - Pg. 276

Kapitel 4 Steuerelemente 4.4.6 Wert zu einem gebundenen Kombinationsfeld hinzufügen Wenn Sie dem Benutzer erlauben wollen, über ein Kombinationsfeld Werte einzutippen, die dann in der zugrunde liegenden Datenbank gespeichert werden, legen Sie die fol- gende Prozedur für das Ereignis Bei Nicht in Liste an: Private Sub cboKategorien_NotInList(NewData As String, Response As Integer) Dim db As DAO.Database Dim rst As DAO.Recordset2 Set db = CurrentDb Set rst = db.OpenRecordset("tblKategorien", dbOpenDynaset) rst.AddNew rst!Kategoriename = NewData rst.Update Response = acDataErrContinue rst.Close Set rst = Nothing Set db = Nothing End Sub