■メニュー
1.得意先マスタの作成（12回目）
===================================================================
こんにちは、ティウェアの高橋です。
それでは、得意先マスタの作成の12回目です。
では、はじめましょう。
------------------------------------------------------------------
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 = ""
Me![住所1].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 = ""
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![得意先名].ControlSource = ""
Me![住所1].ControlSource = ""
Else
Set Me.Recordset = rs
Me![営業所コード].ControlSource = rs![営業所コード].name
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で作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|