access2000の作法 その39

概要

access2000の作法、調べてみた。
練習問題やってみた。

練習問題

湯婆婆を実装せよ。

湯婆婆フォームを作る手順。

• 作成>フォームデザインを右クリック。
• ラベルを設置

契約書                                                                
		甲は油屋当主として、乙を油屋に雇用することを契約し、
		労働に伴う対価の支払いを右の通り、約定する。
		なお、一日の労働の対価は金百円とする。                    
		甲　油屋当主　湯婆婆
		
		乙

• テキストボックスを設置
• ボタンを設置
• ウィザードが開く キャンセル
• プロパティシートを開く
• イベントを開く
• クリック時、コードビルダーを開く

Private Sub コマンド4_Click()
    Dim name As String
    name = テキスト0.Value
    Dim str As String
    str = "契約書だよ。そこに名前を書きな。" & vbCrLf
    str = str & "フーン。" & name & "というのかい。贅沢な名だね。" & vbCrLf
    Dim newName As String
    newName = Mid(name, Rnd() * (Len(name) - 1) + 1, 1)
    str = str & "今からお前の名は" & newName & "だ。いいかい、" & newName & "だよ。分かったら返事をするんだ、" & newName & "!!"
    MsgBox str
    
End Sub

• フォームを閉じる
• 保存する

以上。