Forums Neueste Beiträge
 

Eintrag hinzufügen in abhängiges Kombinationsfeld

24/03/2010 - 13:03 von Jens Müller | Report spam
Hallo zusammen,

ich habe in einem Formular drei Kobinationsfelder
(cbo_SoftwareHersteller, cbo_SoftwareName, cbo_SoftwareVersion). Die
ersten beiden bedingen jeweil den Inhalt des folgenden. Das klappt
soweit ganz gut. Ich möchte jedoch die Möglichkeit geben, in die
Kombinationsfelder Eintràge hinzuzufügen. Dazu habe ich mich beim ersten
Beispiel aus http://www.donkarl.com/?FAQ4.13 bedient. Das funktioniert
aber leider nur bei den ersten beiden Feldern, das dritte làsst keine
Eingaben zu (keine Fehlermeldung, Eingabe trotz blinkendem Cursor gar
nicht erst möglich).

Hier der zugehörige Code:

Private Sub cbo_SoftwareHersteller_AfterUpdate()
Me!cbo_SoftwareName.Requery
End Sub


Private Sub cbo_SoftwareHersteller_NotInList(NewData As String, Response As Integer)
Response = acDataErrAdded
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tab_SoftwareHersteller", dbOpenDynaset)

rs.AddNew
rs!txt_SoftwareHersteller = NewData
rs.Update

rs.Close: Set rs = Nothing
Set db = Nothing
Me!cbo_SoftwareName.Requery
End Sub

Private Sub cbo_SoftwareName_AfterUpdate()
Me!cbo_SoftwareVersion.Requery
End Sub

Private Sub cbo_SoftwareName_NotInList(NewData As String, Response As Integer)
Response = acDataErrAdded
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim softwarehersteller As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("tab_SoftwareName", dbOpenDynaset)
softwarehersteller = cbo_SoftwareHersteller.Value

rs.AddNew
rs!lng_SoftwareHersteller = softwarehersteller
rs!txt_SoftwareName = NewData
rs.Update

rs.Close: Set rs = Nothing
Set db = Nothing
Me!cbo_SoftwareVersion.Requery
End Sub

Private Sub cbo_SoftwareVersion_NotInList(NewData As String, Response As Integer)
Response = acDataErrAdded
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim softwarehersteller As Long
Dim softwarename As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("tab_SoftwareVersion", dbOpenDynaset)
softwarehersteller = cbo_SoftwareHersteller.Value
softwarename = cbo_SoftwareName.Value

rs.AddNew
rs!lng_SoftwareHersteller = softwarehersteller
rs!lng_SoftwareName = softwarename
rs!txt_SoftwareVersion = NewData
rs.Update

rs.Close: Set rs = Nothing
Set db = Nothing
End Sub

Private Sub Form_Current()
Me!cbo_SoftwareName.Requery
Me!cbo_SoftwareVersion.Requery
End Sub



Hat jemand einen Tip?

Dank & Gruß
Jens
"The only proof that intelligent life exists in the universe
is that it hasn't tried to contact us yet." - Calvin
 

Lesen sie die antworten

#1 Karl Donaubauer
24/03/2010 - 13:50 | Warnen spam
Jens Müller wrote:
ich habe in einem Formular drei Kobinationsfelder
...
das dritte làsst keine Eingaben zu (keine Fehlermeldung,
Eingabe trotz blinkendem Cursor gar nicht erst möglich).
...



Normalerweise passiert das, wenn die Eigenschaft "Gesperrt"
des Steuerelementes auf "Ja" steht. Hast du das überprüft?

Servus
Karl
****************
Access-FAQ: http://www.donkarl.com

Ähnliche fragen