2 Kombifelder verknüpfen

[mustermann]

Aaaa ok- habe jetzt auf die Microsoft DAO3.6 Library umgestellt.
Die Fehlermeldung ist zwar weg, die gewünschte Msgbox erscheint aber leider nicht, sondern wie davor auch nur die Meldung von Acces:

"Der von Ihnen eingegebene Text ist kein Element der Liste..."

und wenn ich den Code Joe ausprobiere, mit dem neuen Zeilenanfang, erscheint die Msgbox auch nicht..

Leider

[DF6GL]

Hallo,

diese Fehlermeldung hat mit dem Code zunächst nichts zu tun. Sie besagt lediglich , was sie sagt: Es ist ein Wert in das Kombi eingeben worden, der nicht in der Kombifeldliste vorhanden ist. Dabei ist die Eigenschaft des Kombis "Nur Listeneinträge" auf Ja eingestellt.

Insofern solltest Du die Einstellungen des Kombis mal überprüfen. Die sollte etwa so lauten:


Steuerelementinhalt:  leer
Datensatzherkunft:  Select MitarbeiterID, MitarbeiterName from tblMitarbeiter

Spaltenanzahl: 2
Spaltenbreiten: 0cm;5cm
Gebundene Spalte: 1

[mustermann]

Die Einstellungen stimmen mit Deinen überein!
Wobei bei Datensatzherkunft noch den Vornamen enthält: SELECT [tbl_Mitarbeiter].[MitarbeiterID], [tbl_Mitarbeiter].[Nachname], [tbl_Mitarbeiter].[Vorname] FROM tbl_Mitarbeiter ORDER BY [Nachname];
und deswegen 3 Spalten insgesamt mit 0 cm, 5cm, 5cm

[DF6GL]

Hallo,

gibst Du nun einen Namen in das Kombifeld ein oder wählst Du einen aus....?

[mustermann]

Ich mache beides! Ab und zu auswählen oder eingeben.

Ich habe noch für das Kombinationsfeld unter Ereignisen bei Mausbewegung folgendes eingestellt:
Me.Kombinationsfeld88.SetFocus
Me.Kombinationsfeld88.Dropdown
falls das eine Rolle spielt...

[DF6GL]

Hallo,

statt Mausbewegung würde ich "Beim Hingehen" wählen.

Zur Fehlermeldung: Die Fehlermeldung kommt, wenn Du etwas eingibst, was eben nicht in der Liste vorkommt...

[mustermann]

Hallo,

ja genau, aber diese Fehlermeldung soll duch eine Msgbox ersetzt werden und beim Ja zum Formular, "frm_Mitarbeiterneu", leiten.

Messageboxwert = MsgBox("Mitarbeiter existiert nicht! Soll ein Profil angelegt werden?", vbYesNo, "Info")
If Messageboxwert = vbYes Then
DoCmd.OpenForm "frm_MitarbeiterNeu

Eigentlich ist es keine Fehlermeldung sondern vielmehr ein Informationshinweis von Access darüber das der eingegebene Text kein Element der Liste ist.

Ist das überhaupt so umsetzbar?

Gruß

[DF6GL]

Hallo,

ja, das ist umsetzbar, indem das Ereignis "Bei nicht in Liste" benutzt wird.

etwa so :

Code [Auswählen] Erweitern


Sub  Kombinationsfeld88_NotInList(NewData As String, Response As Integer)

If MsgBox("Mitarbeiter existiert nicht! Soll ein Profil angelegt werden?", vbYesNo, "Info") = vbYes Then
  DoCmd.OpenForm "frm_MitarbeiterNeu",,,,acFormAdd,acDialog,Newdata   'eingegebene Daten an Openargs übergeben in im Form auswerten
  Response = acDataErrAdded
Else
  Response=acDataErrContinue
End If
End Sub

[mustermann]

Das hat mir gefehlt -super!

Danke

[mustermann]

Hallo Gemeinde,

habe folgendes Anliegen: Ich möchte in einer Tabelle den Inhalt von 2 Zelle in einer 3 Zelle zusammenführen.

Ist das möglich?

Gruß

[MzKlMu]

Hallo,
in einer Tabelle geht das nicht, aber in einer Abfrage als berechnetes Feld.
Einfach so:

Feld3: Feld1 & Feld2

[mustermann]

Hallo,

ich glaube ich habe einen Denkfehler)

Kann ich denn diesen zusammengesetzten Ausdruck aus der Abfrage (Feld3: Feld1 & Feld2) in eine Tabelle mit einer bestimmten Spalte schreiben lassen?

Gruß

[DF6GL]

Hallo,

ja.. der Denkfehler:

Berechnete Werte aus anderen Feldern werden (sollen, dürfen) nicht in ein weiteres Tabellenfeld geschrieben (werden).

Es gibt in accdb Tabellentrigger (eine Art aktive Aktion (Event) auf Tabellenbasis), die das erledigen könnten.

Ansonsten blieben ja auch noch Aktualisierungsabfragen  oder http://www.donkarl.com/?FAQ4.11

[mustermann]

Danke