| |
▼かろちん さん：
早速のレスありがとうございます。
>Dim strSQL As String
こういうことに気づかない所が素人で、お恥ずかしいです。
>また、気になるのが、新しいテーブルの申請者フィールド
>ですが、何時の段階で値を入れるのですか？
ご指摘のとおり申請者フィールドは元々Happyoに入っていて、式１フィールドにのみ'１月’と入れたいのです。UPDATE文とはこのような形でよいのでしょうか？
Option Compare Database
Option Explicit
Function test()
Dim strSQL As String
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 & " ('１月')"
strSQL.Update
DoCmd.SetWarnings True
test_Exit:
Exit Function
test_Err:
MsgBox Error$
Resume test_Exit
End Function
|
|
にしもり
- 05/1/16(日) 13:48 -
