Hallo Gemeinde,
ich habe zwei Tabellen tbl_Hersteller (Apple, Samsung etc.) und tbl_Modelle (iPhone 5, Galaxy A5 etc.) - jetzt möchte ich mittels zwei Kombifeldern die Auswahl eingrenzen. Also mit Kombinationsfeld1 Hersteller auswählen z.B Samsung und dann soll im Kombinationsferld 2 nur die Modelle von Samsung zur Auswahl stehen.
Wie geht man da vor um das umzusetzen?
Gruß
Hallo,
wie ist denn der Tabellenaufbau ?
Du benötigst ja 2 Tabellen 1x Hersteller und 1x Modell mit jeweils einem Feld als Primärschlüssel (PS). In der Modelltabelle wird ein Fremdschlüssel (FS) zum Hersteller (PS) benötigt.
Zeige mal ein Bild des Beziehungsfensters.
Bin gerade dabei, aber irgendwie kriege ich keine Beziehung hin. Sollte ja eine 1:n Beziehung sein. Weil ein Hersteller mehrer Modelle hat oder? Wie vergibt man einen FS?
Hallo,
Primärschlüssel in beiden Tabellen immer auf die ID.
In der Modelltabelle fehlt dann der Fremdschlüssel zum Hersteller.
Der Fremdschlüssel ist ein extra Feld mit dem gleichen Datentyp wie der zugehörende PS.
Siehe Bild.
Welcher Datentyp sind denn die ID's Autowert ?
Hallo,
die ID sind vom Datentyp Autowert!. Habe die PS geändert- welchen Datentyp soll ich jetzt HerstellID_F zuweisen? Autowert geht ja nicht...
Okay - hat geklappt. Danke für die Erklärung)
Hallo,
Longinteger ist der gleiche Datentyp wie der Autowert und der ist dann zu verwenden.
Die beiden gezeigten Tabellen ist ja nicht alles, irgendwo wird ja dann das Modell gespeichert.
Es muss übrigens nur das Modell (bzw. dessen PS als FS) gespeichert werden. Wenn das Modell bekannt ist, weiß man über die Beziehung auch den Hersteller.
Bitte erkläre mal den kompletten Aufbau bzw. das Vorhaben in seiner Gänze.
ok
wie kann ich jetzt dem Hersteller die Modelle zuordnen? Access kann ja nicht wiesen, dass Samsung keine iPhones herstellt)
In dem Formular (siehe Anhang) möchte ich über die zwei Kombifelder Hersteller und das zugehörige Modell aussuchen können.
Wenn ich Samsung als Hersteller aussuche, sollen auch dementsprechend nur die Modelle von Samsung in dem zweiten Kombifeld zur Auswahl stehen.)
Ich möchte, ausgehend vom Formular (Anhang), jedes HardwareGerät eines Mitarbeiters in die Vorlage irgendwie engetragen haben, die er dann mittels Unterschrift den Erhalt des Gerätes bestätigt.
Aus Formular werden Name, Personalnummer und Vorname an das Formular 2 übergeben, jetzt sollen noch die Geräte eingetragen werden können.
Hallo,
Zitatwie kann ich jetzt dem Hersteller die Modelle zuordnen?
Einfach in die Modelltabelle die ID des entsprechenden Herstellers eintragen. Das macht man am besten mit einem Formular das die Modelle zeigt. Dort wird mit einem Kombifeld der zutreffende Hersteller gewählt.
Und wo ist die Tabelle mit den Mitarbeitern ?
Da die Geräte ja auch wechseln können (Gerät defekt, neues gerät wird noch eine weitere Tabelle benötigt die erfasst wer welches Gerät zu welcher Zeit hatte.
Zeige mal ein Bild der Beziehungen mit allen Tabellen die Du schon hast.
Anbei die Beziehungen, Formular1 und Formular2.
Das Formular 1 zeigt die Datensätze aus der Tabelle Mitarbeiter und der damit verknüften Tabelle Hardware an. Werden nur Personalnummer, Vor- und Nachname angezeigt. Alle anderen Daten brauche ich erst einmal nicht. Mit einem Button (Formular 1) lässt sich Formular 2 öffnen. Dort wird die Personalnummer des jeweiligen Mitarbeiters und sein Name automatisch übernommen. Jetzt möchte ich mit Hilfe der 3 Kombifelder die jeweiligen Geräte, die er hat, in das Formular 2 eintragen.
Kombifeld 1 = GeräteTyp z.B Tablet, Smartphone oder Desktop etc.
Kombifeld 2 = Hersteller z.B Samsung, Lenovo
Kombifeld 3= Modell des jeweiligen Herstellers
diese 3 Kombifelder möchte ich miteinander verknüpfen.
cmb1= Smartphone --> cmb2=Samsung (nur Handyhersteller) --> cmb3= Galaxy A5 (nur die jeweiligen Modelle des Herstellers)
und danach das Fomrular drucken lassen (weiß jetzt geht)
Mit Modellenzuordnung habe ich jetzt verstnaden)
Vielen Dank Klaus
Hallo,
oje, da weiß man gar nicht wo man beginnen soll. Ich halte die vorliegenden Tabellen für unbrauchbar. Hier muss Du noch mal intensiv nachdenken.
Erst wird mal eine Tabelle benötigt für die reinen Gerätedaten mit Fremdschlüssel zum Modell und Fremdschlüssel zum Typ enthält.
Was ist die Gruppeneinteilung
Was ist die Gruppe Titel ?
Wieso haben Typ, Gruppe und Titel keine Primärschlüssel ?
Wieso ist die Seriennummer/IMEI in einer extra Tabelle ?
Beziehungen laufen immer über die ID (dazu ist diese da) und nicht über die Personalnummer.
Übertragen in die Detailtabellen wird immer nur die ID, sonst keine weiteren Felder. In einer Datenbank gibt es im Regelfall keine Felder mit gleichen Inhalten in verschiedenen Tabellen (außer den Fremdschlüsseln).
Du benötigst als eine Tabelle für die reinen Gerätedaten mit Fremdschlüsselfeldern zu Modell und Typ.
Eine Tabelle für die Mitarbeiter und eine Tabelle zur Zuordnung der Geräte zum Mitarbeiter mit FS zu MA und FS zu Gerät sowie mit DatumVon und DatumBis.
Bevor der Grundaufbau (das Datenmodell) nicht zweifelsfrei OK ist, brauhst Du erst gar nicht weiter zu machen.
Und Formulare druckt man nicht, auch wenn es geht.
Weitere Hinweise:
- Keine Sonder und Leerzeichen in Objekt und Feldnamen
- möglichst kurze Feldnamen
Das kann so nicht bleiben.
Ich bin dabei Access zu lernen.
Ob die Tabelle so richtig sind, ist mir zur Zeit egal, weil zur Zeit umgezogen wird.
Soll nur alles oberflächlich funktionieren, damit ich den Überblick nicht verliere.
Titel, Gruppeneinteilung - diese Tabelle werden vollkommen entfernt.
tblGeräteTyp da habe ich gerade etwas weiter gearbeitet.
Wenn man den PS immer auf die ID legt - erfolgt ja die Zuordnung immer manuell oder? Das finde ich etwas zeitraubend)
Gruß
Wie kann ich die Kombinationsfelder jetzt miteinander verknüpfen?
Verstehe ich das richtig?
Wenn ich den PS aud die IDs lege und zwischen den Tabelle nur die IDs weitergebe. So habe ich, mal angenommen, für 150 Mitarbeiter zugewiesene IDs zw. 1-150. Zudem hat jeder Mitarbieter mindestens 2 Hardwaregeräte ausgehändigt bekommen d.h. ich muss jetzt jedem Gerät manuell eine ID aus der Mitarbeitertabelle vergeben?
Hallo,
die Beziehung Typ - Hersteller - Modell ist falsch.
Ein Typ kann ja verschiedene Modelle haben Galaxy S5 und S7 sind ja beide Smartphones. Daher fehlt noch eine Tabelle die Typ und Modell zusammen führt. In diese Tabelle kommt auch die IMEI. Die extra Tabelle für die IMEI bzw. Seriennummer braucht es nicht.Die Herstellertabelle steht dann alleine. Die Zuordnungstabelle erhält einen eigenen Primärschlüssel. In dieser Tabelle stehen dann alle Infos zu einem Gerät, das ist die Gerätetabelle, je Gerät ein Datensatz mit PS.
Die Tabelle Hardware_TEF3 halte ich für ganz falsch.
Das ist ja die Zuordnung wer welches Gerät hat. Die benötigt nur einen Fremdschlüssel zum Mitarbeiter und einen Fremdschlüssel zum Gerät und die Felder die von Mitarbeiter und Gerät abhängig sind.
ZitatWenn man den PS immer auf die ID legt - erfolgt ja die Zuordnung immer manuell oder?
nein, natürlich nicht. Die Zuordnung kann mit einem Kombi erfolgen die die Personalnummer zeigt, aber die ID schreibt, das ist nur eine Frage der Einstellung.
Für jedes Gerät das der Mitarbeiter hat gibt es in dieser Tabelle ein Datensatz.
ZitatWenn man den PS immer auf die ID legt - erfolgt ja die Zuordnung immer manuell oder?
Und was willst Du hier dauern manuell vergeben.´
Das macht am alles sehr komfortabel mit einem Hauptformular (Mitarbeiter) und darin einem über die Schlüsselfelder verknüpften Unterformular. Die dem Mitarbeiter zuzuordneten Geräte werden per Kombi gewählt. Die MitarbeiterID muss man dazu gar nicht kennen und das Gerät wird über die Seriennummer gewählt.
Im Anhang noch ein Bild.
PS:
Entferne noch die Sonderzeichen in den Feldnamen (Handy-Nr > HandyNr), sonst wirst Du das nach bedauern.
ZitatIch bin dabei Access zu lernen. Ob die Tabelle so richtig sind, ist mir zur Zeit egal,
Mit falsch aufgebauten Tabellen kann man kein Access lernen, das ist ein Widerspruch in sich.
...sieht ja böse aus)
Okay, werde mich mal dann mit den Veränderungen beschäftigen!
Vielen Dank
Bestes Forum
Die Zuordnung des Fremdschlüssels (z.b. MitarbeiterID_F in der Tabelle tbl_Hardware) kann nur manuell erfolgen oder?
Habe jetzt nur Fehler drin - noch mehr Choas als mit den falschen Tabellen davor :o
Hallo,
Zitatnoch mehr Choas als mit den falschen Tabellen davor :o
Das liegt aber nicht am geänderten Datenmodell, das du unbedingt nochmal
zeigen solltest bevor du weitermachst, sondern an deiner vorschnellen Erstellung
von Formularen, die auf einem falschen Modell beruhen.
gruss ekkehard
Habe alle bis auf eine Beziehung dis dahin machen können - habe wahrscheinlich irgendwo einen Fehler drin....muss noch einmal alles durchschauen.
Mir ist aber gerade ein anderes Probelm aufgefallen (Anhang):
z.B der Hersteller Lenovo kommt in meiner GeraeteTyp Tabelle als Rerf TBLT (ID=2) und Std Notebk (ID=4) vor - wie kann man die zwei IDs in der Herstellertabelle dem GeraeteTypeID_F zuordnen?
Gruß
Danke Euch im Voraus
Hallo,
wahrscheinlich fehlt hier noch eine Tabelle um die Typen den Herstellern zuordnen zu können.
Das von Dir hochgeladene Bild ist relativ zwecklos. Bitte zeige ein Bild des Beziehungsfensters mit allen Tabellen, egal ob mit oder ohne Beziehung.
Die Tabellen so groß darstellen, dass man alle Felder sieht.
Bin was die Beziehungen und Tabellen angeht soweit gekommen (Anhang).
Wenn ich versuche zw. ModellID und ModellID_F eine Beziehung herzustellen, kommt diese Meldung von Access (Bild im Anhang).
Gruß
Hallo,
die Fehlermeldung ist doch selbst erklärend... Hast Du die Daten dahingehend mal überprüft?
Bin gerade dabei)
Gibt es die Möglichkeit den Fehler von Access auslesen zu lassen?
Habe alle Datensätze schon drei mal kontrolliert, finde den Fehler nicht!
Gruß
Hallo,
Stichwort "Inkonsistenzabfrage". Gibt es einen Assi dazu.
Hallo,
kopier das nachstehende SQL-Statement in die SQL-Ansicht im Abfrageentwurf und führ die Abfrage aus:
Select tbl_modell.* From tbl_modell Left Join tbl_hersteller on tbl_modell.HerstellerID_f = tbl_hersteller.HerstellerId
Where tbl_hersteller.HerstellerId is Null
Super, vielen Dank.
Fehler gefunden. Tabellen sind soweit miteinander verknüpft.(Anhang)
Wie kann ich dem GeräteTyp einen Hersteller zuordnen oder umgekehrt? Ein Hersteller kann mehrere GeräteTypen haben bzw. umgekehrt. Am besten ich mache die zwei in eine Tabelle...
Hallo,
Zitat von: mustermann am September 02, 2016, 13:18:33Ein Hersteller kann mehrere GeräteTypen haben bzw. umgekehrt.
das löst man mit Hilfe von drei Tabellen und einer n:m-Beziehung nach dem Schema
tblHersteller --> tblHerstellerGeraetetyp --> tblGeraetetyp
hstID --> hstgrtID, hstID_f, grtID_f --> grtID
So...meine Beziehungen sehen jetzt folgendermaßen aus (Anhang) - Access hat von selbst noch eine zusätzliche Tabelle (tbl_Geraetetyp_1) erstellt und verknüpft :o
Habe mich mit Formularen ein wenig beschäftigt und bin bei dem eigentlichen Thema angekommen: 2 abhängige Kombinationsfelder! (Anhang combos)
Wie schaffe ich es jetzt, dass nach der Auswahl des Herstellers (cbo_Hersteller) mir beim Modell (cbo_Modell) nur Modelle des jeweiligen Herstellers angezeigt werden?
Habe für cbo_hersteller eine Abfrage ( qry_Hersteller ) und für cbo_Modell eine Abfrage Namens qry_modell erstellt!
Ist das Ganze jetzt weiter von Kriterien abhängig oder?
Gruß
Hallo,
ZitatAccess hat von selbst noch eine zusätzliche Tabelle (tbl_Geraetetyp_1) erstellt und verknüpft
die ist überflüssig, kannst Du wieder löschen. Erst die Beziehung löschen (Linie markieren >Entf) dann die Tabelle.
Da hast Du wahrscheinlich aus Versehen die Tabelle 2x ausgewählt.
Hallo,
Zitat
Wie schaffe ich es jetzt, dass nach der Auswahl des Herstellers (cbo_Hersteller) mir beim Modell (cbo_Modell) nur Modelle des jeweiligen Herstellers angezeigt werden?
Guckst du in die faq
http://www.donkarl.com?FAQ4.36
Danke Jürgen - bin nach der Beschreibung vorgegangen aber irgendwie will es nicht so recht.
Habe bei cbo_Hersteller bei Datensatzherkunft folgendes stehen:
SELECT [tbl_Hersteller].[HerstellerID], [tbl_Hersteller].[Hersteller] FROM tbl_Hersteller ORDER BY [Hersteller];
bei cbo_Modell habe ich bei Ereignis nach Aktualisierung folgenden Code hinterlegt:
Private Sub cbo_Modell_AfterUpdate()
Me!cbo_Modell.RowSource = "SELECT Modell FROM tbl_Modell WHERE HerstellerID_F=" & Me!cbo_Hersteller
End Sub
...funktioniert aber nicht!?
Hallo,
der Code muss in das Ereignis "Nach Aktualisierung" von cbo_Hersteller, beim Modell macht das keinen Sinn.
ZitatPrivate Sub cbo_Hersteller_AfterUpdate()
Me!cbo_Modell.RowSource = "SELECT Modell FROM tbl_Modell WHERE HerstellerID_F=" & Me!cbo_Hersteller
End Sub
So steht es auch in der FAQ 4.36.
Zitat von: aus FAQ 4.36im Ereignis-Code Nach Aktualisierung des übergeordneten Kombis
Es empfiehlt sich immer genau zu lesen. ;D
Und für Codedarstellungen immer die Codetags des Forums benutzen.
logisch - du willst doch nur die Modelle des gewählten Herstellers - also muss das Ereignis NachAktualisierung des Kombifelds der Hersteller den Filtervorgang auslösen.
Private Sub cbo_Hersteller_AfterUpdate()
Me!cbo_Modell.RowSource = "SELECT Modell FROM tbl_Modell WHERE HerstellerID_F=" & Me!cbo_Hersteller
End Sub
...geht trotzdem nicht! Das cbo_Modell ist immer leer!
Hallo,
zeige mal die Eigenschaftseinstellungen des Kombis "cbo_Hersteller".
siehe Anhang
Gruß und Danke
das Bild sagt nun mal gar nix aus ... - zeige bitte den Code, der ausgeführt werden soll - incl Prozedurkopf und -fuss.
Hallo,
Zitatdas Bild sagt nun mal gar nix aus ...
doch, das Bild zeigt das wonach ich gefragt habe. An den Einstellungen liegt es nicht.
@ Klaus
ok, das hatte ich vorausgesetzt - aber es ist wohl besser alles zu hinterfragen ;)
@ Mustermann
lade doch mal eine auf das Problem reduzierte mit anonymen Spieldaten versehene db im Format mdb hier hoch. Da kann man wohl am besten helfen.
Hallo,
ZitatWie schaffe ich es jetzt, dass nach der Auswahl des Herstellers (cbo_Hersteller) mir beim Modell (cbo_Modell) nur Modelle des jeweiligen Herstellers angezeigt werden?
da - soweit ich das verstanden habe - das zweite Kombi, also cbo_Modell, nicht erwartungsgemäß funktioniert, sind die diesbezüglichen Eigenschaften zu hinterfragen.
Was du gezeigt hast, ist eine Abfrage, die lediglich eine Spalte liefert. Normalerweise sollte ein Kombifeld aber aus mindestens zwei Spalten bestehen, der (versteckten) ID und dem zugehörigen Text. Vielleicht untersuchst du die Kombifeldeigenschaften unter diesem Aspekt noch einmal aufs Neue.
Zitatund für cbo_Modell eine Abfrage Namens qry_modell erstellt
Wie lautet der SQL-Code?
Und warum setzt du diese nicht ein, sondern überschreibst die RowSource per VBA?
Hallo,
der SQL - Code von cbo_Modell sieht wie folgt aus (Anhang)!
Bei der Ereignisprozedur beim cbo_Hersteller hat sich an dem Code nicht geändert! Habe die Schreibweise auch mehrmals geprüft...
wenn du beim Modell auf den Hersteller einschränken willst, sollte dessen ID auch vorhanden sein - aber die Rowsource wird ja ohnehin bei Änderung des Herstellers neu gesetzt. Wenn es immer noch kemmt bring imo das Rätselraten hier nichts - lade eine Muster-db hoch, dann schau ich mir das gerne an.
SELECT tbl_Modell.ModellID, tbl_Modell.Modell, tbl_Modell.HerstellerID_FK
FROM tbl_Modell
WHERE tbl_Modell.HerstellerID_FK = " & Me!cbo_Hersteller.Value '<- muss 1. Spalte (0) und gebunden sein
Hallo,
bekomme folgende Fehlermeldung bei diesem Code (Anhang).
Gruß
Hallo,
bitte zeige den Code. Denn Du könntest ja etwas falsch umgesetzt haben. Es ist daher unerlässlich den verwendeten Code zu zeigen.
SELECT tbl_Modell.ModellID, tbl_Modell.Modell, tbl_Modell.HerstellerID_F
FROM tbl_Modell WHERE tbl_Modell.HerstellerID_F =" & Me!cboHersteller.Value
Anbei noch eine andere Frage:
Habe in einem ungebundenen Textfeld folgendes reingeschrieben: [=cboHersteller] --> Möchte dass die Auswahl die in dem Kombinationsfeld cboHersteller gemacht wird an das Textfeld übergeben wird. Mir wird aber die ID angezeigt und kein Text, warum ist das so? (Anhang)
Hallo,
ZitatMir wird aber die ID angezeigt und kein Text, warum ist das so?
Das ist normal und auch richtig so. Das Kombi soll ja die ID speichern, also wird bei Bezug auf das Kombi auch dessen gebundene Spalte angezeigt. Das darf nicht geändert werden.
Warum brauchst Du überhaupt das Textfeld ?
Im Regelfall zeigt man im Kombi auch den Klartext an, indem man die Spalte mit der ID über die Spaltenbreite 0cm ausblendet.
Zum anderen Problem, solltest Du mal eine Beispieldb erstellen, damit man das mal prüfen kann. Ich benötige aber zwingend ein MDB (Access2003), ACCDB's kann ich nicht öffnen.
Im Kombi wird mir ja auch die Auswahl als Text angezeigt (cboHersteller = Toshiba) - ich möchte aber das Toshiba auch im Textfeld bei Hersteller steht und nicht dessen ID=3! Mit (=[cboHersteller]) im Textfeld geht das leider nicht. Wie kann man das einrichten?
Ich schaue mal dass ich eine Beispieldb erstellen...
Gruß und Danke
Hallo,
irgendwie verstehe ich Dein Vorhaben gerade nicht. Wenn doch der Hersteller im Kombi angezeigt wird, warum willst du diesen in einem Textfeld noch mal sehen, ist doch überflüssig. Und gespeichert wird der Klartext schon mal gar nicht, auch nicht zusätzlich.
Hallo,
Nicht das ich Klaus in den Rücken fallen will, er hat ja völlig recht, aber
wenn's denn unbedingt sein soll
=cboHersteller.Column(1)
gruss ekkehard
Danke Ekkehard - das habe ich gebraucht!
Anbei eine Beispieldb - es geht um die cbo's im Formular.
Hofe es kann mir Jemand helfen
Gruß und Danke
Hallo,
die Lösung mit Column habe ich bewusst nicht genannt, denn ich bin sehr sicher, Dass Du es nicht brauchst. Leider hast Du meine diesbezüglichen Fragen ignoriert.
Ich könnte, wie Du richtig sagst, dieses textfeld auch theoretisch weglassen - doch das soll (siehe mein Formular) noch einmal als Zusammenfassung aufgeführt werden! Daher möchte ich die Auswahl des cbos an das Textfeld übergeben haben)
Hallo,
es genügt vollständig nur die Kombis zu verwenden.
Siehe DB im Anhang. Die Abhängigkeit habe ich eingebaut.
Aber ich möchte stark bezweifeln, dass das Vorhaben in der Form Sinn macht.
Normalerweise muss es eine Tabelle geben, in der die Geräte dem Mitarbeiter zugeordnet sind. Mit der Seriennummer des Gerätes. Und aus dieser Tabelle erstellt man einen Bericht der an eine Abfrage gebunden wird der alle Felder aus allen relevanten Tabellen enthält. Dann musst Du im Formular nur den entsprechenden Mitarbeiter suchen im Ufo siehst Du dessen Geräte. Doppelklick auf einen Datensatz öffnet den entsprechenden Bericht. Dabei sind alle Felder automatisch ausgefüllt.
Der Bericht (Übergabe) muss an die Tabelle Hardware gebunden werden. Diese Tabelle hat einen Bezug zum Mitarbeiter und einen Bezug zum Gerät. Und über diesen Bezug ist auch Modell und Hersteller bekannt. Auswahlmöglichkeit für Hersteller und Modell sind für die Übergabe fehl am Platz und überflüssig. Über eine Abfrage mit der Tabelle Hardware und den abhängigen Tabellen kannst Du das Übergabeprotokoll für einen Mitarbeiter und ein Gerät automatisch ausfüllen und drucken.
So wie Du das jetzt hast, wird die Übergabe nicht auf ein bestimmtes Gerät gemacht, sondern der Hersteller und der Typ gewählt, was keinen Bezug zu den gespeicherten Daten hat.
Ich meine, ich hätte das schon mal so erklärt.
Ich halte das Konzept so wie das jetzt ist für unbrauchbar.
Klingt natürlich alles schön was Du sagst - aber ich habe leider nicht die Kenntnis um das von Dir beschriebene umzusetzen.
Ich habe auch ein Formular (siehe Anhang) wo im Ufo dem Mitarbeiter seine Geräte angezeigt werden.
Bzw. über die Beziehungen zw. den Tabellen ist die Grundlage eigentlich dafür auch vorhanden.
Dadurch würde der Arbeitsprozess um einiges erleichtert werden, wenn ich im Ufo auf die Seriennummer doppelklicke und es sich ein druckfähiges Bericht öffnet - aber da verstehe ich Bahnhof))
Gibt es eine Anleitung dafür nach der man vorgehen kann?
Hallo,
ich habe oben noch Text ergänzt, bitte noch mal lesen.
Der Bericht muss an die Tabelle Hardware gebunden werden (über eine Abfrage) mit allen Detailtabellen.
Für den Bericht muss die HardwareID übergeben werden, wenn man auf die entsprechende Zeile im Ufo doppelt klickt.
Wenn Du nicht klar kommst, lade die DB hier hoch mit einigen Spieldatensätzen.
Aber denke daran, ich brauche zwingend eine MDB.
Ich werde das mal versuchen) - Falls ich nicht weit komme (wird wahrscheinlich so sein), werde ich eine DB hochladen!
Schönen Tag Euch noch...
Hallo Klaus,
Zitatdie Lösung mit Column habe ich bewusst nicht genannt,
Weiss ich ja, deshalb ja auch meine Formulierung mit
ZitatNicht das ich Klaus in den Rücken fallen will ... aber wenn's denn unbedingt sein soll
Mein Gedanke hinter der Antwort lag eher darin, ihm die Eigenschaft
.Column zu vermitteln; - kann er ja vielleicht mal in einem, sinnvollen,
Zusammenhang brauchen.
Nichts für ungut.
gruss ekkehard
Hallo,
habe ein Formular (frmMitarbeiter) mit Ufo, wo die entsprechenden Geräte angezeigt werden. Des Weiteren habe eine Abfrage (qryHardware) für die Tabelle tblHardware (mit allen Detaildatensätzen) erstellt. Zudem einen Bericht (rptHardware) mit allen Detaildatensätzen und ein ÜbergabeProtokoll (rptUebergabeprotokoll) mit Textfeldern, deren Namen den Bezeichnung in Tabellen entsprechen, die gefüllt werden sollen.
Wie bindet man den Bericht an die tblHardware über Abfrage?
Wie kann man die HardwareID an den Bericht übergeben? Sodass der Bericht automatisch beim Doppelklick gefüllt wird?
Wer kann mir das erklären?
Gruß und Danke
Hallo,
ZitatWie bindet man den Bericht an die tblHardware über Abfrage?
in dem man diese Abfrage als Datenquelle für den Bericht verwendet. In dieser Abfrage muss auch das Feld "HardwareID" vorhanden sein.
Im Bericht gibt es ein Feld für das Zubhör.
ZitatWo ist denn das Zubehör gespeichert ?
Ich kann da kein Feld finden. Wahrscheinlich fehlen hier noch Tabellen.
Für das Zubehör gibt es kein Feld. Das muss ich noch löschen oder werde es mit der Zeit einfügen...
Hallo,
ZitatDas muss ich noch löschen oder werde es mit der Zeit einfügen...
Du kannst nicht einfach ein Feld einfügen. Ein Gerät hat ja nicht nur ein Zubehör und ein Zubehör (z.B. Netzteil) kann es für mehrere Geräte geben. Daher sind hie noch 2 Tabellen notwendig, eine für alles Zubehör das es gibt und eine Tabelle die das zutreffende Zubehör einem Gerät zuordnet. Das ist eine n:m Beziehung.
Okay, habe jetzt noch eine Zubehoertabelle (tblZubehoer) und eine Zuweistabelle (tblGeraetetypzubehoer) erstellt.
Die Beziehungen sehen jetzt wie folgt aus (beispieldb im Anhang) - hast Du dass so gemeint?
Gruß
Hallo,
meiner Meinung nach ist das Zubehör nicht vom Gerätetyp abhängig, sondern von der Hardware. Das Zubehör muss ja individuell zusammengestellt werden. Oder zum Gerät, das musst Du beurteilen. Das eine User will für seinen Laptop eine Maus und dem anderen genügt das Pad. Das musst Du beurteilen.
PS:
Bitte zähle Deine Beispiele hoch und verwenden einen ordentlichen Namen (z.B. Geraete01.MDB). Ich habe ja einige Themen wo ich helfe und da ist es sinnvoll, wenn ich die auseinander halten kann. Man muss sonst jedes mal umbenennen, wenn man sich die vorherigen Versionen nicht überschreiben will. Und es ist ja sinnvoll, die mindestens den Vorgänger zu erhalten.
Gut - habe jetzt die Beziehungen und den Bericht (rptUebergabeprotokoll)verändert und die Abfrage (qryHardware) dementsprechend angepasst)
Gruß
Hallo,
so, ich habe Dir das mal eingebaut.
Öffne das Formular "frmMitarbeiter" und klicke im Ufo das Feld mit dem Gerät (1.Spalte) doppelt. Es öffnet sich der passende Bericht.
Zur besonderen Beachtung:
Jedem Gerät muss ein Zubehör zugeordnet werden, also mindestens "kein Zubehör" muss gewählt sein.
Bei Fragen bitte melden, ich habe im Moment nicht viel Zeit für weitere Erklärungen.
Vielen Dank Klaus - werde mir das anschauen und versuchen auf meine Datenbank anzuwenden!
Doppelklick ist jetzt für Übergabaprotokoll reserviert, besteht die Möglichkeit zusätzlich einen Einfachklick für Rückgabeprotokoll einzurichten?
Gruß
Hallo,
Zitatbesteht die Möglichkeit zusätzlich einen Einfachklick für Rückgabeprotokoll einzurichten?
nein, das geht nicht. Die Klickereignisse gehen nur entweder oder.
Ich würde das Ufo als Endlosformular anlegen mit den Spaltenüberschriften im Formularkopf. Dann kann man im Detailbereich 2 kleine Buttons anlegen. Einen beschriftet man mit "Ü" und den anderen mit "R". Ein klick auf den Button druckt den entsprechenden Bericht.
Was willst Du eigentlich mit dem Feld "AusgeliehenAN" ?
Scheint mir überflüssig, denn Du ordnest ja das Gerät einem Namen zu. Und das ist der der auch leiht.
Hallo,
habe jetzt 2 Tage gebraucht um das auf meine Datenbank anzuwenden, aber es funktioniert! Bin echt begeistert! Vielen Dank!
Das Feld 'AusgeliehenAn' ist für den Fall falls der MA sein Gerät an Jemanden weiterleiht.
Statt die Buttons zu machen, habe ich bei der nebenstehenden Spalte den Doppelklick für Rückgabeprotokoll eingerichtet.
Falls ich jetzt ein neues Gerät eines Mitarbeiters in die Datenbank aufnehmen möchte - ist es sinnvoller (aufgrund der ganzen ID's) ein neues Formular zu erstellen oder wäre es dasselbe wie mit dem Assistenten einen Button (Neuer Datensatz erstellen ) einzurichten?
Gruß
Hallo,
weil ich die Möglichkeit haben möchte ein neues HardwareGerät eines MAs in Datenbank aufnehmen zu können, habe ich aus dem UFO ein Eindlosformular gemacht, die Spaltenüberschriften in den Formularkopf gezogen und im Formularfußbereich einen Button mit Hilfe des Assistenten erstellt (Neuen Datensatz erstellen) - doch statt beim Klicken die felder zu leeren damit neues Hardware eingeben kann - bekommen ich diese Fehlermeldung - Sie können nicht zum aktuellen Datensatz springen - Warum ist es so? Im Anhang iste der Code hinterlegt...
Hallo,
ich würde zur Erfassung neuer Geräte ein eigenes Formular vorsehen, das man per Doppelklick zur Eingabe eines neuen Gerätes aus dem jetzigen Formular öffnet.
Hallo,
habe ein Formular "frm_GeraeteNeu" und einen Button der dieses Formular öffnet.
Damit die Felder leer sind, habe ich bei Ereignisse beim Laden:
DoCmd.GoToRecord , , acNewRe
eingegeben - bekomme aber einen Laufzeitfehler 2105 angezeigt...
Hallo,
und was soll man jetzt mit 2105 anfangen ?
Ich kenn doch die Fehlernummern nicht auswendig.
Laufzeitfehlermeldung 2105:
Sie können nicht zum angegebenen Datensatz springen.
Hallo,
sollte vielleicht
acNewRec
heißen.
Ist nur hier ein Schreibfehler - steht im Code schon richtig)
Hat es vllt. mit irgendeiner Einstellung des Formulars zu tun?
Hallo,
ZitatHat es vllt. mit irgendeiner Einstellung des Formulars zu tun?
Evtl., die Eigenschaft "Anfügen zulassen" muss auf JA eingestellt sein.
Versuche aber mal die Eigenschaft "Dateneingabe" auf JA zu stellen, ob dann beim
Öffnen die gleiche Fehlermeldung kommt. Dann könnte es auch sein, dass die Daten-
Herkunft des Formulars nicht aktualisierbar ist.
gruss ekkehard
Die beiden Eigenschaften stehen auf JA.
Das Formular bezieht die Daten aus mehreren Tabelle (habe auch mittels einer Abdfrage vesucht das Formular zuerstellen, kommt trotzdem diese Fehlermeldung)
Die Tabellen sind ja alle miteinander verknüpft - kann es sein das irgendein ID nicht vorhanden ist und daher die Zuordnung fehlt?
Habe eine BeispielDB erstellt - vllt. könnte sich das Jemand anschaunen. Wäre echt super!
Gruß und Danke im Voraus
Hallo,
Du willst doch ein neues Gerät erfassen, was willst Du da mit der qryHardware ?
Mit dieser Abfrage können keine neuen Geräte erfasst werden.
Das Formular zur Erfassung neuer Geräte muss logischerweise auf der Tabelle "tblGeräte" basieren. In diesem Formular braucht es dann auch ein Unterformular zur Zuordnung des Zubehörs.
Das Erfassen eines neuen Gerätes ist ein völlig eigenständiges Vorhaben zum dem es auch eigene Abfragen geben muss.
qryHardware beinhaltet alle Felder, die zur Aufnahme eines neuen Gerätes gebraucht werden....
Du meinst zu jeder Tabelle eine Abfrage erstellen und diese dann in das Farmular (basierend auf der tbl_Geraete) integrieren?
Wie kann man den Fokus des alten Formulares (MitarbeiterID) an das neue Formular übergeben, damit die Geraetezuordnung erfolgt ohne dass man den Name des MAs etc. eingeben muss?
Gruß
Hallo,
ZitatqryHardware beinhaltet alle Felder, die zur Aufnahme eines neuen Gerätes gebraucht werden....
sorry, aber das ist Unsinn. Die Abfrage kann zur Erfassung eines neuen Gerätes definitiv nicht verwendet werden. Diese Abfrage ist nicht aktualisierbar (kann auch nicht geändert werden) und damit ist es unmöglich neue Datensätze anzufügen. Daher auch die Fehlermeldung.
Neue Geräte werden mit der Tabelle "tblGeraete" erfasst und auf dieser Tabelle (bzw.Abfrage) muss auch das Formular basieren. In diesem Formular muss dann auch jeweils per Kombi das Modell, der Typ und der Standort zugeordnet werden.
Dieses Formular benötigt dann noch ein Unterformular um dem neuen Gerät auch das passende Zubehör zuordnen zu können.
Da muss auch nix übergeben werden. Wenn das Formular für das neue Gerät geschlossen wird, muss das Kombi im jetzigen Ufo aktualisiert werden, dann kannst Du das neu erfasste Gerät dem Mitarbeiter zuordnen. Da muss kein Fukus gesetzt werden.
Ich habe das Gefühl, Du hast die Zusammenhänge immer noch nicht verstanden.
Wenn Du nicht klar kommst, baue ich es Dir mal ein, aber erst morgen, ich gehe jetzt auf den Wurstmarkt in Bad Dürkheim (größtes Weinfest der Welt).
Die Zusammenhänge habe ich noch nicht wirklich verstanden - kämpfe noch damit!)
Das wäre natürlich super!
Viel Spaß aufm Weinfest!
Gruß
Hallo,
ich habe Dir das mal eingebaut.
Es gab auch noch ein kleiner logischer Fehler. Die Gerätebezeichnung gehört in die Tabelle mit den Geräten und nicht in die Hardwaretabelle. Im Unterformular kann man dann das Gerät per Kombi auswählen. Den Feldnamen habe ich geändert, von Geraet in GeraetBez.
Bei Klick auf "Neue Geraete erfassen" öffnet sich das entsprechende Formular und man kann ein (oder gleich mehrere) neue(s) Gerät erfassen und auch das Zubehör zuordnen. Es muss mindestens "Kein Zubehör" eingetragen werden.
Nach Schließen des neue Geräte Formulars kann man das neue Gerät über das Kombi dem angezeigten MA zuordnen.
Meiner Meinung nach gehört der Standort in die Hardwaretabelle und nicht zum Gerät.
PS:
Bitte bleibe bei neuen Versionen beim Hochzählen (jetzt 02).
Danke Klaus - werde mich mal reinschauen!
Gruß
Guten Morgen,
also im Ganzen funktioniert fast alles einwandfrei - irgendwie kann ich aber die erfassten Geräte keinem Mitarbieter über das UFO im Formular frmMitarbeiter zuordnen - verstehe nicht warum!
Dateneingabe steht auf JA und das UFO ist nicht gesperrt aber trotzedem fehlt bei mir dieses Sternchen für neue Zeile ... :o
Warum ist es so?
Hallo,
das Bild nutzt nix, zeige mal die Abfrage (SQL) für das Ufo im Formular "frmMitarbeiter".
Kannst Du Daten ändern wenn Du versuchsweise die Abfrage direkt öffnest ?
Hallo,
ich kann keine Daten in der Abfrage ändern!
Anbei der Code:
SELECT [tbl_Geraete].[GeraetBez], [tbl_Geraetetyp].[Geraetetyp], [tbl_Hersteller].[Hersteller], [tbl_Modell].[Modell], [tbl_Geraete].[Seriennummer], [tbl_Geraete].[IMEiNr], [tbl_Geraete].[Knotennamen], [tbl_Hardware].[Ausleihe], [tbl_Hardware].[AusgeliehenAN], [tbl_Hardware].[AusgeliehenDatum], [tbl_Hardware].[RueckgabeDatum], [tbl_Hardware].[Rueckgabe], [tbl_Hardware].[BildschirmarbeitsplatzJANEIN], [tbl_Hardware].[AusgabeDatum], [tbl_Hardware].[HardwareID], [tbl_Zubehoer].[ZubehoerID], [tbl_Zubehoer].[Zubehoer], [tbl_Hardware].[MitarbeiterID_F], tbl_Hardware.GeraetID_F FROM ((tbl_Hersteller INNER JOIN tbl_Modell ON [tbl_Hersteller].[HerstellerID] =[tbl_Modell].[HerstellerID_F]) INNER JOIN (tbl_Geraetetyp INNER JOIN (tbl_Geraete INNER JOIN tbl_Hardware ON [tbl_Geraete].[GeraeteID] =[tbl_Hardware].[GeraetID_F]) ON [tbl_Geraetetyp].[GeraeteTypID] =[tbl_Geraete].[GeraeteTypID_F]) ON [tbl_Modell].[ModellID] =[tbl_Geraete].[ModellID_F]) INNER JOIN (tbl_Zubehoer INNER JOIN tbl_GeraeteZubehoer ON [tbl_Zubehoer].[ZubehoerID] =[tbl_GeraeteZubehoer].[ZubehoerID_F]) ON [tbl_Geraete].[GeraeteID] =[tbl_GeraeteZubehoer].[GeraeteID_F];
Gruß
Kommst so etwas dann vor, wenn mehrere Tabelle nicht miteinader verknüpft sind oder?
Hallo,
alle Tabellen müssen verknüpft sein. Die Abfrage sollte nur die Tabellen enthalten die zur Anzeige der Felder benötigt werden. Das Zubehör macht z.B. keinen Sinn. In dieser Abfrage kann man das Zubehör nicht anzeigen.
Tabelle sind ja alle bei mir miteinander verknüpft - sowie in der Beispieldatenbank.
Wenn ich Zubehör aus der Abfrage entferne, ändert sich nichts!
Hallo,
kann ich jetzt nicht nachvollziehen.
Lade mal wieder die DB hoch (als ...04).
Okay jetzt geht es - habe eine neue Abfrage erstellt - ohne Zubehoer.
Da jetzt aber das Feld "Zubehoer" im Ufo des Formulars "frmMitarbeiter" nicht gibt, wird auch im Bericht das Feld "Zubehoer " nicht mehr gefüllt! Was soll ich beim Steuerelementinhalt des Formulars angeben damit das zugehörige Zubehör des Gerätes ausgefüllt wird?
Zuvor war das ja so:
=[Formulare]![frm_Mitarbeiter]![frmMitarbeiterUfoGeraete]![Zubehoer]
und jetzt ist das Feld "Zubehör" im frmmitarbeiterUfoGeraete nicht mehr vorhanden...
Hallo,
ZitatDa jetzt aber das Feld "Zubehoer" im Ufo des Formulars "frmMitarbeiter" nicht gibt, wird auch im Bericht das Feld "Zubehoer " nicht mehr gefüllt!
Das ist ein ziemlicher Trugschluss. Das Ufo hat mit dem Bericht nicht das geringste zu tun. Der Bericht benötigt eine
eigenständige Abfrage in der dann das Zubehör enthalten sein muss. Der Bericht benötigt ja eine ganz anderes Datenzusammenstellung als das Ufo im Formular "frmMitarbeiter". Es sind daher auch unterschiedliche Abfragen notwendig.
In meinem Beispiel (...02) ist das Zubehör auch nicht in der Abfrage und der Bericht funktioniert trotzdem.
Ja ich habe es gefunden - kann aber nicht nachvollziehen wie Du es gelöst hast! Sehe im Steuerelementinhalt nur den Begriff "Zubehoer"
Okay - ich habs!
Vielen Dank
Hallo Gemeinde,
ich hatte im Formular ein Kombinationsfeld "Kombinationsfeld10" wo ich die Personalnummer der Mitarbeiter auswählen konnte und dementsprechend weitere Felder gefüllt wurden.
Nun möchte ich aber statt Personalnummer nach dem Nachname im Kombinationsfdeld suchen können - Datensatzherkunft, Steuerelementinhalt und den Code habe ich dementsprechend angepasst - funktioniert aber nicht!
Warum kann das mit dem Code so nicht funktionieren?
Private Sub Kombinationsfeld10_AfterUpdate()
'Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Nachname] = " & Str(Nz(Me![Kombinationsfeld10], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Gruß
Sobald ich einen Nachnamen auswähle, kommt ein Laufzeitfehler 13 : Typen unverträglich
Hallo,
Nachname ist Text und muss in Hochkomma eingeschlossen werden. Der automatische Code ist auch etwas reichhaltig.
rs.FindFirst "[Nachname] ='" Me![Kombinationsfeld10] &"'"
Hallo Klaus,
wenn ich das so wie Du mache, bekomme ich einen Syntaxfehler angezeigt...
Hallo,
könnte die Ursache sein:
Zitat.....& "'"
Hallo,
ne - Syntaxfehler kommt immer noch
Hallo,
Zitatne - Syntaxfehler kommt immer noch
was soll man mit einer solchen Aussage anfangen, nichts. Das mindeste wäre ja wohl dass man den Text der Fehlermeldung zitiert (wörtlich) und dann auch noch den
verwendeten Code zeigt.
Als Meldung kommt: "Fehler beim Kompilieren: Syntaxfehler"
Private Sub Kombinationsfeld10_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Nachname] ='" Me![Kombinationsfeld10] &"'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Gruß
In dieser Zeile:
rs.FindFirst "[Nachname] ='" Me![Kombinationsfeld10] &"'"
Hallo,
mein Fehler, schon in #103
So muss es ausssehen:
rs.FindFirst "[Nachname] ='" & Me![Kombinationsfeld10] &"'"
Es fehlt das & vor Me.....
Hätte man auch selbst drauf kommen können bei einem Vergleich mit dem automatisch erzeugten Code.
Bei gleichnamigen Mitarbeitern kommt eine Meldung: Update oder CancelUpdate ohne Addnew oder Edit.
Danach geht gar nichts...
Wie kann man diese vermeiden?
Indem du nach der eindeutigen PersonenID suchst und nicht nach einem Namen,
der 1000x in der Tabelle stehen könnte.
Hallo Acces Gemeinde,
habe in einem Textfeld folgendes stehen: =[cboModellID_F].[column](2)+[cboModellID_F].[column](1)
Mein Ergebnis ist ein zusammengeschriebenes Wort - ich hätte aber gerne ein Trennzeichen zwischen Spalte 2 und 1
Was muss ich da noch einfügen?
MfG
mustermann
Hallo,
Zitatich hätte aber gerne ein Trennzeichen zwischen Spalte 2 und 1
Dannfüge doch eins ein.
Texte werden im Regelfall mit & verbunden und nicht mit +
=[cboModellID_F].[column](2) & "," & [cboModellID_F].[column](1)
wie kann man diesen Ausdruck in ein textfeld einfügen und gleichzeitig steuerelemeninhlat beibehalten?
Hallo,
Zitatwie kann man diesen Ausdruck in ein textfeld einfügen und gleichzeitig steuerelemeninhlat beibehalten?
gar nicht. Da geht nur entweder oder.
Aber wozu willst Du das? Derartige "berechneten" Werte werden nicht in einer Tabelle gespeichert. Ein Steuerelemeninhalt wird daher gar nicht benötigt.
Was sind denn das für Werte die da zusammengefügt werden ?
Das sind Hersteller und Model ergeben zusammen die GeraeteBezeichnung (möchte diese beim Erfassen neuer Geräte nicht immer wieder schreiben)
vllt kannst Du dich noch an die Bespieldatenbank erinnert, wo Du mir ein Kombintationsfeld GeareteBez für die Zuordnung der Geräte eingebaut hast...
Wenn ich den Steuerelementinhalt entferne und diesen Ausdruck "=[ModellID_F].[column](2) & " " & [ModellID_F].[column](1)" einfüge, fällt bei mir dann die GeraeteBez bei der Zuordnung ... verstehen ich nicht...
Hallo,
das brauchst Du doch gar nicht. Zuordnungen erfolgen ausschließlich über die ID's (Primär-Fremdschlüssel). Wenn Du die Bezeichnungen brauchst, nimm eine Abfrage, oder die Formel wie geziegt. Das Feld hat aber nichts in der Tabelle zu suchen.
Ich denke, Du machst hier einen ziemlichen Denkfehler.
Zeige mal ein Bild des Beziehungsfensters.
Ich meinte die Zuordnung des neu angelegten Gerätes erfolgt über ein Kombinationsfeld (GeraeteBez) im Ufo für den jeweiligen MA
Habe mich mit Acces noch nicht angefreundet)
Noch ein anderes Anliegen
Ich habe einen Suchbutton mit diesem Code belegt:
Private Sub cmdSuche_Click()
If Len(Me!txtSuche) > 0 Then
strFilter = "Nachname LIKE '" & Me!txtSuche & "'"
Me!frmMitarbeiterUfoGeraeteNeu.Form.Filter = strFilter
Me!frmMitarbeiterUfoGeraeteNeu.Form.FilterOn = True
Else
Me!frmMitarbeiterUfoGeraeteNeu.Form.Filter = ""
End Sub
Ich möchte gerne den Code so erweitern, dass wenn der Nachname nicht existiert eine Msgbox ("Möchten Sie ein neues Mitarbeiterprofil anlegen?") mit JA/Nein Schaltfläche erscheint. Bei 'Ja'-Betätigung führt dies zum Schließen den aktuellen Formular und zum Öffneneines anderen Formulars 'XY' und bei 'Nein' sich die Msgbox einfach wieder schließt.
Kann mir dabei Jemand helfen?
Gruß
Danke
Hallo,
If IsNull(DLookup("FeldNachname", "DeineTabelle", "FeldNachname = " & Str(Me!txtsuche))) Then
Dim Messageboxwert As Byte
Messageboxwert = MsgBox("DeinFehlertext", vbYesNo, "Wie soll die Messagebox heißen")
If Messageboxwert = vbYes Then
'Und hier dann den Code Für formularöffnen und schließen
Bin zwar kein Profi aber bei mir Funktioniert es so in ähnlicher Form
Hoffe ich konnte helfen.
MfG
Joe0301
Werde es mal versuchen
Danke
Kann nicht sagen ob der Code funktioniert, bekomme eine Fehlermeldung:
"If-Block ohne End If" bei diesem Code:
Private Sub Kombinationsfeld88_AfterUpdate()
If IsNull(DLookup("Nachname", "tbl_Mitarbeiter", "Nachname = " & Str(Me!Kombinationsfeld88))) Then
Dim Messageboxwert As Byte
Messageboxwert = MsgBox("Mitarbeiter existiert nicht! Soll ein Profil angelegt werden?", vbYesNo, "Info")
If Messageboxwert = vbYes Then
DoCmd.OpenForm "frm_MitarbeiterNeu"
End If
End Sub
Kann mir Jemand bitte sagen was hier fehlt?
Gruß
Sorry habe falschen Code gepostet...
Es geht um diesen Code (genauer gesagt um Teil 2 - der nicht den gewünschten Prozess einleitet):
Private Sub Kombinationsfeld88_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[MitarbeiterID] = " & Str(Nz(Me![Kombinationsfeld88], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
'Teil 2
If IsNull(DLookup("MitarbeiterID", "tbl_Mitarbeiter", "MitarbeiterID = " & Str(Me!Kombinationsfeld88))) Then
Dim Messageboxwert As Byte
Messageboxwert = MsgBox("Mitarbeiter existiert nicht! Soll ein Profil angelegt werden?", vbYesNo, "Info")
If Messageboxwert = vbYes Then DoCmd.OpenForm "frm_MitarbeiterNeu"
End If
End Sub
Hallo,
es sollte auch einfacher gehen:
Private Sub Kombinationsfeld88_AfterUpdate()
Dim rs As Dao.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[MitarbeiterID] = " & Nz(Me![Kombinationsfeld88], 0)
If Not rs.Nomatch Then
Me.Bookmark = rs.Bookmark
Else
If MsgBox("Mitarbeiter existiert nicht! Soll ein Profil angelegt werden?", vbYesNo, "Info") = vbYes Then
DoCmd.OpenForm "frm_MitarbeiterNeu"
End If
End If
rs.Close
Set rs=Nothing
End Sub
Hallo Franz,
ich bekomme leider diese Fehlermeldung:
Fehler beim Kompilieren: Benutzerdefinierter Typ nicht defieniert. "Wobei Dim rs As DAO.Recordset" markiert wird...
Beim ersten Code fehlt lediglich ein
zweites End if
Hallo Joe0301,
die Fehlermeldung (Benutzerdefienierter Typ nicht defieniert) bleibt auch mit dem zweiten End If bestehen...
Ich meinte natürlich die Fehlermeldung: End If ohne If-Block bleibt bestehen....
Hallo,
welchen Code verwendest Du nun?
Poste den mal mit Copy&Paste
Messageboxwert = MsgBox("Mitarbeiter existiert nicht! Soll ein Profil angelegt werden?", vbYesNo, "Info")
If Messageboxwert = vbYes Then
DoCmd.OpenForm "frm_MitarbeiterNeu" 'Neue Zeile beginnen
End If
End if 'das zweite End if muss trotzdem dabei sein
End Sub
::) ::)
die GANZE Prozedur bitte....
Hast Du mal meinen Vorschlag getestet. Den hab ich ja nicht umsonst gepostet.
Hallo Franz,
ich habe beide Codes ausprobiert!
Bei dem, denn Du gepostet hast, kommt folgende Fehlermeldung: Benutzerdefinierter Typ nicht definiert.
Weil bei mir wahrscheinlich die Microsoft DAO 2.1 Object Library eingestellt ist. ich weiß aber nicht wie ich auf 3.6 umstellen - habs noch nicht gefunden..
Der Code :
Private Sub Kombinationsfeld88_AfterUpdate()
Dim db As Dao.Database
Dim rs As Dao.Recordset
Set rs = Me.Recordset.Clone
rs.Findfirst "[MitarbeiterID] = " & Nz(Me![Kombinationsfeld88], 0)
If Not rs.Nomatch Then
Me.Bookmark = rs.Bookmark
Else
If MsgBox("Mitarbeiter existiert nicht! Soll ein Profil angelegt werden?", vbYesNo, "Info") = vbYes Then
DoCmd.OpenForm "frm_MitarbeiterNeu"
End If
End If
rs.Close
Set rs = Nothing
End Sub
Gruß
Hallo,
Benutzerdefinierter Typ nicht definiert.
Öffne den VBA-Editor, dann setze einen Haken unter Extras/Verweise bei der Microsoft DAO3.6 Library oder dem Nachfolger "Microsoft Office XX Access Database Engine" bei höheren Access-Versionen.
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
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
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
Hallo,
gibst Du nun einen Namen in das Kombifeld ein oder wählst Du einen aus....?
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...
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...
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ß
Hallo,
ja, das ist umsetzbar, indem das Ereignis "Bei nicht in Liste" benutzt wird.
etwa so :
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
Das hat mir gefehlt -super!
Danke
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ß
Hallo,
in einer Tabelle geht das nicht, aber in einer Abfrage als berechnetes Feld.
Einfach so:
ZitatFeld3: Feld1 & Feld2
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ß
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
Danke