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 24.08.2015, 09:12   #16
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Ja, stimmt.
Schon erstaunlich, die Openrecordset-Methode kann mit dem Verweis auf's Form nicht umgehen.
Da brauchen wir eine andere Lösung.
Ich überlege mir was...
G
JP
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.08.2015, 08:53   #17
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Habe den Code dahingehend optimiert (ist sogar einfacher geworden :-)
Code:

Private Function SetAssignment(Selection As Boolean, IDz1 As String, Optional IDzN As String) As Boolean
    Dim db As Object 'DAO.Database
    Dim rs As Object 'DAO.Recordset
    Dim rs2 As Object 'DAO.Recordset
    Dim sql As String, t As String, i As Long, IDsAffected() As String

    On Error GoTo Err_Handle
    If Len(IDz1) > 0 Then
        Set db = CurrentDb()
        If Selection Then
            'Zuordnung hinzufügen
            Set rs = Me.RecordsetClone
            If Len(IDzN) > 0 Then
                rs.FindFirst "IDzN=" & IDzN
            Else
                rs.MoveFirst
            End If
            Set rs2 = db.OpenRecordset("SELECT Z.* FROM " & cZTable & " AS Z", , 8) 'dbAppendOnly)
            Do Until rs.EOF
                If rs(3) = False Then
                    rs2.AddNew
                    rs2(cZField1) = rs(2)
                    rs2(cZFieldN) = rs(1)
                    t = rs(1)
                    rs2.Update
                    ReDim Preserve IDsAffected(i)
                    IDsAffected(i) = t
                    i = i + 1
                    RaiseEvent AddAssignment(t)
                    If Len(IDzN) > 0 Then Exit Do
                End If
                rs.MoveNext
            Loop
        Else
            'Zuordnung entfernen
            If Len(IDzN) > 0 Then sql = " AND [" & cZFieldN & "]=" & IDzN
            Set rs = db.OpenRecordset("SELECT * FROM " & cZTable & " WHERE [" & cZField1 & "]=" & IDz1 & sql)
                Debug.Print cZTable
                 Debug.Print cZField1
                 Debug.Print IDz1
               Debug.Print sql
            
            Do Until rs.EOF
                t = rs(2)
                rs.Delete
                ReDim Preserve IDsAffected(i)
                IDsAffected(i) = t
                i = i + 1
                RaiseEvent RemoveAssignment(t)
                rs.MoveNext
            Loop
        End If
        SetAssignment = True
        If i > 0 Then
            sql = GetCriteria() 'Merke aktuellen Datensatz
            Me.Requery 'Aktualisiere das Formular
            GotoRecordInForm sql 'Gehe zu gemerkten Datensatz
            RaiseEvent ChangeAssignment(Selection, IDsAffected)
        End If
    Else
        MsgBox "Zuordnung kann nicht angelegt werden, solange kein Hauptdatensatz besteht.", vbExclamation, "Änderung der Zuordnung"
    End If

Exit_Proc:
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    rs2.Close
    Set rs2 = Nothing
    Set db = Nothing
    Exit Function
    
Err_Handle:
    Beep
    MsgBox Err.Description, vbCritical, Err.Number
    Resume Exit_Proc
End Function
Und im Anhang noch malmeine Lösung als Download.
G
Jean Pierre
Angehängte Dateien
Dateityp: zip CCL_Strip.zip (120,9 KB, 22x aufgerufen)
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.08.2015, 09:30   #18
Klaus S. aus B.
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Jean Pierre,

Super! Vielen Dank!

Funktioniert einwandfrei.

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 07.09.2015, 20:10   #19
GTRDRIVER
MOF User
MOF User
Standard

Hallo JPA

ich habe diesen Post mit großem Interesse gelesen (danke für den Link in dem ursprungs Post) - ich finde das Thema sehr spannend da ich sowas in mehreren Projekten gut gebrauchen kann.

Was mich aktuell daran hindert es einzusetzen ist, dass ich im Uform eine bedingte Formatierung mit Farbiger Markierung benötige.

Bei den klassischen Uforms mit Listdarstellung hab ich das bisher immer so gemacht dass ich ein zusätzliches Feld aus der Tabelle einlese aber unsichtbar schalte - dieses trägt dann die SchlüsselID für die bedingte Formatierung.

Nun hab ich schon ein wenig im Code deines Uforms rumgesucht - aber die Lernkurve ist offenbar zu steil - hier blick ich nicht durch ...

ich hoffe, dass ich mich einigermaßen ausdrücken konnte was ich meine :-)

CU
GTR

Geändert von GTRDRIVER (07.09.2015 um 20:15 Uhr).
GTRDRIVER ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.09.2015, 21:26   #20
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Weiter

Allesklar, aber wo ist deine Fragen, was kann ich für dich tun?
G
JPA
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.09.2015, 21:49   #21
GTRDRIVER
MOF User
MOF User
Standard

Hallo JPA

wenn du so direkt fragst :-)

Toll wäre es ein zusätzliches Feld (nicht aktualisierbar) aus der Tabelle anzeigen zu lassen (sichtbar oder nicht sichtbar konfigurierbar) aus welchem sich dann die bedingte Formatierung die Info holt

Ich weiss jetzt nicht wie aufwändig das ist da ich wie schon gesagt bei deiem (sehr genialem Uform) im VBA nicht so wirlich bei allem durchsteige...

CU
GTR
GTRDRIVER ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.10.2015, 23:09   #22
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Strahlen

Hallo GT3-Fahrer,

leider habe ich mich entchieden den Steuerelementnamen CAPTION zu vergeben, was mit der Eigenschaft CAPTION in Konflikt gerät (Hätte ich mir ja denken können )
Habe das Steuerelement jetzt CAPTIONTEXT umbennant (auch im Code).

So kann ich per VBA jetzt eine Bedingte Formatierung setzen
Code:

    frm_ccl.[Captiontext].BackStyle = 1 'Nicht Transparent
    frm_ccl.[Captiontext].BackColor = frm_ccl.Section(acDetail).BackColor
    With frm_ccl.[Captiontext].FormatConditions.Add(acExpression, acEqual, "left([Captiontext],1)=""B""")
        .FontBold = True
        .BackColor = RGB(255, 255, 102)
    End With
Also, alle Bezeichnungen die mit einem B anfangen werden Fett und mit Gelb im Hintergrund formatiert. Ist ja nur ein Beispiel, kannst es nach deinen Wünschen jetzt anpassen.

Im Anhang die fertige Lösung.
A propos fertig, das bin ich jetzt auch, gute Nacht.

4c-Driver
(Schön wär's )
Angehängte Dateien
Dateityp: zip CCL_Strip.zip (127,7 KB, 14x aufgerufen)
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.10.2015, 12:07   #23
GTRDRIVER
MOF User
MOF User
Standard

Hallo

super - danke für die Anpassung.

Kannst du es bitte noch im "MDB" Format bereitstellen da ich es unter 2003 einsetzten möchte.

Danke !

CU
GTR
GTRDRIVER ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.10.2015, 13:14   #24
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Cool

Ok, sorry, ich habe deine Anforderung mit der von User Klaus verwechselt.

Im Anhang das aktualisiert "offiziellle" Beispiel.
G
JPA
Angehängte Dateien
Dateityp: zip zuordnung_per_kontrollkaestchen.zip (62,0 KB, 16x aufgerufen)
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.10.2015, 16:43   #25
GTRDRIVER
MOF User
MOF User
Standard

Hallo Jpa

das klappt ja ganz Prima. - Danke auch für die MDB Variante.

Was mir aufgefallen ist (evtl auch nur unter A2003 so stark zu sehen) bei jedem "klick" (also wenn man eine Check anhackt oder abhackt) dann baut der Code offenbar die Liste neu auf.

Das hat jetzt "ohne die Farbige" Markierung von einzelnen Einträgen nicht gestört - ich hab jetzt mal nen Test mit 20 Einträgen gemacht und da "flackert" alles relativ massiv.

Das bitte jetzt keineswegs als Kritik verstehen - ich möchte nur "Berichten" - Wenn es keinen anderen Weg gibt - kein problem - aber Ich frage halt mal...

CU
GTR
GTRDRIVER ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.10.2015, 11:28   #26
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Wink

Sorry, das flackern kommt von der bed.Formatierung von MS.
Weiss nicht wie dies zu beinflussen ist.
G
JPA
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 31.03.2016, 11:57   #27
Klaus S. aus B.
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Jean-Pierre,

habe mittlerweile meinen Fehler gefunden, jetzt klappt es sehr gut.

Ich hätte aber noch ein Spezialforderung und weiß nicht ob und wie man das umsetzen könnte.

Ich würde gerne dem in der Koppeltabelle erstellten DS noch zwei Werte (Datum) "mitgeben", die man auf dem Hauptformular eingibt.

Geht das?

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 31.03.2016, 12:48   #28
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Tipp

Servus Klaus,

ich meine zu wissen was du meinst, jedoch eine kleine Beispiel DB würde helfen.

Ich habe mein Tool erweitert, es löst mittlerweile ereignisse aus bei auswahl oder abwahl. Diese könntest du dir für deine anforderung nutzen.

Gruß
Jean Pierre
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 31.03.2016, 14:29   #29
Klaus S. aus B.
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Jean-Pierre,

im Anhang meine Demo DB.

Die Idee ist einem Mitarbeiter Zertifizierungen (nach Schulung) für bestimmte Werkzeuge zuzuordnen.
Das klappt mit Deinem Tool hervorragend.

Jetzt würde ich gerne in die Koppeltabelle aber noch das Schulungsdatum und den Termin für die nächste Prüfung für alle zugewählten Werkzeuge übernehmen.

Gruß
Klaus
Angehängte Dateien
Dateityp: zip Demo.zip (51,1 KB, 5x aufgerufen)
Klaus S. aus B. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 31.03.2016, 15:32   #30
JPA
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Strahlen

Wie geil, ich hatte ja bereits schon in dieser Version Ereignisse zur Verfügung gestellt.
Must nur noch diesen Teil ändern/ergänzen:
Code:

    Private WithEvents frm_sikozert As Form_frmACB

Private Sub frm_sikozert_AddAssignment(IDAffected As String)
    Dim rs As DAO.Recordset
    
    On Error GoTo ErrHandler
    Set rs = CurrentDb().OpenRecordset("SELECT * FROM tbl_SiKoZert WHERE MA_ID=" & Me.ID_MA & " AND SiKo_ID=" & IDAffected)
    If Not rs.EOF Then
        rs.Edit
        rs("Schulungsdatum") = Me.txtSchulungsdatum
        rs("AblaufZert") = Me.txtAblaufZert
        rs.Update
    End If

ExitProc:
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbCritical, Err.Number
    Resume ExitProc
End Sub
Die fertige Demo habe ich dir auch angehängt

Grüße
Jean Pierre
Angehängte Dateien
Dateityp: zip Demo.zip (61,8 KB, 12x aufgerufen)
JPA 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 09:05 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.