担当者マスタの作成、7回目です。
早速、はじめましょう。
-------------------------------------------------------------------
今回は、表示させた問い合わせから担当者マスタメンテナンスに
データを移行させる処理とボタンの解説となります。
担当者コード、担当者名、営業所名の各項目に共通する処理と
なります。
担当者コードで解説します。
マウスを使う場合は、項目上でダブルクリックします。
キーボードでは、押したボタンで処理をします。
1.マウスをダブルクリックした処理
Sub 担当者コード_DblClickを作成します。
If IsNull([担当者コード]) Or Trim([担当者コード]) & "" = "" Then
Exit Sub
End If
p_tancd = [担当者コード]
'◎ポイント解説 1 -----*-----*-----*-----
'戻りフォームの担当者コードへ
Forms(form_modoriname).Controls(form_modoricontrols_name_1)
= _
Format$(p_tancd, "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でなければ
処理を行います。
If KeyCode <> 123 Then
Exit Sub
End If
If IsNull([担当者コード]) Or Trim([担当者コード]) & "" = "" Then
Exit Sub
End If
p_tancd = [担当者コード]
'戻りフォームの担当者コードへ
Forms(form_modoriname).Controls(form_modoricontrols_name_1)
= _
Format$(p_tancd, "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![営業所名].ControlSource = ""
カナ名.SetFocus
Exit Sub
End If
If mojisu >= Int(2) Then
[カナ名] = Left([カナ名], mojisu - Int(1))
'担当者マスタ読み込み
Call 検索処理
Exit Sub
End If
担当者コードに入力されているカナを１文字削除する処理です。
-------------------------------------------------------------------
5.btn全消去について
カナ名（テキストボックス）項目をすべて消去するボタンの処理です。
btn全消去_Click()を作成します。
カナ名 = ""
Set Me.Recordset = Nothing
Me![担当者コード].ControlSource = ""
Me![担当者名].ControlSource = ""
Me![営業所名].ControlSource = ""
カナ名.SetFocus
このボタンは担当者コードに入力された文字をすべてクリアする
処理です
-------------------------------------------------------------------
6.btn全表示について
カナ名（テキストボックス）項目に入力せず、すべてデータを表示
させるボタンの処理です。
btn全表示_Click()を作成します。
Set rs = New ADODB.Recordset
SqlStr = ""
SqlStr = "SELECT 担当者マスタ.担当者コード,
担当者マスタ.担当者名,営業所マスタ.営業所名 "
SqlStr = SqlStr & " FROM 営業所マスタ INNER JOIN 担当者マスタ _
ON 営業所マスタ.営業所コード = 担当者マスタ.営業所コード "
SqlStr = SqlStr & " order by 担当者マスタ.カナ名, _
担当者マスタ.担当者コード"
rs.Open SqlStr, cn, adOpenStatic
If rs.BOF Then
Set Me.Recordset = Nothing
Me![担当者コード].ControlSource = ""
Me![担当者名].ControlSource = ""
Me![営業所名].ControlSource = ""
Else
Set Me.Recordset = rs
Me![担当者コード].ControlSource = rs![担当者コード].name
Me![担当者名].ControlSource = rs![担当者名].name
Me![営業所名].ControlSource = rs![営業所名].name
End If
rs.Close
Set rs = Nothing
この処理は、登録されているすべてのデータを画面に表示させます。
SQL文にwhereがないのですべてのデータが現れます。
-------------------------------------------------------------------
7.btn終了について
処理を終了してここでは、担当者マスタメンテナンスに戻る
ボタンの処理です。
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で作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|