Access VBA質問箱 IV

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

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


1168 / 9994 ←次へ | 前へ→

【12125】Re:同じならば更新しない
発言  ちん  - 12/2/3(金) 9:14 -

引用なし
パスワード
   ▼rvr さん、おはようございます。ちんです。
あまり、ACCESSは得意でないです。
普段は、ACCESSをDBとして使用しているだけなので。
ヘッダー情報マスタの読み込み処理がないですよね。
Excelのヘッダーを読み込み、Header.会社コード ・Header.運送コードの
登録チェックを行う。
1.ヘッダーが存在した時は、作業指示Noをマスタより取得する。
2.ヘッダーが存在したとき、T_作業指示を読み込み、MoveLastで
T_作業指示を最終データを読み込み、i行を取得する。
マスターのレイアウトとか構成がわからないので、想像で・・・


    sqlstr = "SELECT * FROM Header"
    sqlstr = sqlstr + " WHERE Header.会社コード ='" + Format(ws.Cells(lRowH + CST_ROW_会社コード, lColH + CST_COL_会社コード).Value
, "00000") + "'"
    sqlstr = sqlstr + " and Header.運送コード ='" + Format(ws.Cells(lRowH + CST_ROW_運送区分, lColH + CST_COL_運送区分).Value
, "00000") + "'"
    Set dbRes2 = dbWB.OpenRecordset(sqlstr, dbOpenDynaset)
    If dbRes2.RecordCount > 0 Then
     '**** ヘッダーマスター発見
      '*** T_作業指示を読み込む

    Else
     '**** ヘッダーマスターなし、新規登録
     
    End If


ExcelのVBAからのサンプルですが、ACCESSでも応用できると思いますが、
違ってたら、ACCESSの上級者たちが、回答してくれるかもです。
以上、
406 hits

【12117】同じならば更新しない rvr 12/1/31(火) 9:43 質問[未読]
【12122】Re:同じならば更新しない ちん 12/2/2(木) 11:09 質問[未読]
【12123】Re:同じならば更新しない rvr 12/2/3(金) 7:52 回答[未読]
【12125】Re:同じならば更新しない ちん 12/2/3(金) 9:14 発言[未読]
【12126】Re:同じならば更新しない rvr 12/2/3(金) 9:57 お礼[未読]
【12128】Re:同じならば更新しない ちん 12/2/3(金) 14:27 発言[未読]
【12130】Re:同じならば更新しない rvr 12/2/3(金) 14:52 質問[未読]
【12131】Re:同じならば更新しない ちん 12/2/3(金) 16:34 発言[未読]
【12132】Re:同じならば更新しない rvr 12/2/3(金) 17:22 お礼[未読]

1168 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078193
(SS)C-BOARD v3.8 is Free