Excelが大好きだ!スマートフォン用の表示で見るExcelが大好きだ!Excel大好き経理マンがExcelの事を書き綴っていきます。SQLite前回は入力フォームに設置しているテキストボックス等の設定を確認した。www.excellovers.com今回はユーザーフォームに設定しているコードを確認していく。入力項目を選択制にする今回のコードはいずれもユーザーフォームに記載しています。SubUserForm_Initializeはユーザーフォームを起動した時に実行されます。その特性からユーザーフォームの初期値の設定を行う際に利用されます。上記ではいずれもComboboxの内容を設定しています。以下4つとも全てユーザーフォームへ記載してください。"カテゴリ・タイトル・アーティスト欄に入力漏れがあります。"あるいは購入日付に不備があります。Subユーザーフォーム上に唯一設置しているコマンドボタンを押すと作動します。1『InsertDataCheck』関数で入力漏れがないか確認しています。入力漏れがあった場合falseを返します。Not演算子で返り値のTrue・falseを反転させていますので、返り値がfalseの時にIF文にマッチします。2入力漏れがなかった場合『DataInsert』を実行します。データベースへのデータ挿入を行います。3入力後のユーザーフォームから値を消去して初期状態にします。Function14つのコンボボックスの内、カテゴリ以外の内容が未選択の場合、規定の値を設定します。2ユーザーフォーム上のコントロールをループ処理で全てチェック。購入日付が日付形式でない場合に『InsertDataCheck』関数はfalseを返します。SubSQLのInsert分に関してはこちら。一点気をつけないといけないのは購入日。SQLite3には日付時刻の型は無いため文字列として扱います。その際に『yyyy-mm-dd』という書式にしておくと、文字列なのですが日付型のように扱うことが出来ます。qiita.comそのため取込時にFormat関数を使用して書式をyyyy-mm-ddに変換しています。Sub値を消すコントロールをタブオーダーの番号で判定しています。ラベル以外の入力項目の値をクリアする処理になっています。まとめ今回で新しくデータを入力するフォーマットが整いました。次回は入力したCD・本データを検索するユーザーフォームを作成したいと思います。(1)月別アーカイブはてなブログをはじめよう!ExcelLoverさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。