von Andi München » Sa 8. Okt 2011, 22:14
Hallo Gunter,
sorry aber ich bin anscheinend zu blöd das richtig zu verstehen
Meine erste Form heist Kalibrieren
es gibt hier das Kombi Feld "Kombinationsfeld18" das sich die Daten aus der Tabelle Arbeit mit dem Feld Type holt.
Hinter dem Kombi liegt folgender Code:
Private Sub Kombinationsfeld18_NotInList(NewData As String, Response As Integer)
If MsgBox("Diese Type ist neu. Möchten Sie diese anlegen?", vbYesNo) = vbYes Then
Response = acDataErrContinue
DoCmd.OpenForm "TypenkennzeichnungNeu", , , , acFormAdd
Forms!TypenkennzeichnungNeu!Type = NewData
Else
Response = acDataErrContinue
Me!Kombinationsfeld18.Undo
End If
End Sub
mit diesem Code wird das Form TypenkennzeichnungNeu aufgerufen in dem sich ebenfalls ein Feld mit dem Namen Type befindet. Diese beiden Typen Felder sind 1:n miteinander Verknüpft!
In dieser Form liegt hinter dem Save Button der folgende Code:
Private Sub Befehl64_Click()
RunCommand acCmdSaveRecord
DoCmd.Close acForm, "TypenkennzeichnungNeu", acSaveNo
Forms!Kalibrieren!Kombinationsfeld18 = Me! Type
Forms!Kalibrieren!Kombinationsfeld18.Requery
Forms!Kalibrieren!Kombinationsfeld18.Dropdown
End Sub
?????????????????????????????????????????????????????????
Ich kriegt immer ne Fehlermeldung
Gruß
Andi