Ist es möglich ein string in ein Objekt-Referenz?

Ich versuche, etwas zu machen, ein wenig mehr Generika in einer Access 2K7 Datenbank. Ich habe ein Formular, dass ich mich übergeben, ein paar Infos zur Verwendung von OpenArgs. Ich bin vorbei ein name Formular, Unterformular-name und Feld-name, so wird das Feld aufgefüllt werden kann.

Ich bin in Schwierigkeiten "Wiederaufbau" der Bezug auf das Feld. Ich habe versucht, die folgenden, aber VBA nicht gefällt:

Dim strForm, strField, strSubForm As String
Dim frm As Form

strForm = Left(Me.OpenArgs, InStr(Me.OpenArgs, "|") - 1)
Brk1 = Mid(Me.OpenArgs, InStr(Me.OpenArgs, "|") + 1)
strField = Left(Brk1, InStr(Brk1, "|") - 1)
strSubForm = Mid(Brk1, InStr(Brk1, "|") + 1)

X = "Forms!" & strForm
Y = X & "!" & strSubForm
Z = Y & "!" & strField
frm(Z) = Me.Calendar0.Value

Gegenstand dieser exercize darum geht, den Wert des Kalenders (Mich.Calendar0.Wert) auf das Feld im Unterformular (Formulare!strForm!strSubForm!strField). Ich kann einfach nicht herausfinden, wie zu schreiben, dass Sie in einer Weise, die von VBA akzeptiert es. Ich bin immer ein "Objekt-variable oder With-block variable nicht festgelegt" Fehler.

InformationsquelleAutor Johnny Bones | 2013-05-20
  1. 5

    Basteln um in den VBA-editor führt mich zu vermuten, dass so etwas funktionieren könnte:

    Dim sbf As SubForm
Set frm = Forms(strForm)
Set sbf = frm.Controls(strSubForm)
sbf.Controls(strField).Value = me.Calendar0.Value
Set sbf = Nothing
Set frm = Nothing
    • Das war es! Danke!
    InformationsquelleAutor Gord Thompson
  2. 2

    Haben Sie ...

    Dim frm As Form

    ... aber später werden Sie versuchen, Sie zu nutzen frm ohne Sie zunächst zu einem Formular-Instanz. Das ist, warum Sie die Fehlermeldung über die Objekt-variable nicht gesetzt ist.

    Aber es gibt ein weiteres Problem, die kann warten, um zu beißen. Sie können ein Formular enthält ein Unterformular-Steuerelement und den Namen des Steuerelements kann nicht das gleiche wie der name der form, die es enthält. Stellen Sie sicher, dass Sie mit dem Namen des Unterformular Kontrolle.

    Wenn strSubForm ist das Unterformular-Steuerelement, das sollte funktionieren ...

    Forms(strForm).Controls(strSubForm).Form.Controls(strField) = Me.Calendar0.Value
    InformationsquelleAutor HansUp
Schreibe einen Kommentar