1

私がしたことは、レコードセットの作成に使用されるクエリの追加の列としてチェックボックスを追加することでした。このレコードセットは、コンボボックス コントロールに割り当てられました。

以前は、表示されていないコンボボックスで選択した行の列を参照するとうまくいきました。ただし、何を試しても、これらのチェックボックスを参照しようとすると、null 値しか取得できません。

説明する:

Set rs = db.OpenRecordset("SELECT AG.Acttype, AG.ActGroupID, AT.HasLots, AT.IsLotSrce, " _
    & "AT.HasStructs FROM ActivityGroup AG, ActivityType AT WHERE (" _
    & FormatToSQLVal(Me![WizardSubformDisplay].Form![ActLinkedProjInput].Column(1)) _
    & " = AG.ProjectID) AND (AG.Acttype = AT.ActType);")

Set Me![WizardSubformDisplay].Form![ActTypeInput].Recordset = rs

(この場合、チェックボックスを処理しなかった他のケースで問題を引き起こさなかった追加の次の調整があります)

Me![WizardSubformDisplay].Form![ActTypeInput] = Me![ActTypeName]
Me![WizardSubformDisplay].Form![ActTypeInput].Locked = True

(コンボボックスを特定の選択肢に設定してからロックします)

Me![WizardSubformDisplay].Form![ActTypeInput].Column(2),
Me![WizardSubformDisplay].Form![ActTypeInput].Column(3),
Me![WizardSubformDisplay].Form![ActTypeInput].Column(4)

ボックスがチェックされている場合は -1、チェックされていない場合は 0 ではなく、すべて null を返します。

4

0 に答える 0