ACCESSとExcelの連携　在庫管理　その5

ACCESSとExcelの連携　在庫管理　その5

こんにちは。伊川(@naonaoke)です。

http://keiyu.xyz/2020/03/03/zaiko4/

今回は、上の記事の続きになります。

Excelから、ACCESSへ転送する魔法のコードを紹介します。

ACCESSへの転送コード

動画でも、ブログでも、何度か紹介していますが、カンタンです。

コードがやや複雑なだけです。

特定の場所を変更するだけで、今回紹介するコードは普通に作動します。

この転送コードを取得しただけで、人生がすこし、幸福になりました。

ACCESSへの転送コード　作成手順その1　転送する前の仕掛け

コードを音読する

ACCESS　IF構文から脱出

2019.11.9

IF構文の条件から抜ける こんにちは。伊川(@naonaoke)です。 今回は、条件から、抜ける方法を紹介します。 IF構文で作成した条件から抜けるということは、この段階では理解で...

条件が抜けることが重要ではなく、入力漏れをなくすることが重要です。

このひと手間加えることで、業務時間は驚くほど短縮されます。

セルB11は、契約番号を入力する場所です。

契約書番号は主キーに設定していますので、空白は許されません。

ACCESS　リレーション

2019.12.22

ACCESSを勉強する際に必須となる主キーについて解説します。 主キーとはなにか？主キーを理解するとなができるのか？ 主キーを使って応用する技をしょうかいします。 主キーを理解する...

このコードで、業務時間が40％されたと統計が出ています。（当社比：嘘ですけど）

また、本日の日時は、必ず入力します。

日時がないデータベースは、クリープを入れないコーヒーと同じです。

ACCESSへの転送コード　作成手順その2　転送コード

変更するコード　その１

上の図の書き方を相対パスといいます。

相対パスのメリットは、このファルダのドライブを変更しても転送が可能ということです。

変更するコード　その２

ACCESSのフィールドとExcelのセルを一致させます。

この点を変更するだけで、みなさんの業務にチューニングできます。

余談

SCHOOL　OF　VBA　第二回目　Magboxの重要性について

2019.12.21

第二回　SCHOOL　OF　VBA　講義内容 こんにちは。伊川(@naonaoke)です。 今回は、MsgBoxの重要性について説明をします。 http://keiyu.xyz/2...

データ転送完了の文言は必ず表示させましょう。

すべてのコード

Sub ボタン3_Click()

Range("B20") = Date


If Range("B11").Value = "" Then
MsgBox "空白あり"
Exit Sub
End If






Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim conStr As String
    
conStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " _
& ActiveWorkbook.Path & "\在庫管理.accdb"


con.Open ConnectionString:=conStr
rs.Open Source:="MT_申込", ActiveConnection:=con, _
CursorType:=adOpenKeyset, LockType:=adLockOptimistic

With rs
.AddNew
.Fields("社員氏名").Value = Range("B2")
.Fields("社員ＩＤ").Value = Range("B3")
.Fields("契約日").Value = Range("B4")
.Fields("機種名").Value = Range("B5")
.Fields("ギガ数").Value = Range("B6")
.Fields("色").Value = Range("B7")
.Fields("端末価格").Value = Range("B8")
.Fields("商品ＩＤ").Value = Range("B9")
.Fields("キャンペーン").Value = Range("B10")
.Fields("契約書番号").Value = Range("B11")
.Fields("顧客名字").Value = Range("B12")
.Fields("顧客氏名").Value = Range("B13")
.Fields("顧客郵便番号").Value = Range("B14")
.Fields("顧客都道府県").Value = Range("B15")
.Fields("顧客住所").Value = Range("B16")
.Fields("顧客電話番号").Value = Range("B17")
.Fields("顧客生年月日").Value = Range("B18")
.Fields("備考").Value = Range("B19")
.Fields("入力日").Value = Range("B20")



.Update

End With
rs.Close
con.Close

MsgBox "データ転送完了"

End Sub

ここがポイント

ここがポイント

動画の中では、二重転送が起きた際のエラーも表示しています。主キーが設定されていれば、重複しません。ACCESSは優秀です。

まとめ

今回は、転送コードを紹介しただけです。

次回は、転送コードを解説します。

今回のサンプルファイルは、ありません。

毎日の業務が、3時間短縮できます

わからない事を延々と考えるのは、無駄です。

• なんで作動かないの？
• もうやだ！VBAなんか嫌い！
• ネットで調べても情報がない！

必ず作動するコードが、ここにあります。

サンプルファイルの概要、個別コンサルの概要にについて

Related posts:

レースIDを作成する知識を仕事に活かす Excel　VBA　半角スベース、全角スペースを削除 ACCESSとExcelの連携　在庫管理　その9 ACCESSとExcelの連携　ACCESSで管理　Excelで分析　その5