ACCESS2000総合相談所

>>524
非連結フォーム（コントロールにデータ元が設定されていない）
なら、

Select Case Me!コース欄
　　Case "Aコース"
　　　　Me!金額欄 = "3000円"
　　Case "Bコース"
　　　　Me!金額欄 = "6000円"
　　Case Else
　　　　'その他の値の場合の処理をここに書く
End Select

かなぁ。VBAの入門書を読んで勉強してみたらいいのでは？