【毎日開催】
15記事にいいね!で1ポイント
10秒滞在
いいね! --/--
おめでとうございます!
ミッションを達成しました。
※「ポイントを獲得する」ボタンを押すと広告が表示されます。
x

まあぼの交差点

Keyword Search

▼キーワード検索

Freepage List

Comments

プロじゃないから恥ずかしくないもん@ 正統派美少女 正統派美少女正統派美少女正統派美少女正…
連絡お願いします@ 連絡お願いします 連絡お願いします連絡お願いします連絡お…
神待ち掲示板@ 神待ち掲示板 神待ち掲示板神待ち掲示板神待ち掲示板神…
ヒクヒクしちゃう@ ヒクヒクしちゃう ヒクヒクしちゃうヒクヒクしちゃうヒクヒ…
疼いちゃう@ 疼いちゃう 疼いちゃう疼いちゃう疼いちゃう疼いちゃ…
いいでしょ?@ いいでしょ? いいでしょ?いいでしょ?いいでしょ?い…
予定は決まりましたか?@ 予定は決まりましたか? 予定は決まりましたか?予定は決まりまし…
できれば年上が@ できれば年上が できれば年上ができれば年上ができれば年…
集結だよ@ 集結だよ 集結だよ集結だよ集結だよ集結だよ htt…
おさわりの導入@ おさわりの導入 おさわりの導入おさわりの導入おさわりの…
2005/02/13
XML
テーマ:私の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


PR

Category

Favorite Blog

『鬼怒川』有吉佐和子 New! ばあチャルさん

有為転変 静流2495さん
風雅 風雅1100さん
フォッカーといえば・… ベローソフさん
とりあえず知っとけ! Aokageさん
harumiffyのMiffy… harumiffyさん
日々のあぶく? kiyuさん
未定の予定~ラビ的… みっつ君さん
ちゃっちゃんの大冒険 ちゃっちゃん♪さん
fukusukeloverの日記 fukusukeloverさん

Recent Posts


© Rakuten Group, Inc.