Office: (Office 2003) Kombinationsfeld und neuer Datensatz

Hallo,

mein Formular macht folgendes über ein Kombinationsfeld rufe ich einen Ort auf, über ein zweites Kombinationsfeld kann ich aus verschiedenen Berufen des Ortes auswählen. Im Formular werden mir dann die Firmen angezeigt z.b. PLZ, Straße, Telefon, Fax usw.
In der Datenbank sind 3 Tabellen
tblOrt OrtID, txtOrt
tblBerufe OrtID, txtBerufe
tblFirma FirmaID, BerufeID, Straße, Telefon usw.

Beziehungen bestehen zwischen OrtID und OrtID,
BerufeID und BerufeID

Das entspricht auch alles schon meinen Vorstellungen, ich kann den Ort auswählen, danach den Beruf und die Datensätze werden korrekt angezeigt.
Nun möchte ich innerhalb des Formulares neue Datensätze anlegen.
Um einen neuen Datensatz in ein Kombinationsfeld einzugeben, muß in den Eigenschaften bei Nur Listeneinträge von ja auf nein gestellt werden.
Da ich aber 2 Spalten habe eine mit 0cm und eine mit 5cm kommt die Fehlermeldung, das ich die Spaltenbreiten anpassen muß. Wenn ich das mache werden im Kombinationsfeld zwei Werte angezeigt und das sollte nicht sein.
Wäre schön wenn einer helfen könnte.

Gruß und Danke Graubart

:)

 

BerufeID gibt es bei dir aber doch nur einmal oder hast du dich verschrieben??

Gruß, David.

 

Hallo,

danke habe ich vergessen

tblBerufe BerufeID OrtID, txtBerufe

so ist es richtig.

Gruß Graubart

 

Kannst du die Datenbank oder einen Teil davon mal hochladen, damit man sich ein Bild davon machen kann??

Ich weiß nämlich nicht genau, was du meinst.

Gruß, David.

 

Hallo David,

erstmal Danke.
ich habe im Moment leider keine Möglichkeit die Datenbank zu laden.

In dem Formular kann der Anwender über zwei abhängige Kombinationsfelder Datensätze aufrufen, diese werden im Formular in Textfeldern angezeigt.
Nun möchte ich einen neuen Datensatz anlegen, also schreibe ich im Kombinationsfweld z.b. einen neuen Ort, dann kommt die Fehlermeldung "Der von Ihnen eingegebene Text ist kein Element der Liste". In den Eigenschaften des Kombinationsfeldes ist bei "Nur Listeneinträge" ein Ja, welches ich auf Nein stelle. Jetzt kommt die Fehlermeldung, das die erste sichtbare Spalte nicht gleich der gebundenen Spalte ist. Ich habe ja auch für die erste Spalte den Wert für Spaltenbreiten auf 0cm; und die zweite auf 5cm gestellt. Wenn ich beide auf 5cm stelle kann ich auch im Formular im Kombinationsfeld einen neuen Ort eingeben, dann habe ich aber immer im Kombinationsfeld zwei sichtbare Spalten und das möchte ich nicht.
Vielleicht habe ich mich jetzt etwas verständlicher ausgedrückt.

Gruß Graubart

 

Hallo Graubart.

Was steht denn in der zweiten sichtbaren Spalte drin??
Genau das gleiche wie in der ersten oder gar nichts??

Gruß, David.

 

Hallo David,

im Kombinationsfeld wo ich den Ort aufrufe ist der erste Wert OrtID hatte ich auf 0cm gestellt und der zweite ist der txtOrt 5cm und nur den Text möchte ich angezeigt bekommen.

Gruß Gunter

 

Vermutlich behandelt die FAQ 4.13 Dein Problem.

 

Hallo,

der Tip mit der Faq hat mich jetzt soweit gebracht, das ich wenn ich den Code für das erste Kombinationsfeld eingebe,

"Private Sub cmb_Ort_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("tbl_Ort", dbOpenDynaset)

rs.AddNew
rs!txt_Ort = NewData
rs.Update

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

End Sub"

ich in dieses Kombinationsfeld einen neuen Ort eingeben kann.
Da in dem Formular ein zweites vom Ort abhängiges Kombinationsfeld "Berufe" existiert, habe ich diesem auch diesen Code hinzugefügt.
Wenn ich jetzt im ersten Kombinationsfeld einen neuen Ort eingebe, so geht das, im zweiten Kombinationsfeld kommt bei Eingabe des Berufes die Fehlermeldung "Der von Ihnen eingegebene Text ist kein Element der Liste".
Vielleicht kann ja nochmal jemand helfen.

Danke graubart

 

Hallo Graubart.

Wie sieht denn der Code von dem anderen Kominationsfeld aus?
Hast du des 1:1 kopiert??
Dann wär es schon klar, dass es nicht funktioniert, weil du dich ja auf die Tabelle tblBerufe beziehen musst und nicht mehr auf tblOrt.

Gruß, David.

 

Hallo David,

nein ich habe die Tabelle Berufe und auch txtBerufe in den Code eingetragen.

Für das erste Kombinationsfeld habe ich diese Abfrage
SELECT tbl_Ort.Ort_ID, tbl_Ort.txt_Ort FROM tbl_Ort ORDER BY tbl_Ort.txt_Ort;


Für das zweite Kombinationsfeld diese
SELECT tbl_Berufe.Berufe_ID, tbl_Berufe.Ort_ID, tbl_Berufe.txt_Berufe FROM tbl_Berufe WHERE (((tbl_Berufe.Ort_ID)=[Formulare]![frm_BVB]![cmb_Ort]));

Wäre schön wenn Du noch mal helfen könntest.

Gruß Graubart

 

Hallo Graubart.

Alles verstanden bis auf eine Sache.
Was bewirkt denn die Where-Funktion am Schluss der zweiten Abfrage??

Wäre echt gut, wenn du deine Datenbank online stellen könntest.
Kopier sie, lösch ein paar Datensätze raus und komprimier sie. Mach ich auch immer so. Ansonsten kann ich ohne Anschauungsmaterial auch nicht viel weiterhelfen. *depressed *smashing

Gruß, David.