営業所マスタの作成、７回目です。
５コースの最終となります。
では、はじめましょう。
-------------------------------------------------------------------
今回は、表示させた問い合わせから営業所マスタメンテナンスに
データを移行させる処理とボタンの解説となります。
営業所コード、営業所名、住所１の各項目に共通する処理となります。
営業所コードで解説します。
マウスを使う場合は、項目上でダブルクリックします。
キーボードでは、押したボタンで処理をします。
1.マウスをダブルクリックした処理
Sub 営業所名_DblClickを作成します。
Private Sub 営業所名_DblClick(Cancel As Integer)
On Error GoTo Err_営業所名_DblClick
If IsNull([営業所コード]) Or Trim([営業所コード]) & "" = "" Then
Exit Sub
End If
p_eigyocd = [営業所コード]
'◎ポイント解説 1 -----*-----*-----*-----
Forms(form_modoriname).Controls(form_modoricontrols_name_1)
= _
Format$(p_eigyocd, "00")
'◎ポイント解説 2 -----*-----*-----*-----
Forms(form_modoriname).Controls( _
form_modoricontrols_name_setfocus).SetFocus
DoCmd.Close
DoCmd.OpenForm form_modoriname
Exit_営業所名_DblClick:
Exit Sub
Err_営業所名_DblClick:
MsgBox "エラーナンバー " & Err.Number & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
Resume Exit_営業所名_DblClick
1-1.◎ポイント解説 1 について
問い合せ画面で選択した営業所コードを営業所マスタメンテナンス
の営業所コードへに送る処理です。
form_modoriname = "営業所マスタメンテナンス"
form_modoricontrols_name_1 = "営業所コード"
それぞれの項目が入っています。
フォーム名を定数にいれてる場合は”.Controls”という
使い方をします。
そのフォームの項目である営業所コードに送ります。
その際、コードは2桁ですから Format$(p_eigyocd, "00") で
フォーマットしています。
1-2.◎ポイント解説 2 について
form_modoricontrols_name_setfocus = "営業所コード"
が入っています。
戻りフォームにセットフォーカスしている処理です。
もちろん、営業所マスタメンテナンスの営業所コードです。
自分自身（問い合せ画面）をクローズして営業所マスタメンテナンス
をオープンします。
-------------------------------------------------------------------
2.キーボードを押した場合の処理です。
Sub 営業所名_KeyDownを作成します。
この処理は、営業所名_DblClickとほぼ同じです。
違うのは、KeyCode<>123 は、F12でなければということです。
F12キー以外で営業所コードはスペースかNullでなければ
処理を行います。
On Error GoTo Err_営業所名_KeyDown
If KeyCode <> 123 Then
Exit Sub
End If
If IsNull([営業所コード]) Or Trim([営業所コード]) & "" = "" Then
Exit Sub
End If
p_eigyocd = [営業所コード]
Forms(form_modoriname).Controls(form_modoricontrols_name_1)
= _
Format$(p_eigyocd, "00")
Forms(form_modoriname).Controls( _
form_modoricontrols_name_setfocus).SetFocus
DoCmd.Close
DoCmd.OpenForm form_modoriname
Exit_営業所名_KeyDown:
Exit Sub
Err_営業所名_KeyDown:
MsgBox "エラーナンバー " & Err.Number & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
Resume Exit_営業所名_KeyDown
-*-------*-------*-------*-------*-------*-------*-------*-------*-
3.五十音のボタンについて
”あ”〜”ん”などのボタンを作りました。
各ボタン共通です。
mojiの部分に送ることばが違うだけです。
”あ”のボタンを作ります。
3-1.btnあ_Clickについて
moji = "あ"
ひらがな処理
-------------------------------------------------------------------
3-2.ひらがな処理について
If Trim(moji) = "あ" Then
[カナ名] = [カナ名] & "ア"
GoTo job99
End If
If Trim(moji) = "い" Then
カナ名 = カナ名 & "イ"
GoTo job99
End If
「省略」
If Trim(moji) = "ー" Then
カナ名 = カナ名 & "ー"
GoTo job99
End If
job99:
Call 検索処理
＊注意
メルマガでは、半角カタカナは不正文字となりますので
全角文字で解説します。
カナ名に入る文字は半角カタカナとなります。
"あ"の場合、[カナ名]に [カナ名] & "ア" を送ります。
その後、job99に飛んでCall 検索処理を行います。
-------------------------------------------------------------------
4.btn1字消去について
カナ名（テキストボックス）項目を１文字を消去する
ボタンの処理です。
btn1字消去_Click()を作成します。
If IsNull([カナ名]) Or Trim([カナ名]) & "" = "" Then
mojisu = Int(0)
Else
mojisu = Len([カナ名])
End If
If mojisu <= Int(1) Then
[カナ名] = ""
Set Me.Recordset = Nothing
Me![営業所コード].ControlSource = ""
Me![営業所名].ControlSource = ""
Me![住所1].ControlSource = ""
カナ名.SetFocus
Exit Sub
End If
If mojisu >= Int(2) Then
[カナ名] = Left([カナ名], mojisu - Int(1))
Call 検索処理
Exit Sub
End If
カナ名.SetFocus
営業所コードに入力されているカナを１文字削除する処理です。
-------------------------------------------------------------------
5.btn全消去について
カナ名（テキストボックス）項目をすべて消去するボタンの処理です。
btn全消去_Click()を作成します。
カナ名 = ""
Set Me.Recordset = Nothing
Me![営業所コード].ControlSource = ""
Me![営業所名].ControlSource = ""
Me![住所1].ControlSource = ""
カナ名.SetFocus
このボタンは営業所コードに入力された文字をすべてクリアする
処理です
-------------------------------------------------------------------
6.btn全表示について
カナ名（テキストボックス）項目に入力せず、すべてデータを表示
させるボタンの処理です。
btn全表示_Click()を作成します。
Set rs = New ADODB.Recordset
SqlStr = ""
SqlStr = "select 営業所コード,営業所名,住所１ from 営業所マスタ"
SqlStr = SqlStr & " order by 営業所マスタ.カナ名,
営業所マスタ.営業所コード"
rs.Open SqlStr, cn, adOpenStatic
If rs.BOF Then
Set Me.Recordset = Nothing
Me![営業所コード].ControlSource = ""
Me![営業所名].ControlSource = ""
Me![住所1].ControlSource = ""
Else
Set Me.Recordset = rs
Me![営業所コード].ControlSource = rs![営業所コード].name
Me![営業所名].ControlSource = rs![営業所名].name
Me![住所1].ControlSource = rs![住所1].name
End If
rs.Close
Set rs = Nothing
この処理は、登録されているすべてのデータを画面に表示させます。
SQL文にwhereがないのですべてのデータが現れます。
-------------------------------------------------------------------
7.btn終了について
処理を終了してここでは、営業所マスタメンテナンスに戻る
ボタンの処理です。
btn終了_Click()を作成します。
On Error GoTo Err_btn終了_Click
DoCmd.Close
DoCmd.OpenForm form_modoriname
Exit_btn終了_Click:
Exit Sub
Err_btn終了_Click:
MsgBox "エラーナンバー " & Err.Number & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
Resume Exit_btn終了_Click
問い合わせ画面を終了することは、元の画面に戻るということです。
つまり、営業所マスタメンテナンスに戻るわけです。
これで両画面でのデータの受け渡しができました。
どうでしたか？
解ればそう大したことはありませんよね。
使ってみてください。
これでもう、問い合わせは簡単にできます。
第５コースはこれで終了です。
次回から第６コースの始まります、ご期待ください。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
自己流で独習するには効率がよくないものです、だからここで学びませんか
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|