Microsoft Accessで生産管理システムを作ろう

ソースコードコース

　ソースコード付きのＡｃｃｅｓｓファイル（accdb）を販売しますので、自社に合わせた仕様にカスタマイズして ご使用願います。尚、ソースコードを使用したシステムは自社内のみで使用し、システムの再販は行わないで下さい。
　料金等については、メールの件名に”ソースコードコース”と明記しお問合せ願います。折り返しメールで連絡させて頂きます。

■サンプル（担当者マスタの追加モジュール）
Private Sub 追加処理()
　　Dim dbs As Database,strSQL As String
　　If Nz(Me!担当者名, "") = "" Then
　　　　Me!担当者名.SetFocus
　　　　MsgBox "担当者名が入力されていません。", vbExclamation
　　　　Exit Sub
　　End If
　　On Error GoTo Error_Handler
　　DoCmd.Hourglass True
　　Set dbs = CurrentDb
　　strSQL = "INSERT INTO T_担当者マスタ" & _
　　　　　　　　　　　　　　　　　"(担当者コード,担当者名" & _
　　　　　　　　　　　　　　　　　 ",備考,更新日時,更新担当者) " & _
　　　　　　　　　　　"VALUES('" & Me!担当者コード & "','" & Me!担当者名 & "'" & _
　　　　　　　　　　　　　　　　　",'" & Me!備考 & "',#" & Now & "#,'" & str更新担当者 & "');"
　　dbs.Execute strSQL, dbFailOnError
Exit_Sub:
　　Set dbs = Nothing
　　DoCmd.Hourglass False
　　Exit Sub
Error_Handler:
　　MsgBox Err.Description
　　Resume Exit_Sub
End Sub

コンサルティングコース

　当生産管理システムを元にして、御社の担当者がカスタマイズと運営が出来るように指導致します。Microsoft Accessの基本的な使い方についてはマスターした方が対象です。移動の関係から岩手県内に限定したサービスとさせて頂きます。
　料金等については、メールの件名に”コンサルティングコース”と明記しお問合せ願います。折り返しメールで連絡させて頂きます。