ACCESS　生年月日を計算する　DateDiffを利用する

正確な生年月日を入力する

こんにちは。伊川(@naonaoke)です。

顧客情報を登録するときに、必須なのが、生年月日です。

入力ミスをしやすい項目でもあります。

また、名前と生年月日で本人確認をしたりしますので、間違えると、後々大変です。

問題提起

解決策

回答

・生年月日登録専用の入力フォームを作成する。・手入力をさせないようにする。

DateDiff関数

2つの日時の間隔を返します。

間隔とは日時1と日時2の間に指定した単位の「カウントの基準」が何回あるかを表す数です。

日時1と「カウントの基準」が一致する場合、日時1はカウントの対象になりません。

生年月日は、生まれた日から、今日までの日なので、DateDiff関数を使って求めます。

しかし、生年月日が正しく入力される必要があります。

生年月日入力フォーム　作成手順その1　事前に作成するもの

生年月日の入力は、コンボボックスで選択させるようにします。

Excel　VBA　ボタンが消える　ボタンを押せない

2019.10.25

究極の条件判定 こんにちは。伊川(@naonaoke)です。 IF構文、Select Case構文など、このブログで紹介してきました。 今回は、条件判定の構文を使わない条件判定の方...

テキストボックスをグレイアウトさせる方法は、上の記事を確認してください。

「生年月日入力」のボタンには、別フォームを起動するために、下記のコードを仕込んでおきます。

Private Sub コマンド10_Click()

DoCmd.OpenForm “F_年号変換”

End Sub

【ACCESS　VBA】やればできる！メインフォームで差をつける

2019.9.10

　 ACCESS　やればできる！メインフォームで差をつける   こんにちは。伊川(@naonaoke)です。 ACCESSSを始めたころは、何も分からずデータの羅列を眺めているだけ...

フォームの起動のVBAのコードに関しては、上の記事を参照してください。

入力専用フォームも作成しておきます。

もう少し、小さめのフォームを設計しようと思ったのですが、通常のフォームで作成しました。

ここまでが、下準備になります。

生年月日入力フォーム　作成手順その2　コードを仕込む

クリアするコード

Private Sub コマンド97_Click()
Forms![F_入力]![生年月日] = ""
End Sub

Private Sub コマンド94_Click()

Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String

a = "西暦"
b = "大正"
c = "昭和"
d = "平成"
e = "令和"

Select Case True

Case [年号] = a
Me.[変換] = Me.[年] & "/" & Me.[月] & "/" & Me.[日]

Case [年号] = b
Me.[変換] = (Me.[年] + 1911) & "/" & Me.[月] & "/" & Me.[日]

Case [年号] = c
Me.[変換] = (Me.[年] + 1925) & "/" & Me.[月] & "/" & Me.[日]

Case [年号] = d
Me.[変換] = (Me.[年] + 1988) & "/" & Me.[月] & "/" & Me.[日]

Case [年号] = e
Me.[変換] = (Me.[年] + 2018) & "/" & Me.[月] & "/" & Me.[日]

End Select

Me.[変換] = Format([変換], "gggee\年m\月d\日")


Forms![F_入力]![生年月日].Enabled = True
Forms![F_入力]![生年月日] = Me.[変換]
Forms![F_入力]![生年月日].Enabled = False



Me.[年号] = ""
Me.[年] = ""
Me.[月] = ""
Me.[日] = ""
Me.[変換] = ""
DoCmd.Close acForm, "F_年号変換"
End Sub

Excel VBA　複数の条件判定　SelectCase

2019.10.4

条件判定　Select Case こんにちは。伊川です。今回は、Select Caseについて解説します。条件判定で、処理が複数になる場合は、 Select Caseを利用するのが...

Select Caseについて不安な方は、上の記事を参考にしてください。

生年月日入力フォーム　作成手順その3　コードの作動を確認する

作動が確認できました。

後は、クエリで生年月日を計算すれば、大丈夫です。

生年月日を計算するSQL文

年齢: IIf(Format([西暦],"mm/dd")>Format(Date(),"mm/dd"),DateDiff("yyyy",[西暦],Date())-1,DateDiff("yyyy",[西暦],Date()))

ここがポイント

ここがポイント

今回は、伊川がVBAのコードを記載した初期のころです。公開するのも恥ずかしいくらいのコードです。しかし、人にばかにされようとも、VBAは、成果物の積み重ねでスキルが向上します。

まとめ

今回のまとめ

今回は、阿久　世子男（アク　セスオ）が自分でコードを記載して作動することができました。いつかは、かっこいいコードを記載しようと思う阿久　世子男（アク　セスオ）なのでした。

今回のサンプルファイルは、No72です。

毎日の業務が、3時間短縮できます

わからない事を延々と考えるのは、無駄です。

• なんで作動かないの？
• もうやだ！VBAなんか嫌い！
• ネットで調べても情報がない！

必ず作動するコードが、ここにあります。

サンプルファイルの概要、個別コンサルの概要にについて

Related posts:

【ACCESS　VBA】年賀状作成にはACCESSの標準機能を使う！ 【ACCESS　VBA】ACCESSを理解すれば連想配列なてわずか5秒 【ACCESS　クエリ】年代別の集計はどうやる？ 【ACCESS　VBA】VBAでSQLを実行するには、公式を覚えることだ