Access VBA質問箱 IV

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

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


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

1167 / 9994

←次へ　｜　前へ→


	【12126】Re:同じならば更新しない

ｒｖｒ - 12/2/3(金) 9:57 -


	引用なし

	パスワード

ちんさんおはようございます。

返信ありがとうございます。

ヘッダー情報マスタの読み込み処理のﾛｼﾞｯｸ抜けてました。
すいません。

　　　　If rstT.Fields("運送区分").Value = 1 Then　　 '自社
　　　　　　rstT.Fields("運転者コード").Value = Header.運転手コード
　　　　　　rstT.Fields("車両コード").Value = Header.車番
　　　　　　wInt = Nz(rstT.Fields("車両コード").Value, 0)
　　　　　　プレートNo = Format(wInt, "00-00")
　　　　　　rstT.Fields("プレートNo").Value = プレートNo

　　ElseIf rstT.Fields("運送区分").Value = 2 Then　　'傭車

　　　　If Nz(rstT.Fields("傭車先コード").Value, 0) = 0 Then
　　　　　 rstT.Fields("傭車先コード").Value = Null
　　　　End If
　　　　
　　　　　　rstT.Fields("プレートNo").Value = Header.車番
　　　　 If Nz(rstT.Fields("プレートNo").Value, 0) = "" Then
　　　　　　rstT.Fields("プレートNo").Value = Null
　　　　 End If
　　　　　　rstT.Fields("傭車先コード").Value = Header.会社コード
　　　　　　rstT.Fields("傭車先名").Value = Header.会社名
　　　　　　rstT.Fields("傭車先発地コード").Value = Meisai.発地コード
　　　　　　rstT.Fields("傭車先発地名").Value = Meisai.発地名
　　　　　　rstT.Fields("傭車先着地コード").Value = Meisai.行先コード
　　　　　　rstT.Fields("傭車先着地名").Value = Meisai.行先名
　　　　End If
　　　　　　rstT.Fields("運賃合計").Value = 運賃合計
　　　　　　rstT.Fields("非課税合計").Value = 非課税合計
　　　　　　rstT.Fields("数量合計").Value = 数量合計
　　　　　　rstT.Fields("得意先コード").Value = Meisai.荷主コード
　　　　　　rstT.Fields("発着地コード1").Value = 発着地コード1
　　　　　　rstT.Fields("発地コード").Value = Meisai.発地コード
　　　　　　rstT.Fields("発地名").Value = Meisai.発地名
　　　　　　rstT.Fields("発着地コード2").Value = 発着地コード2
　　　　　　rstT.Fields("着地コード").Value = Meisai.行先コード
　　　　　　rstT.Fields("着地名").Value = Meisai.行先名
　　　　　　rstT.Fields("品目コード").Value = 品目コード
　　　　　　rstT.Fields("品コード").Value = Meisai.品コード
　　　　　　rstT.Fields("品名").Value = Meisai.品名
　　　　　　rstT.Fields("数量").Value = Meisai.予定数
　　　　　　rstT.Fields("単位").Value = Meisai.単位
　　　　　　rstT.Fields("金額").Value = 金額
　　　　　　rstT.Fields("概算区分").Value = 0
　　　　　　rstT.Fields("備考").Value = Null
　　　　　　rstT.Fields("請求更新ＦＬＧ").Value = False
　　　　　　rstT.Fields("月次更新ＦＬＧ").Value = False
　　　　　　rstT.Fields("傭車更新ＦＬＧ").Value = False
　　　　　　rstT.Fields("入力日").Value = Date
　　　　　　rstT.Update
　　　　　　i行 = i行 + 1　　　'指示書行=指示書行+1
End If
　　　　　　
　　　　　　iCntM = iCntM + 1　 '明細数=明細数+1
　　　　　　lRowM = lRowM + 1　 '明細行=明細行+1
　　　　Loop

以下略

これが本来の取り込みのコードです。
ご迷惑おかけして申し訳ありません。
これでもう一度ご指導よろしくお願い致します。

430 hits

▼

【12117】同じならば更新しない ｒｖｒ 12/1/31(火) 9:43