実行時エラー '2448'：このオブジェクトに値を割り当てることはできません - VBA /アクセス - オプショングループ

Question

私は学生が勉強しているプログラムを選択するためのオプショングループを使用しています。一度選択されると、ProgrammeChoiceTという名前のテキストボックスは、その値がProgrammeIDに設定され、コントロールソースがProgrammeIDに設定されます。

これはすべて、ProgrammeIDを1-3のデフォルトオプショングループ値として保存することができないように行われます。しかし、それは動作しませんと、このエラーが表示されます。

実行時エラー「2448」：私は、コントロール・ソースのProgrammeChoiceT.Valueを削除するときは、このオブジェクト

に値を割り当てることはできませんテキストボックスが "AM"に変わります。コントロールソースが設定されている場合にのみエラーが表示されます。

どうすれば修正できますか？

コードを以下に示します。

Private Sub ProgrammeF_AfterUpdate() 

Select Case ProgrammeF.Value 
    Case 1 
    ProgrammeChoiceT.Value = "AM" 
    Case 2 
    ProgrammeChoiceT.Value = "FM" 
    Case 3 
    ProgrammeChoiceT.Value = "HRM" 
End Select 
End Sub 

Answer 1

私はエラーはあなたがフィールドに値を選択していないことであると信じています。

ので、解決策は以下のとおりです。また

Select Case ProgrammeF 
case 1 
    programmeChoiceT.value ="AM" 

、あなたは当時とif...then文を使用し、値を選択したい場合。

Answer 2

値を保存しているフィールドに複数の列がドロップダウン表示されていますか？受け取ったエラーが、複数の列が含まれていないドロップダウンフィールドのオプションのためであるかどうかは疑問です。数値オプションはバインドされた列になり、これらのオプションの値は2番目の列になります。列の幅を変更して、テキスト値だけを表示することもできますが、数値は保存されます。