| |
▼かろちん さん：
レスありがとうございます。
やりたいことはこうです。
１．元々Happyoというテーブルがあり、「申請者」というフィールドのみがあります。
２．テーブル作成クエリーである「クエリー08」で、「発表会回数」という名の新たなテーブルを作ります。その際、フィールド「申請者」と、「申請者」の右隣にフィールド「式１」を設けます。
３．その直後に「発表会回数」の「式１」に無条件に‘１月‘というCHARを入れたいのです。
アドバイスにしたがいモジュールを作成しました。（以下参照してください。）
Option Compare Database
Option Explicit
Function test()
On Error GoTo test_Err
DoCmd.SetWarnings False
DoCmd.OpenQuery "クエリー08", acNormal, acEdit
strSQL = ""
strSQL = strSQL & "INSERT INTO 発表会回数"
strSQL = strSQL & " (式1)"
strSQL = strSQL & " VALUES"
strSQL = strSQL & " ('１月')"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
test_Exit:
Exit Function
test_Err:
MsgBox Error$
Resume test_Exit
End Function
が、コンパイルエラーになって、できません。正直、市販本の必要なところをつぎはぎしてやっている程度の実力なので、基本がわかっていません。どこが悪いかどうかご教授ください。
|
|
にしもり
- 05/1/16(日) 12:38 -
