絞り込み条件を変更する
検索条件を絞り込む

すべてのカテゴリ

8 件中 1 - 8 件表示
カバー画像

Access学習メモ 3-7. コンボボックス乗り越えたい②

コンボボックスには「表示専用」パターンと「編集/保存」パターンがある目的はⅠ.値集合ソースの参照(レコードの表示)なのか   Ⅱ.値集合ソースの代入(レコードの上書き保存)なのか【例】図書館の利用者登録フォーム利用者の初回利用登録日に応じて利用期限を算出する必要があるためクエリに計算式を持たせ、フォームのレコードソースはクエリとしているⅠ. 照合が目的のフォーム     コンボボックスは、値集合ソースの参照(レコードの表示)のみレコードソースはクエリのまま各テキストボックスのコントロールソースに直接、column関数を書き込む利用者名∇=[cmb利用者].Column(1)誕生日∇=[cmb利用者].Column(2)住所∇=[cmb利用者].Column(3)登録日∇=[cmb利用者].Column(4)利用期限∇=[cmb利用者].Column(5)Ⅱ. 登録変更および新規登録が目的のフォームコンボボックスは、値集合ソースの代入(レコードの上書き保存)使用レコードソースをクエリからマスタテーブルに変更し各テキストボックスのコントロールソースからcolumn関数を消去テキストボックスがテーブルの項目と直接つながる(連結)必要があるため値集合ソースから選択した各フィールド名を各コントロールソースにセット※VBAが実行されれば、クエリを通じテーブルのレコードに計算結果が反映更新後処理の[イベント プロシージャ]にcolumn関数をVBA形式にて記入∇Private Sub cmb利用者_AfterUpdate()     Me!利用者名 = Me!cmb利用者.Column(1)
0
カバー画像

Access学習メモ 3-8. コンボボックス乗り越えたい③

【例】図書館の利用者登録フォーム学習メモ3-7では利用者の初回利用登録日に応じ、利用期限を算出した。しかし実際には運転免許等と同様、利用者の生年月日を基準に「初回登録年の○年後の誕生日まで」と定めているケースもある。実務上、個人情報が掲載されたテーブルと、その他の登録情報テーブルとは分けて管理したほうが望ましいケースもある。そこで、「利用者マスタ」テーブルの内、個人情報を利用者マスタに残し、図書館利用情報を示す「登録日」と「利用期限」を「図書利用券マスタ」として利用者マスタから切り離してみることを思いついた。両テーブルはクエリで結合させ、利用期限を算出し、フォームのレコードソースとすれば問題ないと考えた。利用期限は登録年の3年後の誕生日まで利用期限: DateSerial(Year([登録日]) + 3, Month([誕生日]), Day([誕生日]))しかし、さすがはガンコ爺Access(言い方!)テーブルを切り分けた以外はゆうべとまったく同じ設計なのに、微動だにしないではないか!!わたし遅くとも1時には寝たいのよ(੭ु(;・∀・))੭ु⁾⁾「連結列」:デフォルトは1だが、ソースであるクエリ構成上「図書利用券ID」が1列目。利用者IDの列を基準とする場合、2列目なので「2」とする必要があったみたい。「column関数」:レコードソースが変更され列数が変わったため、調整する必要がある。利用者名∇=[cmb利用者].Column(2)誕生日∇=[cmb利用者].Column(3)住所∇=[cmb利用者].Column(4)登録日∇=[cmb利用者].Column(5)利用期限∇
0
カバー画像

【Excel VBA】コンボボックスの作成は今すぐ禁止

YoTubeでも解説しています。ぜひ、ご覧ください。Excelの初心者の頃は、何かとコンボボックスを作成したくなります。 次に、連動のコンボボックスですね。 しかし、凝りすぎると、コンボボックスは不便です。 【Excel VBA】コンボボックスの作成は今すぐ禁止こんにちは。伊川です。 Excelの初心者の頃は、何かとコンボボックスを作成したくなります。 次に、連動のコンボボックスですね。 しかし、凝りすぎると、コンボボックスは不便です。 今回は、コンボボックスに変わる方法を紹介します。 以前に、連動のコンボボックスの作成は、下記の記事で紹介しています。 参考にしてください。 連動コンボボックス作成には、様々な方法があります。 INDIRECT関数を利用する方法はやめた方がいいです。 これは、経験談です。 業者とかに、システムを発注しても、平気で、長いコンボボックスを作成してくるときがあります。 はっきり言いますが、こんなコンボボックスは、迷惑のなにものでもありません。 だから、社内システムは、処理を、知っている人が一番です。 このブログはこんな人にお勧めコンボボックスが、不便と思っている人 連動のコンボボックスを作成したいと思っている人 コンボボックスを最強と思っている人 このブログを、読み終わるころには・・・・コンボボックスのリストは、せいぜい、5行までです。 私は、競馬をしていますが、競馬場の選択は、10行あります。 10行の中から、選択するのは、本当に不便です。 発送の転換と、少しの配列の知識で、作成可能です。 連動のコンボボックスに変わる手段個人的な意見ですが、連動のコ
0
カバー画像

Access学習メモ 3-11. メイン&サブ&コンボ

*°˖✧ゴジ図書館の貸出入力簿✧˖°*なるべくラクに簡単に、最低限の機能だけ備えた設計を目指していて、なのにいつもめちゃ時間も気力も消耗してるけど、なんとか形にできた。メインもサブもコンボボックスもすべて揃えた。貸出日の14日後が返却期限:DateAdd("d",14,[貸出日]) 〃 の1ヶ月後が返却期限:DateAdd("m",1,[貸出日])図書館を利用できるか利用可否: IIf([利用期限]<[貸出日],"利用不可","利用可能")貸出後の返却がなされているか返却状況:IIf(IsNull([返却日]),"未返却","返却済")本は貸出可能か貸出可否: IIf(IsNull([返却日]), "要確認", "貸出可能")
0
カバー画像

Access学習メモ 3-6. コンボボックス乗り越えたい①

MicrosoftAccessを用いたデータベース作りの学習記録です既存データ検索フォームと、新規データ入力用フォームを同一ページ上に...メインフォームにコンボボックスを置き、新規入力はサブフォームでおこなわせる構成を組んだ。コンボボックスに謎が多すぎて前に進めず...一覧化して情報を整理。1年前から同じことで同じように悩み続ける自分。Accessは向いていないと実感する瞬間。
0
カバー画像

Access学習メモ 3-13. あいまい検索/コンボ検索 共演

Accessを使って実装できる検索機能なら、コンボボックスより断然、あいまい検索が好き検索窓に任意の文字を打ち込んで候補を探す、昔から馴染み深い検索方法だしいかにも「システム」って感じでワクワクするコンボボックスも便利だけど、図書館クラスの膨大な所蔵資料を一覧で追うのは現実的じゃないし素人の見よう見まねでも、せっかくシステム作りに取り組むのであれば、実用的にしないとねPrivate Sub Cmd_検索_Click()    Me.Filter = "書名 Like '*" & Me.書名検索 & "*'"    Me.FilterOn = TrueEnd Subこんな感じで「あいまい検索」を実装してみたものの、単票フォームだと直感的に次作品(書籍)にたどり着けず、手ごたえイマイチ貸出入力フォームを書籍ごとに分類させることを主目的に、フォームを組んでいるのでほかの様式は選べないし「コンボボックス」なら検出した候補を一覧化できるよねさらに、リスト窓から目当ての入力ページに飛べるようにしたらAccessに慣れないユーザーさんでも直感的に操作できて便利かもそんなわけで、あいまい検索(検索窓)とコンボボックス(検索結果)を協働させてみた注意点検索用テキストボックスと別に、コンボボックスを用意する必要があるプロパティシート上でコンボボックス用の書式設定を行っておくあいまい検索(検索窓『書名検索』テキストボックス)「このフォーム(Me)に表示された112冊の書籍データの中から、検索窓に入力された文字(抽出条件)が含まれるデータのみ抽出する」*(アスタリスク):ワイルドカード
0
カバー画像

Access学習メモ 3-10. コンボボックス乗り越えたい④

誰も教えてくれなかった...1年かけて勉強してきたのかけた費用は10万円ほど(+2年ローンで購入したNECのLAVIEフェアリーパープルちゃん30万円弱 笑)「フォームはひとつのテーブルからしか作れない」という事実に今さらがく然そんな大切なことなぜ今まで誰からも明かされることがなかったのだろう世界の常識だから?知らない私がバカなんだろうな情けない限り*°˖✧˖ゴジ図書館 利用者登録フォーム作り˖✧˖°*3-9.でリレーションシップによる衝突は避けられるようになったが、新規情報を登録しようとすると同じエラーメッセージが出る。親子リンクを解除しても、メイン(利用者検索用)とサブ(新規登録用)の参照先(レコードソース)が同じクエリであることから、結局は競合してしまうのだろう。そこで、サブ(新規登録用)のレコードソースをクエリからマスタテーブルへ切り替えてみたが、今度は「レコードの追加や編集ができないから、双方を親子リンクさせてくれ」と苦情が出る。また、1フォーム1テーブルの課題がある。~修正(੭ु;・∀・)੭ु⁾⁾~1.サブフォームの各コントロールをメインフォームに集約し、サブを撤去2.クエリで結合させていた「利用者マスタ」と「図書利用券マスタ」を「利用者マスタ」に一本化し、メインのレコードソースとする3.コンボボックスの値集合ソースをテーブルに変更4.テーブル改編による列数変更に伴い、コンボボックス(書式)の列数および列幅の見直し5.テーブル改編による列数変更に伴い、コンボボックス(データ)の連結列を[1]に戻す6.テーブル改編による列数変更に伴い、各コントロールのcolumn関数
0
カバー画像

Access学習メモ 2-4.「株式会社」等を省いた並び替え

選択クエリのデザイングリッド「フィールド」にReplace関数を入力→「昇順」で並び替えReplace関数クエリ実行後のフィールド名:Replace([Replace対象となるフィールド名],Replace前の文字列,Replace後の文字列)※Replace関数の基本構造は Replace(文字列,検索文字列,置換文字列)Replace関数「:」の左に来るフィールド名は、クエリ実行後に設定されるフィールド名となる。クエリ実行前の元フィールド名と同じにはできない(循環参照)ので注意。元フィールド名としてテーブル設定済の名称は、Replace()内の「文字列」すなわち「Replace対象となるフィールド名」の位置へ[]で囲んで記入。Replace前の文字列として、省略したい文字列を""で囲んで記入。フリガナから一定の文字を省くための関数なので、Replace後の文字列は""のみとする。この場合の""のことは「長さ0の文字列」と表現される。例1:キャクメイ列のカブシキガイシャ文字列を除いた顧客フリガナを、「フリガナ」フィールドとして誕生させるフリガナ:Replace([コキャクメイ],"カブシキガイシャ","")例2:「株式会社」だけでなく「有限会社」「合同会社」「協同組合」など複数名称を省略対象とするフリガナ: Replace(Replace(Replace(Replace([コキャクメイ],"カブシキガイシャ",""),"ユウゲンガイシャ",""),"ゴウドウガイシャ",""),"キョウドウクミアイ","")例2では、省略したい名称の数だけReplace()で包む動作を繰り返す
0
8 件中 1 - 8