Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Übernahme einer Eingabe in ein Unterformular
zurück: Das ewige Listenfeld Mehrfachauswahl aufrufen weiter: Daten aus Unterformular in Formular übergeben (HILLFFEE) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
friedrichshain
Office-Einsteiger


Verfasst am:
02. Apr 2007, 10:25
Rufname:
Wohnort: Berlin

Übernahme einer Eingabe in ein Unterformular - Übernahme einer Eingabe in ein Unterformular

Nach oben
       Version: Office 2003

Hallo,

ich habe in einem Eingabeformular ein Drop-Down-Menü für Namen. Wenn der Nutzer nun in dieses Drop-Down-Menü einen neuen noch unbekannten Wert eingibt, dann öffnet sich ein Unterformular in dem der User gefragt wird, ob er diesen Namen tatsächlich hinterlegen möchte. Nur ist dieses Feld dann wieder leer. Also er gibt im ersten Formular "Meyer" ein, die Datenbank kennt Meyer nicht, es öffnet sich ein Unterformular in dem noch einmal die Kategorie "Name" steht, aber das Eingabefeld ist leer.
Nun hätte ich aber gern, dass in dieses Eingabefeld im Unterformular "Meyer" automatisch übernommen wird, sodass der Nutzer den Namen nicht doppelt eingeben muss.

Das Unterformular bzw. Fenster öffnet sich hiermit:
Code:
Private Sub Name_NotInList(NewData As String, Response As Integer)
    Dim lngName As Long
   
    If MsgBox("Möchten Sie diesen Namen anlegen?", vbYesNo + vbExclamation, _
              "Neuer Name") = vbYes Then
        DoCmd.OpenForm "frmName", DataMode:=acFormAdd, OpenArgs:=NewData, _
                       WindowMode:=acDialog
        '...
Gibt es hierfür eine Lösung?
_________________
Vielen Dank und schöne Grüße
friedrichshain
Willi Wipp
Moderator


Verfasst am:
02. Apr 2007, 11:44
Rufname:
Wohnort: Raum Wiesbaden


Re: Übernahme einer Eingabe in ein Unterformular - Re: Übernahme einer Eingabe in ein Unterformular

Nach oben
       Version: Office 2003

Hi friedrichshain,

das sollte etwa so funktionieren
Code:
Private Sub Form_Open(Cancel As Integer)
    If Trim(Nz(Me.OpenArgs, "")) <> "" Then
        Me!DeinSteuerelementname = Me.OpenArgs
    End If
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
friedrichshain
Office-Einsteiger


Verfasst am:
04. Apr 2007, 12:24
Rufname:
Wohnort: Berlin

AW: Übernahme einer Eingabe in ein Unterformular - AW: Übernahme einer Eingabe in ein Unterformular

Nach oben
       Version: Office 2003

Hallo Willi Wipp,

ich bin mir jetzt nicht sicher wie ich Deinen Code einfügen soll.

Mein Skript sieht komplett so aus:
Code:
Private Sub Schwerpunktbildung_NotInList(NewData As String, _
                                         Response As Integer)
    Dim lngSchwerpunktbildung As Long
   
    If MsgBox("Möchten Sie diesen neuen Schwerpunkt anlegen?", _
              vbYesNo + vbExclamation, "Neuer Schwerpunkt") = vbYes Then
        DoCmd.OpenForm "frmSchwerpunktbildung", DataMode:=acFormAdd, _
                       OpenArgs:=NewData, WindowMode:=acDialog
        If CurrentProject.AllForms("frmSchwerpunktbildung").IsLoaded = _
                                                                     True Then
            If CurrentProject.AllForms("frmSchwerpunktbildung").CurrentView = _
                                                      acCurViewFormBrowse Then
                lngSchwerpunktbildung = _
                                Forms!frmSchwerpunktbildung!Schwerpunktbildung
                DoCmd.Close acForm, "frmSchwerpunktbildung"
                Me!Schwerpunktbildung = lngSchwerpunktbildung
                Me!Schwerpunktbildung.Requery
            End If
        End If
    End If
    Response = acDataErrContinue
End Sub
Wie füge ich dann
Code:
Private Sub Form_Open(Cancel As Integer)
    If Trim(Nz(Me.OpenArgs, "")) <> "" Then
        Me!DeinSteuerelementname = Me.OpenArgs
    End If
End Sub
ein?

Ich hab's probiert, aber irgendwie funktioniert es nicht. Ich hab's wahrscheinlich falsch gemacht.

_________________
Vielen Dank und schöne Grüße
friedrichshain
Thomas2007
langsam gehts besser... , SQL/DB gut


Verfasst am:
04. Apr 2007, 13:48
Rufname:

AW: Übernahme einer Eingabe in ein Unterformular - AW: Übernahme einer Eingabe in ein Unterformular

Nach oben
       Version: Office 2003

Hallo,

füge den Code von Willi in dem zu öffnenden Formular (frmSchwerpunktbildung) NICHT in dem mit Kombifeld ein und passe den Namen an.
Dann wird in dem leeren Formular der Wert aus deinem Code OpenArgs:=NewData übernommen.

Hinweis: Diese Lösung funktioniert aber erst ab Access 2002, da vorher kein OpenArgs gab!

Alternativ könntest du dein Formular ohne Argumente öffnen und anschließend auf das Steuerlelement des leeren Formular zugreifen, etwa so:
Code:
        DoCmd.OpenForm "frmSchwerpunktbildung", DataMode:=acFormAdd, _
                       WindowMode:=acDialog
        Forms("frmSchwerpunktbildung").Controls("txtFeld") = NewData

_________________
Gruß
Thomas

Anleitung für das Anhängen von Dateien: Klicke links auf [www]
friedrichshain
Office-Einsteiger


Verfasst am:
04. Apr 2007, 15:05
Rufname:
Wohnort: Berlin

AW: Übernahme einer Eingabe in ein Unterformular - AW: Übernahme einer Eingabe in ein Unterformular

Nach oben
       Version: Office 2003

Hi Thomas,

ich Dummerchen, danke.

_________________
Vielen Dank und schöne Grüße
friedrichshain
Willi Wipp
Moderator


Verfasst am:
04. Apr 2007, 15:26
Rufname:
Wohnort: Raum Wiesbaden

Re: Übernahme einer Eingabe in ein Unterformular - Re: Übernahme einer Eingabe in ein Unterformular

Nach oben
       Version: Office 2003

@Thomas2007,

OpenArgs gibt es bei Foirmularen soweit mir bekannt seit Access 2.0 ;)
Nur bei Berichten wurde das erst in 2002 eingefuehrt Smile

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Thomas2007
langsam gehts besser... , SQL/DB gut


Verfasst am:
04. Apr 2007, 15:55
Rufname:


AW: Übernahme einer Eingabe in ein Unterformular - AW: Übernahme einer Eingabe in ein Unterformular

Nach oben
       Version: Office 2003

Hallo Willi,

danke für die Klarstellung - da habe ich es tatsächlich verwechselt Embarassed

_________________
Gruß
Thomas

Anleitung für das Anhängen von Dateien: Klicke links auf [www]
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
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 
Keine neuen Beiträge Access Tabellen & Abfragen: eingabe bestimmter datensätze in tabelle verhindern 5 Christine100 511 25. Sep 2007, 18:40
KlausMz eingabe bestimmter datensätze in tabelle verhindern
Keine neuen Beiträge Access Tabellen & Abfragen: Befehlsschaltläche bezieht sich auf Unterformular! 12 seppel27 809 15. Aug 2007, 13:07
seppel27 Befehlsschaltläche bezieht sich auf Unterformular!
Keine neuen Beiträge Access Tabellen & Abfragen: Datenbank, Eingabe, Tabellenbeziehungen, Dropdownfelder... 1 I Need Help 615 06. Jun 2007, 07:17
stpimi Datenbank, Eingabe, Tabellenbeziehungen, Dropdownfelder...
Keine neuen Beiträge Access Tabellen & Abfragen: Eingabe einfaches Bindestrichs 3 Vaja 414 22. Mai 2007, 12:41
Vaja Eingabe einfaches Bindestrichs
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Kontrollkästchen entweder/oder + Eingabe zurücksetzen 1 c.h.r.i.s.s 1890 15. Mai 2007, 22:10
jens05 Kontrollkästchen entweder/oder + Eingabe zurücksetzen
Keine neuen Beiträge Access Tabellen & Abfragen: Je nach Eingabe werden verschiedene Abfragen aufgerufen 10 Gast 608 23. Apr 2007, 14:41
Gast Je nach Eingabe werden verschiedene Abfragen aufgerufen
Keine neuen Beiträge Access Tabellen & Abfragen: Eingabe neuer Datensätze in mehrere Tabellen gleichzeitig? 1 matof 603 15. März 2007, 19:26
Thomas2007 Eingabe neuer Datensätze in mehrere Tabellen gleichzeitig?
Keine neuen Beiträge Access Tabellen & Abfragen: Anwender-Abfrage/Eingabe 1 MickeyO 481 28. Nov 2006, 12:50
jens05 Anwender-Abfrage/Eingabe
Keine neuen Beiträge Access Tabellen & Abfragen: Eingabe in gruppierter Abfrage nicht möglich 6 lukretu 991 11. Mai 2006, 15:17
lukretu Eingabe in gruppierter Abfrage nicht möglich
Keine neuen Beiträge Access Tabellen & Abfragen: Eingabe nicht möglich! 8 turbochris 803 04. Mai 2006, 20:51
stpimi Eingabe nicht möglich!
Keine neuen Beiträge Access Tabellen & Abfragen: 2x ja/nein Kontrollkästchen - nur eine eingabe erlauben 1 MacGyverDTH 1313 29. März 2006, 16:25
kia 2x ja/nein Kontrollkästchen - nur eine eingabe erlauben
Keine neuen Beiträge Access Tabellen & Abfragen: Automatische Eingabe von Zahlenreihen unterbinden 6 WernerH 903 06. März 2006, 00:23
WernerH Automatische Eingabe von Zahlenreihen unterbinden
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum