Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formular synch alternative bei leeren Recordsource!
zurück: Neuer Datensatz hinzufügen weiter: beim start bestimmtes formular öffnen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Rundi
Nup


Verfasst am:
08. Jan 2007, 13:00
Rufname:


Formular synch alternative bei leeren Recordsource! - Formular synch alternative bei leeren Recordsource!

Nach oben
       Version: Office 2003

Hallo,
ich synchronisiere die Recordets eines Listenobjekts auf dem Hauptformular mit verschiedenen Unterformularen (1:1 Beziehungen und auch eine 1:n Beziehung) mithilfe folgenden Codes.
Code:
Private Sub mlstExponateUebersicht_Click()
    Dim rs As ADODB.Recordset, rst As ADODB.Recordset
    Dim rst2 As ADODB.Recordset, rst3 As ADODB.Recordset
    Dim rst4 As ADODB.Recordset, rst5 As ADODB.Recordset
    Dim straktBegriff As String, strsearch As String
   
    Set rst1 = New ADODB.Recordset
    Set rst2 = New ADODB.Recordset
    Set rst3 = New ADODB.Recordset
    Set rst4 = New ADODB.Recordset
    Set rst5 = New ADODB.Recordset
    With Forms![Uebersicht]
        Set rst1 = ![tblExponate_Unterformular_Stamm].Form.RecordsetClone
        Set rst2 = ![tblExponate_Zustand].Form.RecordsetClone
        Set rst3 = ![tblExponatschaden_Unterformular].Form.RecordsetClone
        Set rst4 = ![tblExponate_Bemerkung].Form.RecordsetClone
        Set rst5 = ![tblBilder_Unterformular].Form.RecordsetClone
        strsearch = "Nummer_Hias = " & ![lstExponateUebersicht]
        rst1.Find strsearch
        rst2.Find strsearch
        rst3.Find strsearch
        rst4.Find strsearch
        rst5.Find strsearch
        If IsNull(Forms!Uebersicht!lstExponateUebersicht) Then
            MsgBox "Bitte wählen Sie zuerst einen Datensatz aus."
            Exit Sub
        End If
        ![tblExponate_Unterformular_Stamm].Form.Bookmark = rst1.Bookmark
        ![tblExponate_Zustand].Form.Bookmark = rst2.Bookmark
        If rst3.BOF = False And rst3.EOF = False Then
            ![tblExponatschaden_Unterformular].Form.Bookmark = rst3.Bookmark
        End If
        ![tblExponate_Bemerkung].Form.Bookmark = rst4.Bookmark
        If rst5.BOF = False And rst5.EOF = False Then
            ![tblBilder_Unterformular].Form.Bookmark = rst5.Bookmark
        End If
    End With
    Set rs = Nothing
    Set rst1 = Nothing
    Set rst2 = Nothing
    Set rst3 = Nothing
    Set rst4 = Nothing
    Set rst5 = Nothing
'    Forms!Uebersicht!lstExponateUebersicht
End Sub
Das UForm des Uform Steuerelements [tblExponatschaden_Unterformular] enthält noch keine Daten und wird deshalb durch eine Bedingung erstmal ausgeschlossen.
Ebenso verhält es sich mit dem Uform Steuerelement [tblBilder_Unterformular].

Nun habe ich folgendes Problem.

Dass Formular in [tblBilder_Unterformular] soll dazu verwendet werden Bilder zu einzelnen Exponaten (tblExponate:tblbilder = 1:n) hinzuzufügen.
Solange dem Formular aber kein RS zugewiesen ist, funktioniert die synchronisation mit dieser Methode nicht.

Ich möchte aber natürlich zu dem in der Listenübersicht ausgewählten Datensatz ein Bild anlegen.

Weiss jemand eine alternative?
Ich habe versucht vom Listenfeld lstExponateUebersicht den Key auszlesen und manuell in eine Textbox "nummer_H" des UForms tblbilder (hauptformular:Uebersicht) einzufügen, jedoch hat es nicht geklappt Sad

Gruss
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: null wert im formular zur 1 konvertieren 2 Olsen 930 25. Mai 2005, 09:08
Olsen null wert im formular zur 1 konvertieren
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Formular einbinden? 1 Percobodio 2045 29. Apr 2005, 11:29
lothi Abfrage in Formular einbinden?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageergebnis als neues Formular anzeigen 2 mila 3034 12. Apr 2005, 12:38
mila Abfrageergebnis als neues Formular anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Datensätze zählen (im Formular oder Bericht) ? 3 anna-bolika 3756 31. März 2005, 12:50
Dalmatinchen Anzahl der Datensätze zählen (im Formular oder Bericht) ?
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Formular Daten in einer Tabelle speichern? 1 Gast 1017 24. März 2005, 16:24
Willi Wipp Formular Daten in einer Tabelle speichern?
Keine neuen Beiträge Access Tabellen & Abfragen: Über Formular auf Tabelle und Feld verweisen 1 FreakyFreakyFreak 1574 22. März 2005, 17:31
Matthiasmms Über Formular auf Tabelle und Feld verweisen
Keine neuen Beiträge Access Tabellen & Abfragen: Aus Abfragen Formular drucken 4 günnaharms 965 07. Feb 2005, 09:09
günnaharms Aus Abfragen Formular drucken
Keine neuen Beiträge Access Tabellen & Abfragen: Filter schon vor Start der Abfrage/Formular 5 Andre1977 1573 08. Dez 2004, 07:57
Andre1977 Filter schon vor Start der Abfrage/Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Daten für Aktualisierung aus Formular auslesen 1 Ulf 1155 03. Dez 2004, 11:19
lothi Daten für Aktualisierung aus Formular auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Formeln vom Formular, werden in der Abfrage nicht angezeigt 4 maddes 895 23. Nov 2004, 12:38
Skogafoss Formeln vom Formular, werden in der Abfrage nicht angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Add Record - Formular in ein Nebenformular 6 User007 926 27. Okt 2004, 11:49
Gast Add Record - Formular in ein Nebenformular
Keine neuen Beiträge Access Tabellen & Abfragen: Wert eines Feldes aus Formular in Tabelle speichern 18 kave78 13710 16. Okt 2004, 13:40
Ming Wert eines Feldes aus Formular in Tabelle speichern
 

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