Office Forum www.Office-Loesung.de Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <- Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login

Durch Wert in Kombifeld neue Kombifelder einblenden

Office Forum -> Access Forum -> Access Formulare			Gehe zu Seite 1, 2  Weiter
zurück: Endlosformular- Gleicher Name- andere Position weiter: Aktualisieren eines Formulars nach Schließen d Eingabemaske			Unbeantwortete Beiträge anzeigen
	Status: Offen		Diese Seite Freunden empfehlen Zu Browser-Favoriten hinzufügen

Autor	Nachricht
jonnyb2006 VBA Dummie Verfasst am: 20. Okt 2007, 09:51 Rufname: Wohnort: Kassel	- Durch Wert in Kombifeld neue Kombifelder einblenden Nach oben        Version: Office 2003 Hallo, ich habe ein Formular mit einem Kombifeld kf_order das folgende Werte aus der Tabelle tbl_order bezieht: Code: Service Wartung Retrofit Je nachdem was ich für einen Wert aus dem Kombi ausgewählt habe möchte ich das eines von 3 verschiedenen Kombifeldern "eingeblendet" wird! Bei Auswahl: Service soll das Kombifeld kf_service mit den Werten aus der Tabelle tbl_service eingeblendet werden! Bei Auswahl: Wartung soll das Kombifeld kf_wartung mit den Werten aus der Tabelle tbl_wartung eingeblendet werden! Bei Auswahl: Retrofit soll das Kombifeld kf_retrofit mit den Werten aus der Tabelle tbl_retrofit eingeblendet werden! Ich hoffe ich habe mich da verständlich ausgedrückt! Wie gehe ich da am besten vor??? gruß Bernd _________________ gruß Bernd Du mußt Deinen Traum finden dann wird der Weg leicht!
Nouba nicht ganz unwissend :) Verfasst am: 20. Okt 2007, 10:37 Rufname: Wohnort: Berlin	- AW: Durch Wert in Kombifeld neue Kombifelder einblenden Nach oben        Version: Office 2003 Hallo Bernd, das sollte so zu bewerkstelligen sein. Code: Private Sub kf_order_AferUpdate()   Dim i As Long   On Error Resume Next 'Falls doch einmal andere Werte in der Tabelle auftauchen. :)   With Me!kf_order     For i = 0 To .ListCount - 1       Me("kf_" & .ItemData(i)).Visible = .ItemData(i) = .Value     Next      End With End Sub [edit]Da war ein kleiner Fehler in der Schleifeninitialisierung.[/edit] _________________ mit freundlichen Grüssen Nouba Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen. Zuletzt bearbeitet von Nouba am 20. Okt 2007, 22:00, insgesamt einmal bearbeitet
Gast Verfasst am: 20. Okt 2007, 12:27 Rufname:	- AW: Durch Wert in Kombifeld neue Kombifelder einblenden Nach oben        Version: Office 2003 Hi, danke, das heißt der Name aus der Auswahl wird an den Namen des neuen Kombifeldes "kf_" angehangen und damit visible gemacht oder ? Klingt ja ganz simpel. Was passiert wenn ich aus dem ersten Kombifeld wieder einen anderen namen wähle? Bleibt das dann sichtbar oder erscheint automatisch ein neues?
Willi Wipp Moderator Verfasst am: 20. Okt 2007, 17:13 Rufname: Wohnort: Raum Wiesbaden	- Re: Durch Wert in Kombifeld neue Kombifelder einblenden Nach oben        Version: Office 2003 Hi jonnyb2006, warum versuchst Du es nicht einfach mal? Der Vergleich .ItemData(i) = .Value liefert entweder True (Ja) oder False (Nein). ==> entsprechend wird die Sichtbarkeit dann gesetzt. _________________ Eine kurze Rueckmeldung waere nett SL Willi Wipp (Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
jonnyb2006 VBA Dummie Verfasst am: 22. Okt 2007, 13:33 Rufname: Wohnort: Kassel	- AW: Durch Wert in Kombifeld neue Kombifelder einblenden Nach oben        Version: Office 2003 Hallo, habe das grade mal versucht umzusetzen. Leider passiert gar nichts, alle folgenden KF sind von Haus aus schon sichtbar! Bitte um Hilfe. Mein Code: Code: Private Sub kf_Auftragsart_AfterUpdate()   Dim i As Long   On Error Resume Next 'Falls doch einmal andere Werte in der Tabelle auftauchen. :)   With Me!kf_Auftragsart     For i = 0 To .ListCount - 1       Me("kf_" & .ItemData(i)).Visible = .ItemData(i) = .Value     Next   End With End Sub _________________ gruß Bernd Du mußt Deinen Traum finden dann wird der Weg leicht!
Willi Wipp Moderator Verfasst am: 22. Okt 2007, 13:39 Rufname: Wohnort: Raum Wiesbaden	- Re: Durch Wert in Kombifeld neue Kombifelder einblenden (II) Nach oben        Version: Office 2003 Hi jonnyb2006, Du bist Dir bewusst das das nur in einem Einzelformular funktionieren kann? Bei einem Datensatzwechsel musst Du den gleichen Code ebenfalls ausfuehren. _________________ Eine kurze Rueckmeldung waere nett SL Willi Wipp (Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
jonnyb2006 VBA Dummie Verfasst am: 22. Okt 2007, 14:19 Rufname: Wohnort: Kassel	- Re: Durch Wert in Kombifeld neue Kombifelder einblenden (II) Nach oben        Version: Office 2003 Was meinst Du mit Einzelformular? Ich habe 1 Formular mit ca. 2000 Datensätzen! Da bei dem KF das Ereignis nach Akualisierung gewählt ist müßte es doch gehen oder ? Könnte das ganze nicht auch mit einer eigenen Funktion funktionieren? EDIT /// Du hast recht, habe noch mal rumgebastelt und festgestellt dass die Auswahl immer alle Datensätze bertifft. Das ist natürlich nich so toll.......gibts da keine Chance? _________________ gruß Bernd Du mußt Deinen Traum finden dann wird der Weg leicht!
Willi Wipp Moderator Verfasst am: 22. Okt 2007, 15:01 Rufname: Wohnort: Raum Wiesbaden	- Re: Durch Wert in Kombifeld neue Kombifelder einblenden(III) Nach oben        Version: Office 2003 Hi jonnyb2006, doch, ich will es Dir nur nicht sagen Aber mal im Ernst, es gibt keine "einfache" Methode die 100% befriedigend in einem Endlosformular arbeitet. Um da weiter helfen zu koennen muessen mehr Informationen vorhanden sein. Was willst Du genau mit dem Formular machen? Man kann eventuell mit einem Textfeld und einem dahinterliegenden Kombinationsfeld arbeiten. Kannst Du vielleicht eine auf das Wesentliche reduzierte Beispiel-Db mit anonymisierten Demo-Daten online stellen? _________________ Eine kurze Rueckmeldung waere nett SL Willi Wipp (Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
jonnyb2006 VBA Dummie Verfasst am: 22. Okt 2007, 15:15 Rufname: Wohnort: Kassel	- AW: Durch Wert in Kombifeld neue Kombifelder einblenden Nach oben        Version: Office 2003 Hallo Willy, danke für die Info! Noch mal im Detail! Ich habe ein Auftragsformular. Mit den Kombifeldern: Hauptauswahl: Code: "kf_Auftragsart" liest den Inhalt aus der Tabelle Code: "tbl_Auftragsart" , dort gibt es nur ein Feld mit Namen Code: "Auftragsart" und 4 Einträgen Code: "Service" ; "Wartung" ; "Retrofit" ; "Montage" Nun gibt es in dem Formular noch 4 weitere Kombifelder die zunächst unsichtbar sein sollen: Detailauswahl KF1: Code: "kf_Service" liest den Inhalt aus der Tabelle Code: "tbl_Service" , dort gibt es nur ein Feld mit Namen Code: "Service" und 4 Einträgen Code: "Service A" ; "Service B" ; "Service C" ; "Service D" Detailauswahl KF2: Code: "kf_Wartung" liest den Inhalt aus der Tabelle Code: "tbl_Wartung" , dort gibt es nur ein Feld mit Namen Code: "Wartung" und 4 Einträgen Code: "Wartung A" ; "Wartung B" ; "Wartung C" ; "Wartung D" Detailauswahl KF3: Code: "kf_Retrofit" liest den Inhalt aus der Tabelle Code: "tbl_Retrofit" , dort gibt es nur ein Feld mit Namen Code: "Retrofit" und 4 Einträgen Code: "Retrofit A" ; "Retrofit B" ; "Retrofit C" ; "Retrofit D" Detailauswahl KF4: Code: "kf_Montage" liest den Inhalt aus der Tabelle Code: "tbl_Montage" , dort gibt es nur ein Feld mit Namen Code: "Montage" und 4 Einträgen Code: "Montage A" ; "Montage B" ; "Montage C" ; "Montage D" Je nachdem was für eine Auswahl in der Hauptauswahl getroffen wurde soll das etntsprechende Kombifeld eingeblendet werden. Vielleicht ist das ganze jetzt klarer! _________________ gruß Bernd Du mußt Deinen Traum finden dann wird der Weg leicht!
Willi Wipp Moderator Verfasst am: 22. Okt 2007, 15:37 Rufname: Wohnort: Raum Wiesbaden	- Re: Durch Wert in Kombifeld neue Kombifelder einblenden(IV) Nach oben        Version: Office 2003 Hi jonnyb2006, was Du moechtest ist mir schon klar Aber man bekommt nicht immer das was man will, wie ich z.B. die Beispiel-DB ;) Wenn ich es richtig sehe sollte das eventuell auch mit 2 Kombinationsfeldern loesbar sein. Bei dem 2. Kombinationsfeld kann man dann z.B. die Datensatzherkunft (RowSource) entsprechend anpassen. _________________ Eine kurze Rueckmeldung waere nett SL Willi Wipp (Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
jonnyb2006 VBA Dummie Verfasst am: 23. Okt 2007, 10:12 Rufname: Wohnort: Kassel	- AW: Durch Wert in Kombifeld neue Kombifelder einblenden Nach oben        Version: Office 2003 Hallo Willy, ich habe mal eine Testdatenbank hochgeladen. Schau Dir das bitte mal an! Nachtrag: jonnyb2006 am 23. Okt 2007 um 11:07 hat folgendes geschrieben: Hallo willi, wie hast Du die so klein bekommen???? Ich habe mal im Internet eine Beispieldatenbank gefunden die "fast" genau das macht was ich möchte! _________________ gruß Bernd Du mußt Deinen Traum finden dann wird der Weg leicht! Kundendienst.zip  Beschreibung: aus 2MB mach 70K *hex hex* by Willi Wipp :) Download  Dateiname:  Kundendienst.zip  Dateigröße:  69.79 KB  Heruntergeladen:  8 mal db1.zip  Beschreibung: Beispieldatenbank aus dem Internet Download  Dateiname:  db1.zip  Dateigröße:  22.06 KB  Heruntergeladen:  7 mal
Willi Wipp Moderator Verfasst am: 23. Okt 2007, 12:29 Rufname: Wohnort: Raum Wiesbaden	- Re: Durch Wert in Kombifeld neue Kombifelder einblenden(V) Nach oben        Version: Office 2003 Hi jonnyb2006, Ok ein Endlosformular hast Du schon mal nicht Du haettest uns auch mitteilen koennen das die Datensatzherkunft (RowSource) auch die ID enthaelt ;) Ich habe das jetzt mal so umgesetzt und es scheint zu funktionieren Code:         'Falls doch einmal andere Werte in der Tabelle auftauchen. :)         On Error Resume Next         With Me!kf_Auftragsart             For lngI = 0 To .ListCount - 1                 Me("kf_" & .Column(1, lngI)).Visible = _                                            CBool(.ItemData(lngI) = Nz(.Value))             Next lngI         End With         On Error GoTo 0 Ich habe auch noch die eine oder andere Aenderung in der DB vorgenommen. Schau mal ob Du damit klar kommst PS: Komprimieren und Reparieren Die andere DB von Dir habe ich mir jetzt nicht angeschaut. _________________ Eine kurze Rueckmeldung waere nett SL Willi Wipp (Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden) Kundendienst_1.zip  Beschreibung: Download  Dateiname:  Kundendienst_1.zip  Dateigröße:  78.78 KB  Heruntergeladen:  20 mal Zuletzt bearbeitet von Willi Wipp am 06. Dez 2008, 04:49, insgesamt 2-mal bearbeitet
jonnyb2006 VBA Dummie Verfasst am: 23. Okt 2007, 13:21 Rufname: Wohnort: Kassel	- Re: Durch Wert in Kombifeld neue Kombifelder einblenden(V) Nach oben        Version: Office 2003 Willi Wipp - 23. Okt 2007, 12:29 hat folgendes geschrieben: Ich habe auch noch die eine oder andere Aenderung in der DB vorgenommen. Schau mal ob Du damit klar kommst Hallo Willi, Du bist und bleibst ein absolutes Genie! Das ist exakt das was ich wollte, vielen vielen Dank! Ein kleines Problem habe ich noch bei den Ampeln, bei bestimmten Auswahlen gehen sie und bei anderen wieder nicht ..... _________________ gruß Bernd Du mußt Deinen Traum finden dann wird der Weg leicht!
Willi Wipp Moderator Verfasst am: 23. Okt 2007, 13:37 Rufname: Wohnort: Raum Wiesbaden	- Re: Durch Wert in Kombifeld neue Kombifelder einblenden(VI) Nach oben        Version: Office 2003 Hi jonnyb2006, sorry aber diese Aussage ist leider etwas vage. Um helfen zu koenenn benoetigen wir am Besten reproduzierbare Effekte _________________ Eine kurze Rueckmeldung waere nett SL Willi Wipp (Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
jonnyb2006 VBA Dummie Verfasst am: 23. Okt 2007, 13:50 Rufname: Wohnort: Kassel	- AW: Durch Wert in Kombifeld neue Kombifelder einblenden Nach oben        Version: Office 2003 Hallo Willy,ich teste grade die Ampeln.... Was ich schon festgestellt habe, wenn ich zuerst "Service" auswähle und die xfdf Datei erzeugt wird funktioniert es nicht! Wenn Ich danach Wartung oder Montage wähle gehen die Ampeln und wenn ich wieder zurück auf Service gehe geht die Ampel plötzlich auch! Dabei wurde diese 3 Dateien erzeugt: Code: eSB_253.304_A0108-071708_AB.xfdf eSB_253.304_A0308-071708_AB.xfdf eSB_253.304_A0408-071708_AB.xfdf _________________ gruß Bernd Du mußt Deinen Traum finden dann wird der Weg leicht!

Nach oben

Alle Zeiten sind GMT + 1 Stunde Gehe zu Seite 1, 2  Weiter

Diese Seite Freunden empfehlen

Seite 1 von 2 Gehe zu: Forum auswählen Office Forum Allgemein----------------Office Forum BekanntmachungenFragen & Anregungen zum Office ForumOffice Dienstleistungen && Schulungen || Jobs ~~ SoftwareOffice 2007 ForumOffice 2010 ForumAnwendungsübergreifende FragenForum für OpenOffice und Staroffice  Word Forum----------------Word Tipps & TricksWord FormateWord GestaltungselementeWord SerienbriefeWord VBA Programmierung (Makros)Word Hilfe Excel Forum----------------Excel Tipps & TricksExcel FormateExcel FormelnExcel AuswertungenExcel VBA (Makros)Excel Hilfe Powerpoint Forum----------------PowerPoint Tipps & TricksPowerpoint PräsentationenPowerPoint VBA (Makros) Outlook Forum----------------Outlook Tipps & TricksOutlook MailOutlook KontakteOutlook KalenderOutlook HilfeOutlook VBA und FormulareOutlook Express Access Forum----------------Access Tipps & TricksAccess Tabellen & AbfragenAccess FormulareAccess BerichteAccess Programmierung / VBAAccess Hilfe MS Access und Datenbank-Server----------------Microsoft Access und MS SQL ServerMicrosoft Access und MySQLMicrosoft Access und andere Datenbank-Server Office Software----------------MS Project ForumPublisher ForumMS MapPoint ForumMS Visio ForumMS OneNote ForumMS InfoPath ForumMS Groove ForumMS SharePoint Services Forum HTML Editor Forum----------------Frontpage ForumMS Expression Web ForumMacromedia Dreamweaver ForumHTML Editoren ForumHTML & CSS ForumPHP & JavaScript Forum Computer Forum----------------SicherheitHardware & Betriebssystem ForumWindows Vista & Windows 7 ForumSoftware Forum (Sonstige Software) Workshops----------------WorkshopsWorkshop: RegressionsanalyseWorkshop: Webdesign für EinsteigerWorkshop: Excel Projekte Banken Forum----------------WISO Mein Geld ForumStarmoney ForumGirokonto & Tagesgeld ForumOnline Broker ForumBanking Software Chillout Forum----------------Office Treffen RegionalFußball ForumSmalltalkSchach ForumForum-Spiele

Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum nicht posten Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen		Antworten	Autor	Aufrufe	Letzter Beitrag
	Access Tabellen & Abfragen: Abfrage ohne Ergebnis, Wert "0" zum weiterrechnen	3	Gast	217	02. März 2010, 11:28 Gast
	Access Tabellen & Abfragen: Leere Felder mit Wert 0 befüllen, Aktualisierungsabfrage?	12	Gast	724	01. Nov 2009, 14:43 RIGA
	Access Berichte: Wert aus InputBox an SQL übergeben / in Bericht ausgeben	6	MeineKleineWolke	2338	22. Okt 2009, 19:59 jens05
	Access Formulare: Kombifeld Formulare auflisten	7	zonk90	611	22. Okt 2008, 22:09 jens05
	Access Tabellen & Abfragen: dynamisch neue Tabellen mit abgewandelten Feldnamen erzeugen	4	solutionseeker	308	22. Jul 2008, 21:27 solutionseeker
	Access Tabellen & Abfragen: per VBA neue .accdb erzeugen	7	CyberKater	414	22. Mai 2008, 15:57 rita2008
	Access Programmierung / VBA: Datensatzes mit maximalem Wert (nicht den Wert selbst)	3	watto	203	19. März 2008, 23:21 Willi Wipp
	Access Formulare: Fester Wert im Formularfeld	4	Milky13	914	16. Nov 2007, 02:03 Gast
	Access Formulare: Wert aus Tabelle suchen nach Eingabe in Textfeld	1	Thomas von Wulfen	2245	24. Aug 2007, 22:45 magnum
	Access Tabellen & Abfragen: Eingegebenen Wert in Abfrage einbinden	3	user0815	506	02. März 2007, 08:53 Nouba
	Access Tabellen & Abfragen: Wie kann ich in einer Parameterabfrage einen Wert vorgeben?	4	Kl@vier	718	30. Aug 2006, 12:17 Kl@vier
	Access Programmierung / VBA: Kombifeld ausblenden	1	aska01	404	09. Jul 2006, 03:10 derArb

----> Diese Seite Freunden empfehlen <------	Impressum - Besuchen Sie auch: HTML CSS