MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access - Code Archiv
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 31.03.2016, 16:48   #31
Klaus S. aus B.
Neuer Benutzer
Neuer Benutzer
Standard

Super!!!

Vielen Dank!
Klaus S. aus B. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.04.2016, 17:34   #32
Klaus S. aus B.
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Jean-Pierre,

ich habe schon wieder einen Sonderwunsch.

Wäre es möglich zusätzlich die Sortierung nach einem (beliebigen) Feld, also nicht nur ID und Beschreibung, einzubauen?

Ich dacht, ich hätte es schon geschafft, habe dann aber festgestellt, dass er zwar die Bezeichnung richtig sortiert hatte, aber die Kästchen noch in der alten (und damit falschen) Reihenfolge waren.

Gruß
Klaus
Klaus S. aus B. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.04.2016, 10:58   #33
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Da müsste tatsächlich was im Code erweitert werden.

Wobei ich deine Anmerkung

Zitat:

dass er zwar die Bezeichnung richtig sortiert hatte, aber die Kästchen noch in der alten (und damit falschen) Reihenfolge waren

nicht ganz verstehe?

G
JP
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.04.2016, 08:54   #34
Klaus S. aus B.
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Jean-Pierre,

ich habe im Code umgestellt auf "Sortierung nach Schlüsselfeld" und habe im Code

Code:

Public Property Let eStammFeldID(t As String)
    cSFieldID = t 'Speicherung des PK-Feldnamens der Stammtabelle (z.B. ID)
End Property
das t durch "RF" (mein Feld für die Reihenfolge) ersetzt.
Dann bekommt man eine korrekt sortierte Liste mit den falschen Häkchen.


Kommt davon, wenn man keine Ahnung von VBA hat und rumprobiert.

Gruß
Klaus
Klaus S. aus B. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.04.2016, 14:07   #35
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Folgendes muss ergänzt werden:
Code:

Private Sub Form_Load()
    Set frm_sikozert = Me.Ufrm_sikozuord.Form
    With frm_sikozert
        .eLinkMasterFeld = Me.ID_MA 'Erforderlich.
        .eZuordnungstabelle = "tbl_sikozert" 'Erforderlich.
        .eZuordnungsFeld1 = "MA_ID" 'Erforderlich.
        .eZuordnungsFeld2 = "Siko_ID" 'Erforderlich.
        .eStammtabelle = "tbl_siko" 'Erforderlich.
        .eStammFeldID = "ID_siko" 'Erforderlich.
        .eStammFeldBezeichnung = "Komponente" 'Erforderlich.
        
        .eSpaltenBeschriftung = "Aktionen" 'Optional.
        .eStammFormName = "frmAktion" 'Optional.
        .eStammFormSchaltflächenbeschriftung = "Aktionen verwalten..." 'Optional.
        .eAuswahlAlleEinblenden = True 'Optional.
        
        .eSortierFelder = "[R]" '[R] ist dein Feldname nach dem aufsteigend sortiert werden soll
'        .eSortierFelder = "[R] DESC" '[R] ist dein Feldname nach dem absteigend sortiert werden soll

'        .eSortierung = NachBezeichnung 'Optional.
'        .eSortierrichtung = Aufsteigend 'Optional.
    End With
End Sub
Und Code im Form frmACB wurde geändert!
Daher am besten neu importieren.

Jetzt kannst du nach einem beliebigen Feld aus der Stammdatentabelle sortieren.

Gruß
Jean Pierre
Angehängte Dateien
Dateityp: zip Demo.zip (67,7 KB, 18x aufgerufen)
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.04.2016, 11:40   #36
Klaus S. aus B.
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Jean-Pierre,

eine möglicherweise doofe Frage: Funktioniert die Version mit den Ereignissen auch wenn man das frmACB in mehreren Formularen verwenden will?

Ich habe das Formular in eine DB kopiert, in dem das UF schon mal verwendet wird und jetzt "beschwert" er sich beim Öffnen des neuen Formulars immer, dass ihm ein Wert aus dem anderen Formular fehlt und das UF bleibt leer.

Aufruf in Formular 1
Code:

Option Explicit
    Private WithEvents frm_sikozert As Form_frmACB

Private Sub Form_Load()

    Set frm_sikozert = Me.Ufrm_sikozuord.Form
    With frm_sikozert
        .eLinkMasterFeld = Me.ID_MA 'Erforderlich. "..."
Aufruf in Formular 2
Code:

Option Explicit
    Private WithEvents frm_PNOC As Form_frmACB


    Private Sub Form_Load()
   
    Set frm_PNOC = Me.ufrm_PNzuord.Form
    With frm_PNOC
        .eLinkMasterFeld = Me.ID_OC 'Erforderlic  "..."
Gruß
Klaus
Klaus S. aus B. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.04.2016, 13:18   #37
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Ja, es funz auch bei mehrfachbenutzung, weil eine eigene instanz erstellt wird.

Dein beschriebener Fehler müsste eine andere Ursache haben.
Mit einer kleiner demo-Datei im Anhang könnte ich mehr sagen...
Gruß
Jean Pierre
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.04.2016, 15:01   #38
Klaus S. aus B.
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Jean-Pierre,

Demo Datei ist immer etwas schwierig, weil es eine riesige Datei ist.

Habe mal was zusammengebastelt. Da sieht man , dass das Formular frm_SikoZert prima funktioniert, beim frm_PNOC erschient aber leider der gleiche Inhalt beim frmACB.


Ich bekomme die Dateien nicht klein genug. Ist Faktor 80 zu groß, trotz komprimieren und zippen.

Gruß
KLaus
Klaus S. aus B. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:37 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.