Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Hauptfom und Unterform über Kriterien öffnen
zurück: Bestimmten Datensatz in zweitem Formular VOR dem Speichern weiter: Suchformular ohne VBA? 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
Muli
Anfänger


Verfasst am:
14. Nov 2012, 20:22
Rufname: Holger
Wohnort: Hochsauerland

Hauptfom und Unterform über Kriterien öffnen - Hauptfom und Unterform über Kriterien öffnen

Nach oben
       Version: Office 2007

Hallo Access-User,
Ich wüsste gern ob man ein Hauptformular mit eingebundem Unterformular über Kriterien öffnen kann.
Etwa so: Öffne Hauptform mit Lieferant Xy und gehe im Unterformular in Datensatz Z.

Beide zugrunde liegende Kriterien möchte ich einem Listenfeld entnehmen.
Die Kriterien in den jeweiligen Tabellen sind Integer-Werte und Indiziert.

Folgende Gedanken habe ich mir gemacht:
Code:
    strDocName = "frmLieferanten_Bestellung"
    strKrit = "IdLieferant = " & Me!lst_offene_Bestellungen & ""
    strKritBestNr = Me!lst_offene_Bestellungen.Column(1)
    DoCmd.OpenForm strDocName, , , WhereCondition:=strKrit
    Forms![frmLieferanten_Bestellung]![frmLieferanten_Bestellung_UF].SetFocus
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT * FROM qryBestellung")
    rs.FindFirst "IdBestellung = " & strKritBestNr
    If Not rs.NoMatch Then
        Forms![frmLieferanten_Bestellung]![frmLieferanten_Bestellung_UF].Bookmark = rs.Bookmark
    End If
    Set rs = Nothing
Leider funktioniert die Datensatzanzeige im UF nicht.
Zitat:
Objekt unterstütz die Eigenschaft oder Methode nicht.
Kann ich einen anderen Weg gehen?
_________________
Gruß Holger
Ein Kluger Mann findet immer Zeit für Dummheiten
Marmeladenglas
komme zurecht


Verfasst am:
15. Nov 2012, 00:55
Rufname:


AW: Hauptfom und Unterform über Kriterien öffnen - AW: Hauptfom und Unterform über Kriterien öffnen

Nach oben
       Version: Office 2007

Hi,
das sollte genügen:
Code:
    '...
    DoCmd.OpenForm strDocName, , , WhereCondition:=strKrit
    With Forms![Haupt]![Unter]
        .SetFocus
        .Form.Recordset.FindFirst "IdBestellung = " & strKritBestNr
    End With
    '...
Letztendlich fehlt in deinem Code das .Form
Haupt und Unter durch die richtigen Namen ersetzen
Gast



Verfasst am:
15. Nov 2012, 11:58
Rufname:

AW: Hauptfom und Unterform über Kriterien öffnen - AW: Hauptfom und Unterform über Kriterien öffnen

Nach oben
       Version: Office 2007

Hier denke mal das müsste gehen ist so ähnlich wie das von meinem vorgänger ;)
Code:
    DCmd.OpenForm strDocName, , , WhereCondition:=strKrit
    With Forms![frmLieferanten_Bestellung]![frmLieferanten_Bestellung_UF]
        .SetFocus
        .Form.Recordset.FindFirst "IdBestellung = " & strKritBestNr
    End With
Marmeladenglas
komme zurecht


Verfasst am:
15. Nov 2012, 14:22
Rufname:

AW: Hauptfom und Unterform über Kriterien öffnen - AW: Hauptfom und Unterform über Kriterien öffnen

Nach oben
       Version: Office 2007

Zitat:
ist so ähnlich

um nicht zu sagen "identisch" Laughing (bis auf die real existierenden Formularnamen Wink )
Aber das hätte er hingekriegt ...
Muli
Anfänger


Verfasst am:
15. Nov 2012, 19:33
Rufname: Holger
Wohnort: Hochsauerland


AW: Hauptfom und Unterform über Kriterien öffnen - AW: Hauptfom und Unterform über Kriterien öffnen

Nach oben
       Version: Office 2007

Muli am 15. Nov 2012 um 15:14 hat folgendes geschrieben:
Hört sich gut an.

Bin leider nicht am Arbeitsplatz, werde es aber heute Abend Testen und ein Ergebnisbericht liefern.

Ihr seid einfach gut!
Danke schon mal.

Hallo Marmeladenglas, hallo Gast,

Jawoll, hört sich nicht nur gut an, sondern sieht auch gut aus.
Für alle die, die es interessiert hier der gesamte Code:
Code:
    Dim strDocName          As String
    Dim strKrit             As String
    Dim strKritBestNr       As String
    Dim strReNrr            As String
       
    'Variablendeklaration
    strDocName = "frmLieferanten_Bestellung"
    strKrit = "IdLieferant = " & Me!lst_offene_Bestellungen & ""
    strKritBestNr = Me!lst_offene_Bestellungen.Column(1)
    'Hauptformular Lieferant mit Kriterium strKrit öffnen
    DoCmd.OpenForm strDocName, , , WhereCondition:=strKrit
    'Unterformular zunächst ansprechen mit (SetFous)
    'Anschließend im Datenbestand (Recordset) den gewünschten Datensatz mit
    'dem Kriteriun strKritBestNr finden (FindFirst)
    With Forms![frmLieferanten_Bestellung]![frmLieferanten_Bestellung_UF]
        .SetFocus
        .Form.Recordset.FindFirst "IdBestellung = " & strKritBestNr
    End With
    'ErrorHandler
Exit_lst_offene_Bestellungen_DblClick:
    Exit Sub
Err_lst_offene_Bestellungen_DblClick:
    MsgBox "Fehler " & Err.Description & vbCr & _
           "Fehlernummer: " & Err.Number
    Resume Exit_lst_offene_Bestellungen_DblClick
Danke!
_________________
Gruß Holger
Ein Kluger Mann findet immer Zeit für Dummheiten
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: Formular öffnen - Datenherkunft SQL 5 maristein 4292 19. Jul 2006, 21:24
maristein Formular öffnen - Datenherkunft SQL
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragekriterium: wieviele zeilen (kriterien)? 0 pgretzinger 1130 26. Mai 2006, 10:28
pgretzinger Abfragekriterium: wieviele zeilen (kriterien)?
Keine neuen Beiträge Access Tabellen & Abfragen: Kann man Tabellenfenster immer in gleicher Größe öffnen? 4 ladau66 738 17. Mai 2006, 11:18
ladau66 Kann man Tabellenfenster immer in gleicher Größe öffnen?
Keine neuen Beiträge Access Tabellen & Abfragen: Anzeige-Ergebnis durch keinen, einen, oder mehrere kriterien 10 ManiacBone 722 03. Mai 2006, 17:09
ManiacBone Anzeige-Ergebnis durch keinen, einen, oder mehrere kriterien
Keine neuen Beiträge Access Tabellen & Abfragen: Access datenbank öffnen 1 help_me_pls 1353 24. Apr 2006, 19:47
stpimi Access datenbank öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Access Passwortabfrage bei öffnen mit shift+Enter 1 siegpes 1778 24. Apr 2006, 08:30
Nouba Access Passwortabfrage bei öffnen mit shift+Enter
Keine neuen Beiträge Access Tabellen & Abfragen: Suchmaske / mehrere Kriterien 3 ranflagg 4078 29. März 2006, 10:21
Willi Wipp Suchmaske / mehrere Kriterien
Keine neuen Beiträge Access Tabellen & Abfragen: Eingabefeld für Kriterien in einer Abfrage 6 mhgruen 1168 27. März 2006, 12:37
mhgruen Eingabefeld für Kriterien in einer Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit mehreren Kriterien + Leere Felder 1 dw_131 1052 27. Feb 2006, 21:32
lothi Abfrage mit mehreren Kriterien + Leere Felder
Keine neuen Beiträge Access Tabellen & Abfragen: Wenn Funktion bei Kriterien in einer Abfrage 2 Transputor 11390 13. Dez 2005, 17:37
Transputor Wenn Funktion bei Kriterien in einer Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Suche nach variablen Kriterien 2 Kedavra 829 16. Nov 2005, 23:28
Kedavra Suche nach variablen Kriterien
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: Mehrere Kriterien, um Ergebnisse auszuschließen 4 Gast 1129 07. Sep 2005, 10:55
jens05 Abfrage: Mehrere Kriterien, um Ergebnisse auszuschließen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe