TForm
table に基づくフォームがありますT
。に Yes/No フィールドChoice
がありますT
。このフィールドをに追加するために、フォームTForm
にチェックボックスを追加しました。の値に基づいて SQL ステートメントを作成するために使用している別のクラス で の値ChoiceCheck
を取得しようとしています。ChoiceCheck
SQLPreparer
TForm
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のテキストボックスでもこの問題が発生しています。