Access-VBA - Wie müsste ich eine Schleife in VBA, die mir erlaubt, um eine Schleife durch die Kontrolle der Namen

Habe ich etwa 10 Textfelder auf einer form, die tatsächlich verwendet werden für die Anzeige nicht Eintritt. Sie sind benannt txt_001_Name, txt_002_Title usw..welche Art von Schleife verwendet.

Welche Art von VBA sollte ich verwenden, um tatsächlich eine Schleife durch die Namen der Textfelder? Also wenn ich auf "Debuggen".drucken, würde das so Aussehen:

txt_001_Title
txt_002_Title
txt_003_Title

Dies ist wahrscheinlich ziemlich einfach zu tun - ein Grund mehr, dass ich lernen sollte, wie!

EDIT: Sorry, ich hätte mehr beschreibenden darüber.

Aufgrund der oben genannten Namenskonvention, ich bin auf der Suche Durchlaufen diese Textfelder so, dass ich etwas leisten kann, mit jedem. Was diese 10 Textfelder tatsächlich repräsentieren numerische Werte, die jeweils eine SQL-Anweisung, die hinter Ihnen in der form onload Veranstaltung. Ich habe auch einen anderen Satz von zehn halten, dass numerische Werte, die sind wesentlich statischer, und schließlich weitere zehn, die einen Ausdruck verwenden, der zu teilen Sie einfach jedes der ersten zehn, gegen die relative "zweiten" zehn, und der Wert landet in der relativen 3. Also im Grunde es endet auf der Suche wie ein dashboard-Tabelle.

'first ten'       'second ten'     'resulting ten'
---------------------------------------------------
txt_001_value      txt_001_calc     txt_001_result
txt_002_value      txt_002_calc     txt_002_result

etc.

Also eigentlich möchte ich dies für die "daraus resultierenden" text-Boxen. Ich möchte eine Schleife durch die ersten zehn und führen Sie diese einfache Berechnung:

 me.txt_001_result = me.txt_001_value / me.txt_001_calc

Alle Namenskonventionen "match up", so kann ich Sie manuell eingeben, aus den 10 Zeilen der oben für diese, aber ich bin sicher, es gibt einen besseren Weg (loop through), und ich sollte wohl lernen.

InformationsquelleAutor Justin | 2010-10-12
  1. 8

    Können Sie die Liste mit den Namen der textbox-Steuerelemente mit einem einfachen Verfahren wie diesem:

    Public Sub TextBoxNames(ByRef pfrm As Form)
    Dim ctl As Control
    For Each ctl In pfrm.Controls
        If ctl.ControlType = acTextBox Then
            Debug.Print ctl.Name
        End If
    Next ctl
    Set ctl = Nothing
End Sub

    Könnte man es nennen, aus der form Load-Ereignis:

    Private Sub Form_Load()
    TextBoxNames Me
End Sub

    Aber ich verstehe nicht, was du versuchst zu erreichen. Ich merke, Sie wollen etwas tun, mit ctl.Name andere als Debug.Print, aber ich weiß nicht, was das ist.

    Anstatt computing Ergebnis für mir.txt_001_result und dann zuweisen, dass der Wert der text box, sollten Sie die Option Steuerelement-Quelle für txt_001_result zu txt_001_value /txt_001_calc und lassen Sie den Zugriff setzen Sie den richtigen Wert in txt_001_result für Sie.

    In der Antwort auf Ihre Kommentare, ich werde vorschlagen, dieses Verfahren als ein Ausgangspunkt für Sie zu bauen auf:

    Public Sub MyTextBoxValues()
    Const cintLastTextBoxNum As Integer = 10
    Dim i As Integer
    Dim strValueControl As String
    Dim strCalcControl As String
    Dim strResultControl As String
    Dim strPrefix As String

    For i = 1 To cintLastTextBoxNum
        strPrefix = "txt_" & Format(i, "000")
        'txt_001_value      txt_001_calc     txt_001_result '
        strValueControl = strPrefix & "_value"
        strCalcControl = strPrefix & "_calc"
        strResultControl = strPrefix & "_result"
        'me.txt_001_result = me.txt_001_value /me.txt_001_calc '
        'Debug.Print strResultControl, strValueControl, strCalcControl '
        Me.Controls(strResultControl) = Me.Controls(strValueControl) / _
            Me.Controls(strCalcControl)
    Next i
End Sub
    • also ich verstehe, was Sie sagen, aber obwohl ich nicht erwähnt, dass es oben, ich glaube, ich brauche den vba-Konto für Nullen, richtig? auch ja, du hast Recht, anstatt über Bord gehen mit Beschreibungen, ich bin auf der Suche, um das Ergebnis der Aufteilung eines Textfeld Wert, von anderen, in der "Ergebnis-text" - box. also gibt es eigentlich mehr als 10, aber es ist die genau die gleiche Idee. und diese Felder sind mit zahlen gefüllt ist, basierend auf einem anderen Wahl, die der Benutzer ausgewählt, basierend auf einer Wahl vor, dass, usw. ich benutze diese 'dashboards' die ganze Zeit, weil das ist, was die Menschen wollen, dass ALLE DIE ZEIT...( ich auch
    • (Fortsetzung)..feststellen, dass dies nicht die beabsichtigte Ahnung von access, aber für was brauche ich zu tun bekommen, es funktioniert). also ich war auf der Suche für eine Schleife, die würde erhöhen Sie die Anzahl der Textfeld-Namen, um die bassic calc für jeden, vorausgesetzt, dass Sie einen Wert enthalten in den ersten Platz.
    • Ich verstehe immer noch nicht genug über die Zusammenhänge, aber Sie müssen nicht unbedingt VBA-code, um mit viel null ist. Vielleicht eine VBA-Funktion in einem textbox control source-Ausdruck: Wenn(irgendwas = 0, "Umgang mit null", "deal with non-zero")
    • Trotz meiner Verwirrung hast die TextBoxNames Verfahren geben Sie mindestens ein Stück, was Sie wollte?
    • Ich entschuldige mich. Ich denke, das kann einkochen, meinen Mangel an verstehen, wie es zu erklären. Und ja, das erste Beispiel, das Sie Gaben, half mir enorm. Also ich habe nur gedacht, dass es muss eine Schleife Durchlaufen, alle Textfelder, die anwendbar sind, zu der Gleichung, so dass ich nicht haben, um geben Sie die Gleichung für jeden Satz von relativen text-Boxen. ich nehme an, die Idee war die Schleife durch die 'numeric' - Wert der text box. so würde die Schleife zuerst tun: txt_001_result = txt_001_value / txt_001_calc, wenn alle beide sind nicht null/leer ist, ein
    • dann tun Sie dies: txt_002_result = txt_002_value / txt_002_calc, usw durch alle Textfelder, die einen Wert des spezifischen Namen.
    • Können Sie die MyTextBoxValues Verfahren und machen die Mich.Steuert die Zuordnung abhängig: If Nz(Me.Controls("strCalcControl")) <> 0
    • das hat mir sehr geholfen....Ich habe tatsächlich herausgefunden, wie es zu tun ist, auf der Grundlage der Beispiele....Ich habe gerade versucht, zwei Ideen in einer Schleife, das kann möglich sein, aber sobald ich zwei, es war ganz einfach eigentlich. Dank Hans!

    InformationsquelleAutor HansUp
  2. 4

    Ich lieber mit einer FOR EACH zum Durchlaufen der controls-Auflistung von dem, was der Textfelder sind auf (entweder das Formular selbst oder einem panel-Steuerelement)

    dim myBox as Textbox
For each myBox in myForm
    myBox.Text = "hello"
Next

    Bedeutet auch, können Sie benutzerdefinierte Gruppen (indem Sie diese alle auf den gleichen container).
    Beachten Sie, dass wenn Sie anderen Steuerelemente, die Sie brauchen könnten, typecheck in es (IF TYPEOF(myBox) = "TextBox" THEN ...)

    Könnten Sie es auch tun, wie:

    dim i as integer
For i = 1 to 10
     myForm.Controls("txt_00" & i & "_Title").Text = "hello"
Next i

    Ich bevorzuge definitiv die Für Jede, allerdings.

    • Als Hinweis, in Access VBA, die Sie verwenden möchten .Wert, nicht .text - (.text ist verwendet in einem anderen Zusammenhang dann VB, und das Steuerelement hat den Fokus .text nutzbar). So, .Value = "some string" ist die richtige syntax
    • Albert ist richtig, die Sie nutzen könnten .text, würden Sie müssen nur den Fokus jeder Zeit, also auch Wert! Aber BradC Antwort, funktioniert wunderbar!
    InformationsquelleAutor BradC
  3. 2

    Kann ich nicht ganz verstehen, warum Sie benötigen, zu tun, was Sie tun, aber ich habe Formulare, wie, wo hatte ich ein ungebundenes Formular, dass ich wollte, um anzuzeigen, eine beliebige Anzahl von Feldern, so kann ich es sehen. Wenn Sie zu Fuß die Auflistung der Steuerelemente nur in der form BeimÖffnen-Ereignis, das ist in Ordnung. Aber wenn Sie es tun, in die beim anzeigen eines gebundenen form oder mehrere Male in ein ungebundenes Formular, sollten Sie erwägen, einen langen post von mir auf verwenden von benutzerdefinierten Sammlungen zur Verwaltung von Gruppen von Steuerelementen.

    InformationsquelleAutor David-W-Fenton
Schreibe einen Kommentar