AccessのVBAでSQLのWEEKDAYNAME関数を使い曜日名を求める｜フォーム実行例

WEEKDAYでは定数を取得しましたが、WEEKDAYNAMEを使うと曜日名そののものを取得可能です。

2番目の引数にTRUEを指定すると、「金」のように返します。
FALSEを指定すると、「金曜日」のように曜日が付いて返します。

Home　

SQL Tips

サンプルソフト

■実行画面
ボタンをクリックすると、「名前」「生年月日」「生年月日の曜日と曜日の文字」「生年月日の曜日」が返ります。
曜日名を求めるフォーム

■実行結果
田山　由香： 1990/10/05 ：金曜日：金
大木　さわ： 1980/01/20 ：日曜日：日
本田　信二： 1985/12/18 ：水曜日：水

［コード］

Option Compare Database

'曜日名を求めるボタン
Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
        Me!テキスト1 = Null
    SQL = "SELECT 名前,生年月日,WEEKDAYNAME(WeekDay(生年月日),False),WEEKDAYNAME(WeekDay(生年月日),True) FROM M_社員マスター"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & "  ：  " & rs(1) & "  ：  " & rs(2) & "  ：  " & rs(3) & vbCrLf & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
    End Sub

サンプルソフトのダウンロード

Home　

SQL Tips