1

TFormtable に基づくフォームがありますT。に Yes/No フィールドChoiceがありますT。このフィールドをに追加するために、フォームTFormにチェックボックスを追加しました。の値に基づいて SQL ステートメントを作成するために使用している別のクラス で の値ChoiceCheckを取得しようとしています。ChoiceCheckSQLPreparerTForm

Private Function controlToValueStr(ctrl As Control) As String

If ctrl.name = "ChoiceCheck" Then
    controlToValueStr = ctrl.Value
Else
    'return the control's value wrapped in quote marks
    controlToValueStr = quoteWrap(ctrl.Value)
End If

End Function

ただし、 を呼び出しSQLPreparer.controlToValueStr()て渡すChoiceCheckと、ctrl.Valueステートメントで次のエラーが発生します。

Run-time error '438':
Object doesn't support this property or method

TForm次のように、クラス自体の値を取得できます。

Me.ChoiceCheck.Value

文字列型のテキスト ボックス コントロールはすべて、両方の状況で機能します。タイプTがLongのテキストボックスでもこの問題が発生しています。

4

1 に答える 1