前回に続き会社マスタメンテナンスの作成をします。
会社マスタメンテナンスの最終となります。
1、文字数について
各項目に文字のチェックをいれます。
これは、文字数のバイト数をこえていなか、Nullの許可をしているかなど
を調べます。
代表者名、会社名、郵便番号、住所1、住所2、電話番号、ＦＡＸ番号
振込先1、振込先2、振込先3のBeforeUpdateに入れます。
Private Sub 会社名_BeforeUpdate(Cancel As Integer)
p_moname = "会社名"
bolRet = 文字chk()
End Sub
-------------------------------------------------------------------
2、住所の項目で郵便番号の問い合わせを表示する。
2-1、項目の欄でダブルクリック時に表示
Private Sub 住所1_DblClick(Cancel As Integer)
On Error GoTo Err_住所1_DblClick
'戻りフォーム名退避
form_modoriname = "会社マスタメンテナンス"
'検索問い合せへ
stDocName = "郵便番号問い合せ"
'戻りフォーム名退避
form_modoricontrols_name_1 = "郵便番号"
'戻りフォーム名退避
form_modoricontrols_name_2 = "住所1"
'戻りフォームのセットフォーカス名退避
form_modoricontrols_name_setfocus = "住所1"
Me.Visible = False
DoCmd.OpenForm stDocName
Exit_住所1_DblClick:
Exit Sub
Err_住所1_DblClick:
MsgBox "エラーナンバー " & Err.Number & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
Resume Exit_住所1_DblClick
End Sub
2-1、ファンクションキー「F12」を押した時
Private Sub 住所1_KeyDown(KeyCode As Integer, Shift As
Integer)
On Error GoTo Err_住所1_KeyDown
'問い合せ画面へ{F12}
If KeyCode <> 123 Then
Exit Sub
End If
'戻りフォーム名退避
form_modoriname = "会社マスタメンテナンス"
'検索問い合せへ
stDocName = "郵便番号問い合せ"
'戻りフォーム名退避
form_modoricontrols_name_1 = "郵便番号"
'戻りフォーム名退避
form_modoricontrols_name_2 = "住所1"
'戻りフォームのセットフォーカス名退避
form_modoricontrols_name_setfocus = "住所1"
Me.Visible = False
DoCmd.OpenForm stDocName
Exit_住所1_KeyDown:
Exit Sub
Err_住所1_KeyDown:
MsgBox "エラーナンバー " & Err.Number & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
Resume Exit_住所1_KeyDown
End Sub
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
アクセスのハンドブックとして活用できるプログラミング作りをしています
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|