Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Fehlerhafte Darstellung im Formular nach Größenänderung
zurück: Listenfeld funktioniert in mdb, als accdb ist es leer? weiter: Abfrage berechnung: summen wenn 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
RobertS
Gast


Verfasst am:
22. Aug 2012, 15:24
Rufname:


Fehlerhafte Darstellung im Formular nach Größenänderung - Fehlerhafte Darstellung im Formular nach Größenänderung

Nach oben
       Version: Office 2003

Hallo,

aktuell kämpfe ich gerade mit einem Problem in Access. Über VBA wird die RecordSource und davon abhängig die Größe des Formulars geändert.

Über eine Schaltfläche auf dem Formular hat der Nutzer die Möglichkeit zwischen drei verschiedenen "Sichten" zu wechseln. Leider tritt hier das Problem auf, das bei manchen Wechseln noch Teile der Datensätze der vorhergehenden Sicht angezeigt werden, ebenso manche Schaltflächen.

Ich habe testweise mehrfach ein Me.Repaint eingebaut und sogar aus Verzweifelung Me.Refresh und Me.Requery getestet. Leider alles ohne Erfolg.

Zur Änderung der RecordSource nutzen ich folgenden Teil:
Code:
    Me.RecordSource = "SELECT Tabelle1.Spalte1, Spalte2" _
                     & " FROM Tabelle1" _
                          & " LEFT JOIN Tabelle2" _
                          & " ON Tabelle1.Spalte1=Tabelle2.Spalte1"
    Set Fehler = Me.RecordsetClone
    If Fehler.EOF = False Then Fehler.MoveLast
    Me.DA_DSzug.Caption = Fehler.RecordCount
    Me.DA_Wechsel.SetFocus
    Me.DA_DSzug_Bez.Caption = "Nicht zugeordnete Datensätze:"
    Me.DA_Bez.Caption = "Fehlerhafte Datensätze"
    Me.DA_SB_Bez.Visible = False
    Me.DA_SB.Visible = False
    Me.DA_SB_Alle.Visible = False
    Me.DA_erledigt.Enabled = False
Hier ist der Code zur Anpassung der Formulargröße:
Code:
Public Sub Fenster_anpassen()
    '>>> Festlegen der Größe je nach Anzahl der Vorgänge bis zum Maximum
    Me.InsideHeight = Me.Section(acHeader).Height _
                    + Me.Section(acFooter).Height _
                    + (Me.RecordsetClone.RecordCount _
                     * Me.Section(acDetail).Height)
    If Me.RecordsetClone.RecordCount > 3 Or Me.InsideHeight = 0 Then
        Me.InsideHeight = Me.Section(acHeader).Height _
                        + Me.Section(acFooter).Height _
                        + (3 * Me.Section(acDetail).Height)
        Me.ScrollBars = 2
      Else
        Me.ScrollBars = 0
    End If
    Me.InsideWidth = Me.Width
    Me.DA_DSzug.Caption = Me.RecordsetClone.RecordCount
    Me.Repaint
End Sub
Vielen Dank im Voraus für die Mühen.

Grüße Robert
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: Parameter fuer SQL-Statement aus Formular 1 kuni 824 04. Jul 2005, 10:22
jens05 Parameter fuer SQL-Statement aus Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Ein Formular, zwei Tabellen... editieren nicht möglich? 3 Percobodio 1245 10. Mai 2005, 11:02
jens05 Ein Formular, zwei Tabellen... editieren nicht möglich?
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle, Formular, SQL 2 Lutezia 1050 27. Apr 2005, 13:44
Lutezia Tabelle, Formular, SQL
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Access Formular: Ergebnisse Tabelle speichern 4 Gast 956 24. März 2005, 16:23
Willi Wipp Access Formular: Ergebnisse Tabelle speichern
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: min und max in einer abrage oder formular 1 Diepers 637 23. März 2005, 08:54
stpimi min und max in einer abrage oder formular
Keine neuen Beiträge Access Tabellen & Abfragen: Feld wird nicht in Formular angezeigt 1 Chef_1 528 12. März 2005, 21:27
stpimi Feld wird nicht in Formular angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragefeld über ein Kombifeld aus Formular ändern 3 ggazarog 1148 31. Dez 2004, 15:34
mapet Abfragefeld über ein Kombifeld aus Formular ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Formular und Feldberechnung 1 Gast 1059 17. Okt 2004, 19:01
Reinhard Formular und Feldberechnung
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
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragefeld nachträglich in Formular 3 Sebbl 1705 05. Aug 2004, 15:14
mabe38 Abfragefeld nachträglich in Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Formular aus Endlosformular öffnen ? 10 G-Markus 1619 20. Jul 2004, 15:38
Gast Formular aus Endlosformular öffnen ?
Keine neuen Beiträge Access Tabellen & Abfragen: Darstellung Exponentialzahl 3 TomK 6341 20. Jul 2004, 14:38
TomK Darstellung Exponentialzahl
 

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