|
全て
| カテゴリ未分類
| パソコン一般
| 読んだ本(ミステリ・日本)
| 英語の読書
| Access・Wordなど
| 読んだ本(ミステリ・海外)
| HP・ブロク・ブラウザ・スパイウェアなど
| TV・映画・コミックスなど
| 読んだ本(その他・海外)
| 読んだ本(時代)
| 北森鴻
| 京極夏彦
| 連続テレビドラマ
| 高田崇史
| 森博嗣
| 綾辻行人
| 定期スキャン
| ジャポニカロゴス
| 読んだ本(その他・日本)
| ネプリーグ
テーマ:私のPC生活(7386)
カテゴリ:Access・Wordなど
フォームが単票形式(1画面に1日分だけ表示)であることは,しかたないとして,このままでは,「以前書いた日記」を参照するのに不便だ。
テーマやカテゴリと同じようなコンボボックスを作って,そこに日付を表示し,その日付のレコードに移動できるようにしてもよいが,「日付」だけでは,そこに何が書いてあるかわからない。 そこで,「日付」「タイトル」「テーマ」「カテゴリ」を並べた帳票形式(表形式)のフォームを作り,「タイトル」をダブルクリックすると,その日の「日記」が表示されるような仕掛けを作ることにした。 下が,作成した「日記一覧」フォームだが,その中には可視プロパティを「いいえ」にした「日記ID」フィールドが入っている(日記フォームのほうも同様)。 次に,「日記」フォームにコマンドボタンを作り,クリックするとその日の日記を含んだ「日記一覧」フォームが開くように設定。 Private Sub 一覧_Click() DoCmd.OpenForm "日記一覧" Set myForm = Forms("日記一覧") With myForm Set myRS = .RecordsetClone myRS.FindFirst "日記ID = " & Me.日記ID .Bookmark = myRS.Bookmark End With End Sub *変数myFormとmyRSは標準モジュールでDim宣言している。 日記一覧フォームのほうでは,「タイトル」をダブルクリックすると,その日の「日記」フォームが開くようにした。 Private Sub タイトル_DblClick(Cancel As Integer) DoCmd.OpenForm "日記" Set myForm = Forms("日記") If Not IsNull(Me.ActiveControl) Then With myForm Set myRS = .RecordsetClone myRS.FindFirst "日記ID = " & Me.日記ID .Bookmark = myRS.Bookmark End With End If End Sub これで,ほぼ使えるような形になった。 お気に入りの記事を「いいね!」で応援しよう
Last updated
2005/02/13 09:51:07 PM
[Access・Wordなど] カテゴリの最新記事
|
|