Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5567 / 9994

←次へ　｜　前へ→


	【7644】Re:テキストボックスへの表示

青首 - 06/4/4(火) 20:02 -


	引用なし

	パスワード

▼小僧さん：

>年度末に仕事が立て込んでしまいまして返信が遅れました。すみません。

いえ、覚えていてもらえてうれしいです。

>フォームのUnload時のSQLに
>T_Work と T_社員を結合したものを指定する必要が出てきますね。

今、読み込み解除時イベントには下記のようなコードが
書いてあるのですが、「T_Work と T_社員を結合したものを指定する」
というのはどのような形になるのでしょうか。

Private Sub Form_Unload(Cancel As Integer)
Dim strSQL As String
　
　　 strSQL = "INSERT INTO T_日報情報 ( 日付, 社員ID )" _
　　　　　　& "SELECT 日付, 社員ID " _
　　　　　　& "FROM T_Work;"

　　DoCmd.SetWarnings False
　　　　DoCmd.RunSQL strSQL
　　DoCmd.SetWarnings True

　
　　strSQL = "UPDATE T_日報情報 INNER JOIN T_Work " _
　　　　　 & "ON (T_日報情報.社員ID = T_Work.社員ID) AND " _
　　　　　 & "(T_日報情報.日付 = T_Work.日付) " _
　　　　　 & "SET T_日報情報.早出 = T_Work.早出, " _
　　　　　 & "T_日報情報.残業 = T_Work.残業, " _
　　　　　 & "T_日報情報.残業区分ID = T_Work.残業区分ID, " _
　　　　　 & "T_日報情報.注文先ID = T_Work.注文先ID, " _
　　　　　 & "T_日報情報.メニューNo = T_Work.メニューNo;"
　　DoCmd.RunSQL strSQL

　　strSQL = "DELETE FROM T_Work"
　　DoCmd.RunSQL strSQL
End Sub

459 hits

▼

【7555】テキストボックスへの表示 青首 06/3/18(土) 22:13