Verwenden Sie VBA, um eine Schleife durch Kombinationsfeld Liste und starten Sie MS Access-makro für jedes

Derzeit habe ich eine MS Access 2003-Formular mit einem Kombinationsfeld Liste von Namen. Der Weg, um dieses tool zu verwenden: Sie wählen einen Namen aus der drop-down-und klicken Sie dann auf die MS Access-Makro, welches ausgeführt wird (3 verschiedene Abfragen) auf der Grundlage von Namen ausgewählt, und öffnen Sie dann eine master-Excel-Vorlage und führen Sie eine Excel-Makro, das 1 einzelne Datei für jeden Verkäufer.

Was ich versuche zu tun: Verwenden Sie für MS Access-VBA-code, um eine Schleife obwohl die Liste der Namen in der combo-box und führen Sie dann die vorhandenen MS Access-Makros ausführen jeder Abfrage aus der Liste der Namen indiividually und exportieren Sie dann jede der Personen, die Daten in eine excel-Vorlage, die bereits formatiert ist oder einfach nur eine Excel-Datei, und ich werde-format.

Ich nicht wollen, um manuell wählen Sie einen Namen, eine Summe von über 300 Namen aus der drop-down, dauert es zu lange laufen, alle diese Abfragen. Ich möchte mithilfe von VBA-code, um eine Schleife durch die Namen in das Kombinationsfeld auf das Formular, und verwenden Sie einen Namen, um ausführen die vorhandenen ms access-Makros (läuft 3 Abfragen zusammen) und dann will ich die Funktion exportieren Sie jede einzelne Datei in Excel. Das Endergebnis ist, dass jeder Verkäufer seine eigenen Excel-Datei.

Wo kommen die Namen in das Kombinationsfeld kommen aus? Wenn aus einer Abfrage, kannst du nicht einfach die Abfrage ausführen und die Datensätze Durchlaufen, läuft das reporting makro für jeden von Ihnen? Können Sie zeigen, beliebigen code (und können Sie ändern Sie den code in der form)? Einfachste Ansatz wäre eine Schleife über die Einträge in der combo-box, die Einstellung, die die Auswahl in der Liste zu jedem Punkt, und dann führen Sie das reporting makro. Ohne ein paar mehr details, es ist schwer, mehr zu bieten als das.

InformationsquelleAutor Weasy | 2011-03-29

Dim i As Long
  with myCombo
    For i = 0 To .ListCount
        Debug.Print .ItemData(i)
    Next i
end with

InformationsquelleAutor Patrick Honorez

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.