「入金検索」

「支払検索」

「仕入検索」

「発注検索」

「売上検索」

「受注検索」

「見積検索」

「支払入力」

「入金入力」

「仕入入力」

「発注入力」

「売上入力」

「受注入力」

「見積入力」

「見積入力」 画面サンプル 実際の処理を作るのに飽きてしまったので、全画面のサンプルだけ、先に作ってしまおう。 各商品の原価を表示し、合計の粗利額・粗利率も表示したい。

「見積一覧」 検索結果表示例 [新規][変更][複写][削除][照会]ボタンで、「見積入力」画面へ。 [受注]ボタンで、「受注入力」画面へ。 各「見積」が受注済みかどうかの表示を追加したい。

「見積一覧」 検索結果表示処理 ■ frmList 00635 '一覧表示 00636 Private Sub cmdSearch_Click() 00637 If Not InputCheck(cmdSearch) Then Exit Sub 00638 00639 '明細部 クリア 00640 ClearDetail 00641 00642 'クエリー文字列を編集 00643 Dim Sql As St…

「見積一覧」 入力チェック ■ frmList 00408 '入力値が妥当か？ 00409 Private Function InputCheck(aControl As MSForms.Control) As Boolean 00410 InputCheck = False 00411 00412 If aControl Is txtDateMin Then 00413 InputCheck = InputCheckDate(txt…

「見積一覧」 フォーカス制御 ■ frmList 00302 '[Enter] による フォーカス制御 00303 Private Sub txtDateMin_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 00304 Call TextKeyDown(KeyCode, Shift) 00305 End Sub 00306 Priv…

「見積一覧」 入力画面 表示 ■ frmList 00284 '入力画面を表示 00285 Private Sub cmdAppend_Click() 00286 modMain.Mode = "新規" 00287 modMain.Main 00288 End Sub 00289 Private Sub cmdUpdate_Click() 00290 modMain.Mode = "変更" 00291 modMain.Main …

「見積一覧」 終了処理 ■ frmList 00277 '終了 00278 Private Sub cmdExit_Click() 00279 If MsgBox("終了します。", vbOKCancel Or vbInformation, "確認") = vbOK Then 00280 Unload Me 00281 End If 00282 End Sub

「見積一覧」 画面クリア ■ frmList 00135 '表示 00136 Private Sub UserForm_Activate() 00137 '画面 初期化 00138 ClearScreen 00139 00140 '選択状態にならないので... 00141 txtDateMin.SelStart = 0 00142 txtDateMin.SelLength = txtDateMin.TextLengt…

「見積一覧」 変数定義 ■ frmList 00001 Option Explicit 00002 00003 Private Const ROW_NUM As Integer = 12 00004 00005 Public WithEvents txtDateMin As MSForms.TextBox 00006 Public WithEvents txtDateMax As MSForms.TextBox 00007 Public WithEven…

「見積一覧」 ボタン部 初期化 ■ modList 00448 'ボタン部 初期化 00449 Private Sub CreateButton(objForm As frmList, ByRef iTop As Integer) 00450 iTop = iTop + MARGIN 00451 00452 Const BUTTON_WIDTH As Integer = 66 '適当に調整する 00453 Const B…

「見積一覧」 明細部 初期化 ■ modList 00207 '明細部 初期化 00208 Private Sub CreateDetail(objForm As frmList, ByRef iTop As Integer) 00209 00210 'パネル 00211 Dim pnlDetail As MSForms.Label 00212 Set pnlDetail = objForm.Controls.Add("Forms.…

「見積一覧」 ヘッダ部 初期化 ■ modList 00035 'ヘッダ部 初期化 00036 Private Sub CreateHeader(objForm As frmList, ByRef iTop As Integer) 00037 00038 'パネル 00039 Dim pnlHeader As MSForms.Label 00040 Set pnlHeader = objForm.Controls.Add("Fo…

「見積一覧」の主処理 ■ modList 00001 Option Explicit 00002 00003 Private Const ROW_NUM As Integer = 13 00004 00005 Public Sub Main() 00006 Dim objForm As frmList: Set objForm = frmList 00007 With objForm 00008 .Caption = "見積検索" 00009 .…

「見積一覧」「見積入力」 定数の定義 一覧画面と入力画面の共通部分を、共通モジュール「modCommon」を作成し、移動。 ■ modCommon 00001 Option Explicit 00002 00003 'Public Const DEBUG_MODE As Boolean = True 00004 Public Const DEBUG_MODE As Boole…

「動的な画面作成時のイベント取得方法」の訂正 「動的な画面作成時のイベント取得方法」では、イベント処理用のクラスを、別に作成していたが、 そんなことをしなくても済むようです。■ フォームの呼び出し側 Public Sub Main() Set UserForm3.cmdExit = Us…

「見積入力」の画面構成 「一覧画面」で、検索条件を指定して、一覧表示後、 「新規」「変更」「複写」「削除」ボタンで、入力画面に移動する。 一覧画面 入力画面 「新規」「変更」「複写」「削除」ボタンを削除した。 また、数量に０を入力することで行削…