Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Problem mit Select Case

Begonnen von uwe01, März 10, 2012, 21:17:26

⏪ vorheriges - nächstes ⏩

uwe01

Hallo,

in mein Formular habe ich eine ein Combo Feld zum auswählen eines Typen. In Abhängigkeit des ausgewählten Typ werden Felder im Formular ein oder ausgeblendet.
Private Sub Typ_AfterUpdate()
'Kombifeld nach Aktualisierung

Me![Int Nr].Visible = True
Me!Kennzeichen.Visible = True
Me!Mobiltelefon.Visible = True
Me!Flurförderfahrzeug.Visible = True
Me!Tüv.Visible = True
Me![Sicherheits Prüfung].Visible = True
Me![Kühlagregat Nr].Visible = True
Me![EZ Modeljahr].Visible = True
'Me!Kühlfähig.Visible = True

Select Case Me!Typ

Case 1  ' Zugmaschine

Me![Int Nr].Visible = True
Me!Kennzeichen.Visible = True
Me!Mobiltelefon.Visible = True
Me!Flurförderfahrzeug.Visible = True
Me!Tüv.Visible = True
Me![Sicherheits Prüfung].Visible = True
Me![Kühlagregat Nr].Visible = False
Me![EZ Modeljahr].Visible = True

Case 2  ' Motorwagen

Me![Int Nr].Visible = True
Me!Kennzeichen.Visible = True
Me!Mobiltelefon.Visible = True
Me!Flurförderfahrzeug.Visible = True
Me!Tüv.Visible = True
Me![Sicherheits Prüfung].Visible = True
Me![Kühlagregat Nr].Visible = True
Me![EZ Modeljahr].Visible = True

Case 3  ' Auflieger

usw

Nun das Problem welches Ich habe, wenn ich im Combo Feld  den Typ auswähle funktioniert das nicht aber wähle ich die ID dann reagieren die Felder. Allerdings wird dann auch in den Tabellen die ID in den Typ eingetragen und nicht die Art des Typen. Wie kann Ich das ändern, das ich den Typ mit Select Case Anspreche und nicht die ID

LG
Gruß Uwe01
Win 10, Access 2002/2013
Bitte um Verständliche Antworten !

Beaker s.a.

Hallo Uwe,
Wahrscheinlich musst Du die gebundene Spalte des Kombis auf das Feld Typ legen.
hth
gruss ekkehard
Alles, was geschieht, geschieht. - Alles, was während seines Geschehens etwas anderes geschehen lässt, lässt etwas anderes geschehen. - Alles, was sich selbst im Zuge seines Geschehens erneut geschehen lässt, geschieht erneut. - Allerdings tut es das nicht unbedingt in chronologischer Reihenfolge.
(Douglas Adams, Mostly Harmless)

uwe01

Hy Beaker,

verstehe deine Antwort nicht so richtig, kannst du das mal genauer erläutern.

LG
Gruß Uwe01
Win 10, Access 2002/2013
Bitte um Verständliche Antworten !

Beaker s.a.

Hallo Uwe,
Schreibe uns mal die Datenherkunft des Kombis.
Die Eigenschaft "Gebundene Spalte" findest Du im Register "Daten" des Eigenschaftenfensters.
Andere Möglichkeit wäre statt
Select Me!Typ.Value
mal
Select Me!Typ.Column(n)
zu versuchen.
n ist die Nummer der Spalte mit dem Typ (Spalten zähler ab 0).
hth
gruss ekkehard
Alles, was geschieht, geschieht. - Alles, was während seines Geschehens etwas anderes geschehen lässt, lässt etwas anderes geschehen. - Alles, was sich selbst im Zuge seines Geschehens erneut geschehen lässt, geschieht erneut. - Allerdings tut es das nicht unbedingt in chronologischer Reihenfolge.
(Douglas Adams, Mostly Harmless)

MzKlMu

Hallo,
ZitatAllerdings wird dann auch in den Tabellen die ID in den Typ eingetragen und nicht die Art des Typen.
Das ist ja auch richtig. Es sollte auf keinen Fall die Art des Typs eingetragen werden, sondern immer die ID. Das ist ja der Sinn der IDs.
Daher solltest Du am Kombi nichts ändern und am Code auch nicht.
Die Datenherkunft des Kombis sollte in der 1. Spalte die ID anzeigen und in der 2. die Art. Die gebunden Spalte (siehe Dateneigenschaften) sollte die 1. sein, Spaltenzahl zwei. Spaltenbreiten 0cm;5cm. Mit 0cm ist die 1.Spalte ausgeblendet sodass die Art im Kombi zu sehen ist. Gespeichert wird aber die ID, unbedingt.
Der Code sollte dann unverändert passen.
Gruß Klaus

Beaker s.a.

Hallo,
@MzKlMu
Da hast Du ihn wohl besser verstanden als ich.

@Uwe
Folge MzKlMus Erläuterungen.

Ich bin allerdings der Meinung, dass der Code zusätzlich ins Form_Current
gehört, damit beim DS-wechsel die Felder auch der TypID entsprechend
ein-/ausgeblendet werden.
gruss ekkehard
Alles, was geschieht, geschieht. - Alles, was während seines Geschehens etwas anderes geschehen lässt, lässt etwas anderes geschehen. - Alles, was sich selbst im Zuge seines Geschehens erneut geschehen lässt, geschieht erneut. - Allerdings tut es das nicht unbedingt in chronologischer Reihenfolge.
(Douglas Adams, Mostly Harmless)

uwe01

Hallo,

@ Beaker habe deine beiden Varianten getestet bringen kein erfolg. Dennoch Danke

@ MzKIMu Danke dir für deine Antwort, so hatte Ich das ja auch. Nur bekomme ich im Berichts Ausdruck nicht den Typ ausgedruckt sondern die ID. Schade
Werde mal ein neues Thema in Abfragen Schreiben.

Danke euch beiden für eure Antworten

LG Uwe01

Gruß Uwe01
Win 10, Access 2002/2013
Bitte um Verständliche Antworten !

Beaker s.a.

Hallo Uwe,
Wieso denn jetzt plötzlich Bericht, davon war vorher keine Rede.
Da brauchst Du doch nur das Feld Typ mit in die Datenherkunft
zu nehmen. Sollte doch kein Problem sein, wenn Du die ID schon
drin hast.
gruss ekkehard
Alles, was geschieht, geschieht. - Alles, was während seines Geschehens etwas anderes geschehen lässt, lässt etwas anderes geschehen. - Alles, was sich selbst im Zuge seines Geschehens erneut geschehen lässt, geschieht erneut. - Allerdings tut es das nicht unbedingt in chronologischer Reihenfolge.
(Douglas Adams, Mostly Harmless)

uwe01

Hallo Ekkehard,
die Sache ist die in dem Formular werden Fahrzeuge angelegt, dann habe ich eine Abfrage die  Tüv und Su Termine Rechnet. Soweit läuft es super dank DF6GL, jetzt habe ich mir eine Tabellenerstellungabfrage erstellt auf denen meine Berichte zugreifen. Damit ich mir jeden Monat die Fahrzeuge ausdrucken kann die mit Tüv/Su dran sind. Läuft ja auch, aber wie schon erwähnt werden da halt nicht der Typ angezeigt sondern eben die ID.
Und da  ja die  Tabellenerstellungabfrage nach ein geben des Monats bei jeden Aufruf die Tabelle neu schreibt kann ich da auch nicht viel einstellen. Ich müsste halt jetzt irgendwie im Bericht auf den Typ verweisen können, damit er erscheint.
Hoffe ich konnte das Verständlich rüber bringen.
Gruß Uwe01
Win 10, Access 2002/2013
Bitte um Verständliche Antworten !

DF6GL

Hallo,

also, von mir hast Du den Vorschlag zu einer Tabellenerstellungsabfrage für eine Berichtsverwendung nicht....   8)


Normalerweise erstellt man eine Auswahl(!)abfrage für den Bericht, die über alle benötigten Tabellen verknüpft (und somit alle nötigen Felder aus den Tabellen ausliest und in die Berichts-Datenherkunft liefert). Einschränkende Kriterien übergibt man (auch normalerweise)  als Where-Condition-Parameter der Openreport-Methode (VBA-Ausruf des Berichtes).
Viele Grüße vom Bodensee
Franz, DF6GL

Hilfestellung:  http://www.access-o-mania.de/forum/index.php?topic=6969.msg118738#msg118738

Links und Tipps:
1.   http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/
1a. http://www.tinohempel.de/info/info/datenbank/normalisierung.htm
1b. https://support.office.com/de-de/article/Grundlagen-des-Datenbankentwurfs-eb2159cf-1e30-401a-8084-bd4f9c9ca1f5#bmterms
2.   http://www.donkarl.com
3.   https://web.archive.org/web/20201201233522/http://www.dbwiki.net/
4.   http://www.access-tutorial.de/
5.   http://www.tty1.net/smart-questions_de.htm
6.   http://access.joposol.com/accept

Last but not least:   < F1 > für Hilfe
;) Learning by doing not by spoon-feed ;)

Tipp: Find and Replace for Access

uwe01

Hallo DF6GL,
richtig von dir stammt das mit der Tabellenerstellungabfrage nicht, sondern das Berechnen des Tüv/Su Termin. Das mit der Tabellenerstellungabfrage habe ich gebastelt. Sorry wenn das irgendwie Falsch rüber gekommen ist.

LG
Gruß Uwe01
Win 10, Access 2002/2013
Bitte um Verständliche Antworten !

DF6GL

Hallo,

Du darfst meinen "Einwand" nicht für so ernst halten...  ;) :D ;D


Viele Grüße vom Bodensee
Franz, DF6GL

Hilfestellung:  http://www.access-o-mania.de/forum/index.php?topic=6969.msg118738#msg118738

Links und Tipps:
1.   http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/
1a. http://www.tinohempel.de/info/info/datenbank/normalisierung.htm
1b. https://support.office.com/de-de/article/Grundlagen-des-Datenbankentwurfs-eb2159cf-1e30-401a-8084-bd4f9c9ca1f5#bmterms
2.   http://www.donkarl.com
3.   https://web.archive.org/web/20201201233522/http://www.dbwiki.net/
4.   http://www.access-tutorial.de/
5.   http://www.tty1.net/smart-questions_de.htm
6.   http://access.joposol.com/accept

Last but not least:   < F1 > für Hilfe
;) Learning by doing not by spoon-feed ;)

Tipp: Find and Replace for Access