■実行Access画面
■大文字を小文字に変換したフォーム
■小文字を大文字に変換したフォーム
■ Access VBA 実行コード例
Option Compare Database
Option Explicit
Private Sub コマンド2_Click()
Dim s1 As String
If IsNull(Me!テキスト0) Then
Beep
Exit Sub
End If
s1 = StrConv(Me!テキスト0, vbLowerCase)
Me!テキスト0 = s1
End Sub
Private Sub コマンド3_Click()
Dim s1 As String
If IsNull(Me!テキスト0) Then
Beep
Exit Sub
End If
s1 = StrConv(Me!テキスト0, vbUpperCase)
Me!テキスト0 = s1
End Sub