小樽 天狗山から朝の写真です

目次へ

別のフォームのレコードを検索 DoCmd.FindRecord

Forms!フォーム名1.SetFocus '検索対象フォーム
DoCmd.FindRecord Forms!フォーム名2!フィールド名1, acAnywhere, , acSearchAll, , acAll '検索条件があるフォーム名とフィールド名
DoCmd.FindRecord Forms!フォーム名2!フィールド名2, acAnywhere, , acSearchAll, , acAll '検索条件があるフォーム名とフィールド名　

フォーム名1とフォーム名2の検索対象のフィールド名は一致していなければなりません

絞り込みではありません

目次へ

小樽 天狗山からの朝日です

最後は前日の雲海の写真です



目次へ

インプットボックスで指定した期間を計算して日付を入力

インプットボックスで指定した期間を計算して日付を入力

Dim 期間自, 期間至, 期間年
Public Sub 期間計算()
期間自 = Cells(行番号, 列番号)'元の日付が入力されているセル
期間年 = InputBox("年数", "契約期間", 3)'デフォルトで３年
期間至 = DateAdd("yyyy", 期間年, 期間自)
期間至 = DateAdd("d", -1, 期間至)'１日引く
Cells(行番号, 列番号) = 期間至'結果を入力するセル
End Sub

目次へ

小樽 天狗山 山頂の 雲海

天狗山山頂の朝の風景です














天狗山のパワースポットです







目次へ