Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
411 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11830】変数値でレコード追加 FUK 10/11/4(木) 9:52 質問[未読]
【11831】Re:変数値でレコード追加 雅 10/11/4(木) 9:55 回答[未読]
【11832】Re:変数値でレコード追加 FUK 10/11/4(木) 10:17 お礼[未読]
【11830】変数値でレコード追加
質問  FUK  - 10/11/4(木) 9:52 -
引用なし
パスワード
   おしえてください。
アクセス起動時に、以下の処理を流したいのですが、
うまくいきません。
どこがおかしいのでしょうか。
パラメータ入力がでてしまいます。


Sub TEST5()
　Dim MyCode As String
　　MyCode = DMax("ID", "TEST")
　　MyCode = MyCode + 1
　Dim strSQL As String
strSQL = "Insert INTO TEST VALUES (MyCode,'','','');"
DoCmd.RunSQL strSQL
End Sub
【11831】Re:変数値でレコード追加
回答  雅  - 10/11/4(木) 9:55 -
引用なし
パスワード
   雅です。

>strSQL = "Insert INTO TEST VALUES (MyCode,'','','');"

これだと「MyCode」ってなんだ？
になりますので
strSQL = "Insert INTO TEST VALUES (" & MyCode & ",'','','');"
としましょう。
ちなみにフィールドが文字型なら
strSQL = "Insert INTO TEST VALUES ('" & MyCode & "','','','');"
です。
【11832】Re:変数値でレコード追加
お礼  FUK  - 10/11/4(木) 10:17 -
引用なし
パスワード
   ▼雅 さん：
>雅です。
>
>>strSQL = "Insert INTO TEST VALUES (MyCode,'','','');"
>
>これだと「MyCode」ってなんだ？
>になりますので
>strSQL = "Insert INTO TEST VALUES (" & MyCode & ",'','','');"
>としましょう。
>ちなみにフィールドが文字型なら
>strSQL = "Insert INTO TEST VALUES ('" & MyCode & "','','','');"
>です。
ありがとうございます。
できました。
また、ぜひよろしくおねがいします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
411 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078193
(SS)C-BOARD v3.8 is Free