Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Abfragen im ungebundenem Steuerelement aktualisieren
zurück: Tabellen und Anfragen mit Verknüpfungen kopieren weiter: Syntax UPDATE Anweisung 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
Rotzlöffel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Apr 2009, 09:24
Rufname:

Abfragen im ungebundenem Steuerelement aktualisieren - Abfragen im ungebundenem Steuerelement aktualisieren

Nach oben
       Version: Office 2003

Hallo zusammen,
ich habe folgende Situation: Sad
Ich habe ein Form mit mehreren Steuerelementen über die man verschiedene Parameter auswählen kann. Nach erfolgter Auswahl wird eine entsprechende Auswahlabfrage gestartet. Diese Auswahlabfrage hat immer den selben Namen "Datenabfrage" egal welche Parameter ich auswähle. Die jeweiligen Ergebnisse sollen immer in einem ungebundenen Form-Steuerelement auf dem Hauptform dargestellt werden.
Dies funktioniert auch. Allerdings nur einmalig.
Ich bekomme immer Fehlermeldungen wie "Abfrage noch offen,kann nicht gelöscht weren" oder "Abfrage existiert schon".

Wie kann ich die Abfrage schließen, deren Inhalt ich in dem ungebundenen Steuerelement sehe? Oder anders wie kann ich die Abfrage aufgrund von Parameteränderungen aktualisieren?

Nehme ich kein ungebundenes Steuerelement und lasse die Abfrage in einem eignen Fenster öffnen funktioniert alles bestens.
Ich arbeite im Code mit Docmd. Deleteobject acQuery, und Docmd.Openquery

Hab jetzt keine Alternativen mehr und wäre für Hilfe dankbar. Razz

Grüße
Rotzlöffel
JörgG
Access-Team


Verfasst am:
21. Apr 2009, 14:57
Rufname:
Wohnort: b. Dresden


AW: Abfragen im ungebundenem Steuerelement aktualisieren - AW: Abfragen im ungebundenem Steuerelement aktualisieren

Nach oben
       Version: Office 2003

Hallo,

ohne zu wissen was da codemässig so läuft ist das kaum zu beantworten. Warum benutzt Du ein ungebundees Formular, binde es an die Tabelle bzw Abfrage (ohne die og Kritrien), dann könntest Du den Formularfilter verwenden, zB Access Tipps & Tricks: Suchformular in 10 Minuten erstellt

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Rotzlöffel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Apr 2009, 07:46
Rufname:

AW: Abfragen im ungebundenem Steuerelement aktualisieren - AW: Abfragen im ungebundenem Steuerelement aktualisieren

Nach oben
       Version: Office 2003

Hallo JörgG,
vielen Dank für die Antwort. Ich versuch mal präziser zu werden. Ist nicht ganz einfach, da ich zwar weiß was ich möchte, aber dieses ja auch verständlich beschreiben muß. Recht haste: Das Steuerelement ist natürlich an die Abfrage "Abfragedaten" gebunden.

Leider kann ich keine Bilder hochladen um das UF2 zu visualisieren.
Also:
Ich habe ein Hauptuserform(UF1). Über dieses Userform kann ich per Button ein weiteres Userform(UF2) öffnen. In UF2 wähle ich verschiedenste Parameter in Comboboxen aus und starte dann eine Suche per Auswahlabfrage. Das Ergebnis der Auswahlabfrage("Abfragedaten") soll in UF2 dargestellt werden.

Wenn ich die Abfrage(n) ganz normal in neuen Fenstern darstelle, dann funktioniert alles. Da kann ich ja das fenster schließen. Nur die Darstellung auf dem UF2 funktioniert nicht reibungslos.

Hier mal ein Beispielcode :
Code:
Public Sub DSAktivitäten()
    Dim frm As Form, cbostage As Control, cboaktiv As Control
    Dim cboLeM As Control, cboStatus As Control, cboSaM As Control
    Dim cboSaMTeam As Control, TextboxTage As Control
    'Dim ufrm As Form
    Dim Stage As String, varStage As String, varStageAlle As String
    Dim Aktivitäten As String, varLeM As String, LeM As String
    Dim Status As String, varStatus As String
    Dim SaM As String, varSaM As String, SaMTeam As String
    Dim varSaMTeam As String, Tage As String, varTage As String
    Dim varDatErstanlage2 As String
    Dim db As DAO.Database, qd As DAO.QueryDef
   
'##################### Initialisieren des Forms SCMTracking und der Comboboxen
'Initialisieren des Forms SCMTracking und der Comboboxen Stage und Aktivitäten
    Set db = CurrentDb
    Set frm = Forms![9_SCMTracking]
    'Set ufrm = frm![ufrmAktivitäten]
'Wichtig: Column(1)-hier befindet sich der eigentliche Wert ("S") statt ("8")
    Set cbostage = frm!ComboboxStage
    Set cboaktiv = frm!ComboboxAktivitäten
    Set cboStatus = frm!ComboboxStatus
    Set cboLeM = frm!ComboboxLeM
    Set txtTage = frm!TextboxTage
'#################### Prüfen ob Comboboxen leer sind
    If cbostage = "" Then
        Stage = MsgBox("Bitte eine Stage auswählen !", vbOKOnly)
        Exit Sub
      Else
        'Variablen deklarieren; Dim Stage und Aktivitäten as String notwendig
        Stage = cbostage.Column(0)
    End If
    If cboaktiv = "" Then
        Aktivitäten = MsgBox("Bitte eine Aktivität auswählen !", vbOKOnly)
        Exit Sub
      Else
        'Variablen deklarieren; Dim Stage und Aktivitäten as String notwendig
        Aktivitäten = cboaktiv.Column(1)
    End If
'######################## Deklaration der Variablen
' Definieren der Inhalte der Comboboxen
    varStage = " N.[SS_DS]='" & Stage & "' "
    varStageAlle = " N.[SS_DS] Is Not Null "
    varLeM = " L.[LeM_Name_Vorname]='" & LeM & "' "
    varStatus = " N.[Status_DS]='" & Status & "' "
    varSaMName = " L.[SaM_Name_Vorname]='" & SaMName & "' "
    varSaMTeam = " L.[SaMTeam]='" & SaMTeam & "' "
    varDatErstanlage1 = " B.[Dat_Erstanlage_DS] Is Not Null "
    varDatErstanlage2 = " B.[Dat_Erstanlage_DS] "
    varTage = Date + Tage
    varAktiv1 = "N.[Aktivität1_DS], N.[Dat_Aktivität1_DS], " & _
                "N.[Aktivität1_ok_DS]"
    varAktiv2 = "N.[Aktivität2_DS], N.[Dat_Aktivität2_DS], " & _
                "N.[Aktivität2_ok_DS]"
    varAktiv3 = "N.[Aktivität3_DS], N.[Dat_Aktivität3_DS], " & _
                "N.[Aktivität3_ok_DS]"
    varAktiv4 = "N.[Aktivität4_DS], N.[Dat_Aktivität4_DS], " & _
                "N.[Aktivität4_ok_DS]"
    varAktiv5 = "N.[Aktivität5_DS], N.[Dat_Aktivität5_DS], " & _
                "N.[Aktivität5_ok_DS]"
    varAktiv6 = "N.[Aktivität6_DS], N.[Dat_Aktivität6_DS], " & _
                "N.[Aktivität6_ok_DS]"
    varAktiv7 = "N.[Aktivität7_DS], N.[Dat_Aktivität7_DS], " & _
                "N.[Aktivität7_ok_DS]"
    varAktiv8 = "N.[Aktivität8_DS], N.[Dat_Aktivität8_DS], " & _
                "N.[Aktivität8_ok_DS]"
    varAktiv9 = "N.[Aktivität9_DS], N.[Dat_Aktivität9_DS], " & _
                "N.[Aktivität9_ok_DS]"
    varAktiv10 = "N.[Aktivität10_DS], N.[Dat_Aktivität10_DS], " & _
                 "N.[Aktivität10_ok_DS]"
    varAktiv11 = "N.[Aktivität11_DS], N.[Dat_Aktivität11_DS], " & _
                 "N.[Aktivität11_ok_DS]"
    varAktiv12 = "N.[Aktivität12_DS], N.[Dat_Aktivität12_DS], " & _
                 "N.[Aktivität12_ok_DS]"
    varAktiv13 = "N.[Aktivität13_DS], N.[Dat_Aktivität13_DS], " & _
                 "N.[Aktivität13_ok_DS]"
    varAktiv14 = "N.[Aktivität14_DS], N.[Dat_Aktivität14_DS], " & _
                 "N.[Aktivität14_ok_DS]"
    varAktiv15 = "N.[Aktivität15_DS], N.[Dat_Aktivität15_DS], " & _
                 "N.[Aktivität15_ok_DS]"
    varAktiv16 = "N.[Aktivität16_DS], N.[Dat_Aktivität16_DS], " & _
                 "N.[Aktivität16_ok_DS]"
    varAktiv17 = "N.[Aktivität17_DS], N.[Dat_Aktivität17_DS], " & _
                 "N.[Aktivität17_ok_DS]"
    varAktiv18 = "N.[Aktivität18_DS], N.[Dat_Aktivität18_DS], " & _
                 "N.[Aktivität18_ok_DS]"
    varAktiv19 = "N.[Aktivität19_DS], N.[Dat_Aktivität19_DS], " & _
                 "N.[Aktivität19_ok_DS]"
    varAktiv20 = "N.[Aktivität20_DS], N.[Dat_Aktivität20_DS], " & _
                 "N.[Aktivität20_ok_DS]"
    'Variablendeklaration: varStage, varAktivitäten,Datum für Aktivität
    '                      vorhanden, Haken in Checkbox für erledigt
    varSSAktiv1 = varStage & " " & _
             "AND N.[Aktivität1_DS]='" & Aktivitäten & "' " & _
             "AND N.[Dat_Aktivität1_DS] Is Not Null " & _
             "AND N.[Aktivität1_ok_DS]= CStr(-1) " & _
             "AND " & varDatErstanlage1
    varSSAktiv2 = varStage & " " & _
             "AND N.[Aktivität2_DS]='" & Aktivitäten & "' " & _
             "AND N.[Dat_Aktivität2_DS] Is Not Null " & _
             "AND N.[Aktivität2_ok_DS]= CStr(-1) " & _
             "AND " & varDatErstanlage1
    varSSAktiv3 = varStage & " " & _
             "AND N.[Aktivität3_DS]='" & Aktivitäten & "' " & _
             "AND N.[Dat_Aktivität3_DS] Is Not Null " & _
             "AND N.[Aktivität3_ok_DS]= CStr(-1) " & _
             "AND " & varDatErstanlage1
    varSSAktiv4 = varStage & " " & _
             "AND N.[Aktivität4_DS]='" & Aktivitäten & "'" & _
             "AND N.[Dat_Aktivität4_DS] Is Not Null" & _
             "AND N.[Aktivität4_ok_DS]= CStr(-1)" & _
             "AND " & varDatErstanlage1
    varSSAktiv5 = varStage & "" & _
             "AND N.[Aktivität5_DS]='" & Aktivitäten & "'" & _
             "AND N.[Dat_Aktivität5_DS] Is Not Null" & _
             "AND N.[Aktivität5_ok_DS]= CStr(-1)" & _
             "AND " & varDatErstanlage1
    varSSAktiv6 = varStage & "" & _
             "AND N.[Aktivität6_DS]='" & Aktivitäten & "'" & _
             "AND N.[Dat_Aktivität6_DS] Is Not Null" & _
             "AND N.[Aktivität6_ok_DS]= CStr(-1)" & _
             "AND " & varDatErstanlage1
    varSSAktiv7 = varStage & "" & _
             "AND N.[Aktivität7_DS]='" & Aktivitäten & "'" & _
             "AND N.[Dat_Aktivität7_DS] Is Not Null" & _
             "AND N.[Aktivität7_ok_DS]= CStr(-1)" & _
             "AND " & varDatErstanlage1
    varSSAktiv8 = varStage & "" & _
             "AND N.[Aktivität8_DS]='" & Aktivitäten & "'" & _
             "AND N.[Dat_Aktivität8_DS] Is Not Null" & _
             "AND N.[Aktivität8_ok_DS]= CStr(-1)" & _
             "AND " & varDatErstanlage1
    varSSAktiv9 = varStage & "" & _
             "AND N.[Aktivität9_DS]='" & Aktivitäten & "'" & _
             "AND N.[Dat_Aktivität9_DS] Is Not Null" & _
             "AND N.[Aktivität9_ok_DS]= CStr(-1)" & _
             "AND " & varDatErstanlage1
    varSSAktiv10 = varStage & "" & _
              "AND N.[Aktivität10_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität10_DS] Is Not Null" & _
              "AND N.[Aktivität10_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    varSSAktiv11 = varStage & "" & _
              "AND N.[Aktivität11_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität11_DS] Is Not Null" & _
              "AND N.[Aktivität11_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    varSSAktiv12 = varStage & "" & _
              "AND N.[Aktivität12_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität12_DS] Is Not Null" & _
              "AND N.[Aktivität12_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    varSSAktiv13 = varStage & "" & _
              "AND N.[Aktivität13_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität13_DS] Is Not Null" & _
              "AND N.[Aktivität13_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    varSSAktiv14 = varStage & "" & _
              "AND N.[Aktivität14_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität14_DS] Is Not Null" & _
              "AND N.[Aktivität14_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    varSSAktiv15 = varStage & "" & _
              "AND N.[Aktivität15_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität15_DS] Is Not Null" & _
              "AND N.[Aktivität15_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    varSSAktiv16 = varStage & "" & _
              "AND N.[Aktivität16_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität16_DS] Is Not Null" & _
              "AND N.[Aktivität16_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    varSSAktiv17 = varStage & "" & _
              "AND N.[Aktivität17_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität17_DS] Is Not Null" & _
              "AND N.[Aktivität17_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    varSSAktiv18 = varStage & "" & _
              "AND N.[Aktivität18_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität18_DS] Is Not Null" & _
              "AND N.[Aktivität18_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    varSSAktiv19 = varStage & "" & _
              "AND N.[Aktivität19_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität19_DS] Is Not Null" & _
              "AND N.[Aktivität19_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    varSSAktiv20 = varStage & "" & _
              "AND N.[Aktivität20_DS]='" & Aktivitäten & "'" & _
              "AND N.[Dat_Aktivität20_DS] Is Not Null" & _
              "AND N.[Aktivität20_ok_DS]= CStr(-1)" & _
              "AND " & varDatErstanlage1
    'Variablendeklaration: varStage, varAktivitäten,Datum für Aktivität
    '                      vorhanden, Haken in Checkbox für erledigt
    varAlleAktiv1 = varStageAlle & "" & _
               "AND N.[Aktivität1_DS]='" & Aktivitäten & "'" & _
               "AND N.[Dat_Aktivität1_DS] Is Not Null" & _
               "AND N.[Aktivität1_ok_DS]= CStr(-1)" & _
               "AND " & varDatErstanlage1
    varAlleAktiv2 = varStageAlle & "" & _
               "AND N.[Aktivität2_DS]='" & Aktivitäten & "'" & _
               "AND N.[Dat_Aktivität2_DS] Is Not Null" & _
               "AND N.[Aktivität2_ok_DS]= CStr(-1)" & _
               "AND " & varDatErstanlage1
    varAlleAktiv3 = varStageAlle & "" & _
               "AND N.[Aktivität3_DS]='" & Aktivitäten & "'" & _
               "AND N.[Dat_Aktivität3_DS] Is Not Null" & _
               "AND N.[Aktivität3_ok_DS]= CStr(-1)" & _
               "AND " & varDatErstanlage1
    varAlleAktiv4 = varStageAlle & "" & _
               "AND N.[Aktivität4_DS]='" & Aktivitäten & "'" & _
               "AND N.[Dat_Aktivität4_DS] Is Not Null" & _
               "AND N.[Aktivität4_ok_DS]= CStr(-1)" & _
               "AND " & varDatErstanlage1
    varAlleAktiv5 = varStageAlle & "" & _
               "AND N.[Aktivität5_DS]='" & Aktivitäten & "'" & _
               "AND N.[Dat_Aktivität5_DS] Is Not Null" & _
               "AND N.[Aktivität5_ok_DS]= CStr(-1)" & _
               "AND " & varDatErstanlage1
    varAlleAktiv6 = varStageAlle & "" & _
               "AND N.[Aktivität6_DS]='" & Aktivitäten & "'" & _
               "AND N.[Dat_Aktivität6_DS] Is Not Null" & _
               "AND N.[Aktivität6_ok_DS]= CStr(-1)" & _
               "AND " & varDatErstanlage1
    varAlleAktiv7 = varStageAlle & "" & _
               "AND N.[Aktivität7_DS]='" & Aktivitäten & "'" & _
               "AND N.[Dat_Aktivität7_DS] Is Not Null" & _
               "AND N.[Aktivität7_ok_DS]= CStr(-1)" & _
               "AND " & varDatErstanlage1
    varAlleAktiv8 = varStageAlle & "" & _
               "AND N.[Aktivität8_DS]='" & Aktivitäten & "'" & _
               "AND N.[Dat_Aktivität8_DS] Is Not Null" & _
               "AND N.[Aktivität8_ok_DS]= CStr(-1)" & _
               "AND " & varDatErstanlage1
    varAlleAktiv9 = varStageAlle & "" & _
               "AND N.[Aktivität9_DS]='" & Aktivitäten & "'" & _
               "AND N.[Dat_Aktivität9_DS] Is Not Null" & _
               "AND N.[Aktivität9_ok_DS]= CStr(-1)" & _
               "AND " & varDatErstanlage1
    varAlleAktiv10 = varStageAlle & "" & _
                "AND N.[Aktivität10_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität10_DS] Is Not Null" & _
                "AND N.[Aktivität10_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    varAlleAktiv11 = varStageAlle & "" & _
                "AND N.[Aktivität11_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität11_DS] Is Not Null" & _
                "AND N.[Aktivität11_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    varAlleAktiv12 = varStageAlle & "" & _
                "AND N.[Aktivität12_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität12_DS] Is Not Null" & _
                "AND N.[Aktivität12_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    varAlleAktiv13 = varStageAlle & "" & _
                "AND N.[Aktivität13_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität13_DS] Is Not Null" & _
                "AND N.[Aktivität13_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    varAlleAktiv14 = varStageAlle & "" & _
                "AND N.[Aktivität14_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität14_DS] Is Not Null" & _
                "AND N.[Aktivität14_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    varAlleAktiv15 = varStageAlle & "" & _
                "AND N.[Aktivität15_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität15_DS] Is Not Null" & _
                "AND N.[Aktivität15_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    varAlleAktiv16 = varStageAlle & "" & _
                "AND N.[Aktivität16_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität16_DS] Is Not Null" & _
                "AND N.[Aktivität16_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    varAlleAktiv17 = varStageAlle & "" & _
                "AND N.[Aktivität17_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität17_DS] Is Not Null" & _
                "AND N.[Aktivität17_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    varAlleAktiv18 = varStageAlle & "" & _
                "AND N.[Aktivität18_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität18_DS] Is Not Null" & _
                "AND N.[Aktivität18_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    varAlleAktiv19 = varStageAlle & "" & _
                "AND N.[Aktivität19_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität19_DS] Is Not Null" & _
                "AND N.[Aktivität19_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    varAlleAktiv20 = varStageAlle & "" & _
                "AND N.[Aktivität20_DS]='" & Aktivitäten & "'" & _
                "AND N.[Dat_Aktivität20_DS] Is Not Null" & _
                "AND N.[Aktivität20_ok_DS]= CStr(-1)" & _
                "AND " & varDatErstanlage1
    'Definieren der weiteren Tabellenspalten zur Anzeige in der Abfrage
    feldLeadID = "L.[Lead_ID]"
    feldLeadName = "L.[Lead_Name]"
    feldStage = "N.[SS_DS]"
    feldLeMName = "L.[LeM_Name_Vorname]"
    feldStatus = "N.[Status_DS]"
    feldSaMName = "L.[SaM_Name_Vorname]"
    feldSaMTeam = "L.[SaMTeam]"
    Select Case Stage
      Case "Alle"
        ' Aufpassen: Alles in Stringform. D.h. varStage,varAktivitäten,
        ' WHERE,OR,AND,runde Klammern in Hochkomma bzw Anführungszeichen.
        'Alles verbunden mit &
        ' -1 steht für Wahr; 0 steht für Falsch
        sqlAnweisung = "SELECT " & feldLeadID & ", " & feldLeadName & ", " & _
                                   feldStage & ", " & feldStatus & ", " & _
                                   feldLeMName & ", " & feldSaMName & ", " & _
                                   feldSaMTeam & ", " & varAktiv1 & ", " & _
                                   varAktiv2 & ", " & varAktiv3 & ", " & _
                                   varAktiv4 & ", " & varAktiv5 & ", " & _
                                   varAktiv6 & ", " & varAktiv7 & ", " & _
                                   varAktiv8 & ", " & varAktiv9 & ", " & _
                                   varAktiv10 & ", " & varAktiv11 & ", " & _
                                   varAktiv12 & ", " & varAktiv13 & ", " & _
                                   varAktiv14 & ", " & varAktiv15 & ", " & _
                                   varAktiv16 & ", " & varAktiv17 & ", " & _
                                   varAktiv18 & ", " & varAktiv19 & ", " & _
                                   varAktiv20 & " " & _
                         "FROM [0_Leads] AS L " & _
                              "INNER JOIN ([1_DS_nächsteSchritte] AS N " & _
                                 "INNER JOIN [1_DS_Bestand_alt_neu] AS B " & _
                                 "ON N.[GPNR_DS] = B.[GPNR_DS]) " & _
                              "ON  (L.[GPNR] = N.[GPNR_DS]) " & _
                              "AND (L.[GPNR] = B.[GPNR_DS]) "
        sqlAnweisung = sqlAnweisung & _
                        "WHERE " & varAlleAktiv1 & " " & _
                           "OR " & varAlleAktiv2 & " " & _
                           "OR " & varAlleAktiv3 & " " & _
                           "OR " & varAlleAktiv4 & " " & _
                           "OR " & varAlleAktiv5 & " " & _
                           "OR " & varAlleAktiv6 & " " & _
                           "OR " & varAlleAktiv7 & " " & _
                           "OR " & varAlleAktiv8 & " " & _
                           "OR " & varAlleAktiv9 & " " & _
                           "OR " & varAlleAktiv10 & " " & _
                           "OR " & varAlleAktiv11 & " " & _
                           "OR " & varAlleAktiv12 & " " & _
                           "OR " & varAlleAktiv13 & " " & _
                           "OR " & varAlleAktiv14 & " " & _
                           "OR " & varAlleAktiv15 & " " & _
                           "OR " & varAlleAktiv16 & " " & _
                           "OR " & varAlleAktiv17 & " " & _
                           "OR " & varAlleAktiv18 & " " & _
                           "OR " & varAlleAktiv19 & " " & _
                           "OR " & varAlleAktiv20
'vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
        'DoCmd.DeleteObject acQuery, "Abfragedaten"
        Set qd = db.CreateQueryDef("Abfragedaten", sqlAnweisung)
        DoCmd.SetWarnings False                 'Schaltet die Warnhinweise aus
        DoCmd.OpenQuery "Abfragedaten"                   'Ruft die Abfrage auf
        DoCmd.SetWarnings True                  'Schaltet die Warnhinweise ein
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
        Set db = Nothing
        Set qd = Nothing
    Case "1", "2", "3", "4", "5", "6", "7", "S", "L"
        ' Aufpassen: Alles in Stringform. D.h. varStage,varAktivitäten,
        ' WHERE,OR,AND,runde Klammern in Hochkomma bzw Anführungszeichen.
        ' Alles verbunden mit &
        ' -1 steht für Wahr; 0 steht für Falsch
        sqlAnweisung = "SELECT " & feldLeadID & ", " & feldLeadName & ", " & _
                                   feldStage & ", " & feldStatus & ", " & _
                                   feldLeMName & ", " & feldSaMName & ", " & _
                                   feldSaMTeam & ", " & varAktiv1 & ", " & _
                                   varAktiv2 & ", " & varAktiv3 & ", " & _
                                   varAktiv4 & ", " & varAktiv5 & ", " & _
                                   varAktiv6 & ", " & varAktiv7 & ", " & _
                                   varAktiv8 & ", " & varAktiv9 & ", " & _
                                   varAktiv10 & ", " & varAktiv11 & ", " & _
                                   varAktiv12 & ", " & varAktiv13 & ", " & _
                                   varAktiv14 & ", " & varAktiv15 & ", " & _
                                   varAktiv16 & ", " & varAktiv17 & ", " & _
                                   varAktiv18 & ", " & varAktiv19 & ", " & _
                                   varAktiv20 & _
                         "FROM [0_Leads] AS L " & _
                              "INNER JOIN ([1_DS_nächsteSchritte] AS N " & _
                                 "INNER JOIN [1_DS_Bestand_alt_neu] AS B " & _
                                 "ON N.[GPNR_DS] = B.[GPNR_DS]) " & _
                              "ON  (L.[GPNR] = N.[GPNR_DS]) " & _
                              "AND (L.[GPNR] = B.[GPNR_DS]) "
        sqlAnweisung = sqlAnweisung & _
                        "WHERE " & varSSAktiv1 & " " & _
                           "OR " & varSSAktiv2 & " " & _
                           "OR " & varSSAktiv3 & " " & _
                           "OR " & varSSAktiv4 & " " & _
                           "OR " & varSSAktiv5 & " " & _
                           "OR " & varSSAktiv6 & " " & _
                           "OR " & varSSAktiv7 & " " & _
                           "OR " & varSSAktiv8 & " " & _
                           "OR " & varSSAktiv9 & " " & _
                           "OR " & varSSAktiv10 & " " & _
                           "OR " & varSSAktiv11 & " " & _
                           "OR " & varSSAktiv12 & " " & _
                           "OR " & varSSAktiv13 & " " & _
                           "OR " & varSSAktiv14 & " " & _
                           "OR " & varSSAktiv15 & " " & _
                           "OR " & varSSAktiv16 & " " & _
                           "OR " & varSSAktiv17 & " " & _
                           "OR " & varSSAktiv18 & " " & _
                           "OR " & varSSAktiv19 & " " & _
                           "OR " & varSSAktiv20
'vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
        'DoCmd.DeleteObject acQuery, "Abfragedaten"
        Set qd = db.CreateQueryDef("Abfragedaten", sqlAnweisung)
        DoCmd.SetWarnings False                 'Schaltet die Warnhinweise aus
        DoCmd.OpenQuery "Abfragedaten"                   'Ruft die Abfrage auf
        DoCmd.SetWarnings True                  'Schaltet die Warnhinweise ein
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
        Set db = Nothing
        Set qd = Nothing
    End Select
End Sub
Mein Problem ist der "vvvv markierte ^^^^" Teil. Bei Darstellung der Abfrage in eigenen Fenstern habe ich eine Abfrage erstellt, diese für den nächsten Suchlauf gelöscht und wieder neu erstellt.
Wie gesagt: Bei Standardergebnisdarstellung (Abfrageergebnis öffnen in neuem Fenster) funktioniert das. Nur bei Darstellung auf dem UF2 nicht. Ich bekomme immer die Meldungen: Abfrage kann nicht gelöscht werden da noch offen oder Abfrage existiert schon.

Habe auch schon DoCmd.Close acQuery "Abfragedaten" versucht-ohne Erfolg.

Ich müßte möchte ein Codefragment haben, das mir z.B. bei Betätigung eines Buttons "Suchen", die alte Abfrage per Code löscht/schließt oder sonst was macht, sodaß eine neue Abfrage sauber durchläuft.

Der o.g. Beispielcode tritt ist nur einer von mehreren,halt je nach Bedarf. Es wird aber immer die gleiche Abfrage erzeugt ("Abfragedaten") um so die Bindung zum Steuerelement zu erhalten.

Hast Du eine Idee?

Grüße

Rotzlöffel
JörgG
Access-Team


Verfasst am:
22. Apr 2009, 16:02
Rufname:
Wohnort: b. Dresden

AW: Abfragen im ungebundenem Steuerelement aktualisieren - AW: Abfragen im ungebundenem Steuerelement aktualisieren

Nach oben
       Version: Office 2003

Hallo,

wenn die Abfrage zB durch das UF geöffnet ist lässt sie sich nicht löschen/ändern. Schliesse das UF und editiere dann die Abfrage mit:
Code:
    CurrentDb.QueryDefs("Abfragedaten").SQL = sqlAnweisung


Idea Dein SQL-Code wird so nicht laufen, da sind Fehler am Zeilenumbruch drin (fehlende Leerzeichen). Versuche den Code abzuspecken damit es übersichtlicher wird. Very Happy Sorry, um überhaupt zu verstehen was hier läuft hab ich mal alles rausgefeuert was in der Prozedur nicht verwendet wird, teste mal:
Code:
Public Sub DSAktivitäten()
    Dim Frm As Form, sSTage As String, Stage As String
    Dim i As Integer, sFIELDS As String, sWHERE As String, sSQL As String
   
'##################### Initialisieren des Forms SCMTracking und der Comboboxen
'Initialisieren des Forms SCMTracking und der Comboboxen Stage und Aktivitäten
    Set Frm = Forms![9_SCMTracking]
'#################### Prüfen ob Comboboxen leer sind
    If Nz(Frm!ComboboxStage, "") = "" Then
        Stage = MsgBox("Bitte eine Stage auswählen !", vbOKOnly)
        Exit Sub
      Else
        'Variablen initialisien; Dim Stage und Aktivitäten as String notwendig
        Stage = Frm!ComboboxStage.Column(0)
    End If
    If Nz(Frm!ComboboxAktivitäten, "") = "" Then
        MsgBox "Bitte eine Aktivität auswählen !", vbOKOnly
        Exit Sub
    End If
'######################## Initialisierung der Variablen
    sSTage = " N.[SS_DS]='" & Stage & "' "
    'Definieren der weiteren Tabellenspalten zur Anzeige in der Abfrage
    sFIELDS = "L.[Lead_ID], L.[Lead_Name], N.[SS_DS], L.[LeM_Name_Vorname], " & _
              "N.[Status_DS], L.[SaM_Name_Vorname], L.[SaMTeam]"
    For i = 1 To 20
        sFIELDS = sFIELDS & _
              ", N.[Aktivität" & i & "_DS], N.[Dat_Aktivität" & i & "_DS], " & _
                "N.[Aktivität" & i & "_ok_DS]"
    Next i
    Select Case Stage
      Case "Alle"
        For i = 1 To 20
            sWHERE = sWHERE & " OR (N.[SS_DS] Is Not Null " & _
                    "AND N.[Aktivität" & i & "_DS] = '" & _
                            Frm!ComboboxAktivitäten.Column(1) & "' " & _
                    "AND N.[Dat_Aktivität" & i & "_DS] Is Not Null " & _
                    "AND N.[Aktivität" & i & "_ok_DS] = True " & _
                    "AND B.[Dat_Erstanlage_DS] Is Not Null)"
        Next i
      Case 1 To 7, "S", "L"
        For i = 1 To 20
            sWHERE = sWHERE & " OR (" & sSTage & " " & _
                    "AND N.[Aktivität" & i & "_DS] = '" & _
                            Frm!ComboboxAktivitäten.Column(1) & "' " & _
                    "AND N.[Dat_Aktivität" & i & "_DS] Is Not Null " & _
                    "AND N.[Aktivität" & i & "_ok_DS] = True " & _
                    "AND B.[Dat_Erstanlage_DS] Is Not Null)"
        Next i
    End Select
    sWHERE = "WHERE " & Mid(sWHERE, 5)
    sSQL = "SELECT " & sFIELDS & " " & _
             "FROM [0_Leads] AS L " & _
       "INNER JOIN ([1_DS_nächsteSchritte] AS N " & _
       "INNER JOIN [1_DS_Bestand_alt_neu] AS B " & _
               "ON N.[GPNR_DS] = B.[GPNR_DS]) " & _
               "ON (L.[GPNR] = N.[GPNR_DS]) " & _
              "AND (L.[GPNR] = B.[GPNR_DS]) " & _
            sWHERE
'Debug.Print sSQL: Stop
'    Application.Echo False
    DoCmd.Close acForm, Frm.Name
    CurrentDb.QueryDefs("Abfragedaten").SQL = sSQL
'    Application.Echo True
    DoCmd.OpenForm Frm.Name
    Set Frm = Nothing
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Rotzlöffel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Apr 2009, 07:43
Rufname:

AW: Abfragen im ungebundenem Steuerelement aktualisieren - AW: Abfragen im ungebundenem Steuerelement aktualisieren

Nach oben
       Version: Office 2003

Hallo Jörg,
vielen Dank für Deine Mühe. Recht haste, so kann der Code nicht funtionieren. Es fehlen Bezeichnungen oder Verknüpfungen (OR). Bei mir funktioniert es. Trotzdem hast Du mir als Anfänger gezeigt wie elegant man solch einen Code auch schreiben kann. Werde meinen Code bei Zeiten anpassen.
Hab jetzt auchmal versucht, ein Bild hochzuladen. Leider sehe ich es nicht in der Vorschau. Ich hoffe das es nach absenden auch vorhanden ist. Deshalb habe ich weiterhin das Problem einer verständlichen Darstellung:

Ich habe ein Userform zum Einstellen von Parameter. Für jede Parameterkombination wird eine Abfrage erstellt, die immer den selben Namen hat(Abfragedaten). Diese habe ich zuvor erstellt und per Drag/Drop auf das Userform gezogen. Das Ergebnis der Abfrage soll zur Laufzeit auf dem schon geöffneten Userform dargestellt werden ohne das das Form geschlossen und wieder geöffnet wird. Dies funktioniert auch einmalig.
WAs ich möchte: Ich öffne das Userform wähle die Parameter aus, drücke einen Button "Suchen", die Abfrage wid gestartet und erscheint auf dem Userform.
Danach wähle ich dann andere Parameter aus drücke auf den Button "Suchen", die neue Abfrage wird gestartet und die neuen Daten erscheinen wieder auf dem geöffneten Userform.

Ich sende jetzt mal und hofffe es ist ein Bild vorhanden.

Grüße
Nachtrag: Rotzlöffel am 23. Apr 2009 um 08:04 hat folgendes geschrieben:
Hallo Jörg,
tja erst gibts kein Bild und jetzt sogar zwei. In dem Teil unter Eingebett75 soll immer die aktuelle Abfrage dargestellt werden ohne das das Form geschlossen wird. Eingebettet75 ist quasi die Abfrage per Drag/Drop.
Nach Drücken Button-Fernglas(Suchen) soll unter Eingebett75 immer die neusten Abfrageergebnisse dargestellt werden.

Es ist aber so, daß nach neuer Suche die alten Ergebnisse in Eingebettet 75 stehen bleiben und das Ergebnis der neuen Abfrage in einem neuen Abfragefenster erscheinen. Schließe ich allerdigs das Form und öffne es wieder, bekomme ich die neuen Ergebnisse angezeigt. Ich denke es ist soetwas wie ein Datenaktualisierungs- oder ein Speicherzugriffsproblem.
Leider komme ich auch nicht mit Requery oder Refresh weiter.

Hier mal der bisherige Aufbau:(hoffentlich)

Die Fehlermeldung: "Abfrage kann nicht gelöscht werden, da offen " habe ich eleminiert.

Grüße



userform1.gif
 Beschreibung:
 Dateigröße:  40.07 KB
 Angeschaut:  543 mal

userform1.gif



bild2_152.gif
 Beschreibung:
 Dateigröße:  24.37 KB
 Angeschaut:  529 mal

bild2_152.gif


JörgG
Access-Team


Verfasst am:
23. Apr 2009, 13:39
Rufname:
Wohnort: b. Dresden

AW: Abfragen im ungebundenem Steuerelement aktualisieren - AW: Abfragen im ungebundenem Steuerelement aktualisieren

Nach oben
       Version: Office 2003

Hallo,

das Schliessen/Öffnen wird so nicht funktionieren. Du könntest versuchen die RecordSource des Ufos zu ändern, aber warum so kompliziert. Idea Speichere die Abfrage und entferne aus ihr die Kriterien, das ist die Datenherkunft des Ufos. Dein og Code reduziert sich dann auf die Kriteriengeschichte (sWHERE). Nach dem Zusammenbasteln der Kriterien wird der (Ufo) Filter aktiviert, zB so:
Code:
    Select Case Stage
      Case "Alle"
        For i = 1 To 20
            sWHERE = sWHERE & " OR (N.[SS_DS] Is Not Null " & _
                    "AND N.[Aktivität" & i & "_DS] = '" & _
                            Frm!ComboboxAktivitäten.Column(1) & "' " & _
                    "AND N.[Dat_Aktivität" & i & "_DS] Is Not Null " & _
                    "AND N.[Aktivität" & i & "_ok_DS] = True " & _
                    "AND B.[Dat_Erstanlage_DS] Is Not Null)"
        Next i
      Case 1 To 7, "S", "L"
        For i = 1 To 20
            sWHERE = sWHERE & " OR (" & sSTage & " " & _
                    "AND N.[Aktivität" & i & "_DS] = '" & _
                            Frm!ComboboxAktivitäten.Column(1) & "' " & _
                    "AND N.[Dat_Aktivität" & i & "_DS] Is Not Null " & _
                    "AND N.[Aktivität" & i & "_ok_DS] = True " & _
                    "AND B.[Dat_Erstanlage_DS] Is Not Null)"
        Next i
    End Select
    Me!Eingebettet75.Form.Filter = Mid(sWHERE, 5)
    Me!Eingebettet75.Form.FilterOn = True
Um beim Öffnen eine leere Ansicht zu erhalten, kann im Ufo-Ereignis "beim Öffnen/Laden" ein "Sinnlos-Filter" gesetzt werden, zB:
Code:
Private Sub Form_Open(Cancel As Integer)
    Me.Filter = "Lead_Name = 'Zzz'"  'wird nie erreicht
    Me.FilterOn = True
End Sub
Idea Verpasse dem Ufosteuerelement "Eingebettet75" den gleichen Namen wie dem Ufo, das erspart Dir Syntaxprobleme!
_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Gast



Verfasst am:
07. Mai 2009, 10:57
Rufname:


AW: Abfragen im ungebundenem Steuerelement aktualisieren - AW: Abfragen im ungebundenem Steuerelement aktualisieren

Nach oben
       Version: Office 2003

Hallo Jörg,
sorry für die verspätete Rückmeldung. ich mach mal mit deinen Vorschlägen weiter und schau was passiert.
Wenn ich noch Fragen habe melde ich mich nochmal.
Dank Dir

Rotzlöffel
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: 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: Abfragen Gruppierung, Summe oder was auch immer 3 Knopfloch 861 11. Dez 2004, 19:12
Wollibär Abfragen Gruppierung, Summe oder was auch immer
Keine neuen Beiträge Access Tabellen & Abfragen: Meine Abfragen geben nichts aus. 2 cloud1981 557 03. Dez 2004, 13:43
lothi Meine Abfragen geben nichts aus.
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen- Formularfeld als Kriterium 1 Gast 684 22. Nov 2004, 15:02
Felix15 Abfragen- Formularfeld als Kriterium
Keine neuen Beiträge Access Tabellen & Abfragen: Access Abfragen Hilfe wie kann ich nur die Klammer auswerten 5 Xergo 1583 19. Nov 2004, 23:43
Gast Access Abfragen Hilfe wie kann ich nur die Klammer auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Gleich 3 Probleme mit Gruppierungen in Abfragen AXP 1 silversurfer 767 22. Okt 2004, 16:49
Skogafoss Gleich 3 Probleme mit Gruppierungen in Abfragen AXP
Keine neuen Beiträge Access Tabellen & Abfragen: aktueller wert von autowert abfragen 2 uh 1971 20. Okt 2004, 20:01
lothi aktueller wert von autowert abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: spezielle Abfragen 1 Hilfe 704 27. Sep 2004, 17:47
Skogafoss spezielle Abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Felder in Abfragen ausblenden. 3 Gast 1374 18. Aug 2004, 14:39
mabe38 Leere Felder in Abfragen ausblenden.
Keine neuen Beiträge Access Tabellen & Abfragen: Verschachtelte SQL Abfragen in ACCESS 2000? 1 Gast 1782 17. Jul 2004, 22:34
faßnacht(IT); Verschachtelte SQL Abfragen in ACCESS 2000?
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Abfragen ausgeben?? 2 woerny01 669 11. Jul 2004, 07:10
Gast SQL Abfragen ausgeben??
Keine neuen Beiträge Access Tabellen & Abfragen: Geänderte Feldnamen in Abfragen, Formulare usw. übernehmen 4 mondi 770 23. Jun 2004, 11:21
mondi Geänderte Feldnamen in Abfragen, Formulare usw. übernehmen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver