--------------------------------------------------------------------------------- ２、Left(文字列,文字数) 文字列の左から指定した文字数分だけ取り出す。 --------------------------------------------------------------------------------- ３、CCur(値) 値を通貨型に変換する。 --------------------------------------------------------------------------------- ４、Clng(値) 値を長整数に変換する。 --------------------------------------------------------------------------------- ５、Format([日付],"oooo") 設定にするとクロス集計などで正しく表示される。 以下は日付の表示書式です。 yy>00~99 yyyy>1900~999 m>1~12 mm>01~12 mmmm>January d>1~31 dd>01~31 ddd>Sun mmm>Jan dddd>Sunday oooo>1月 --------------------------------------------------------------------------------- ６、マクロ名”AutoExec”としたら起動時に自動起動する。 --------------------------------------------------------------------------------- ７、OpenForm はフォームを開く。DoCmd.OpenForm --------------------------------------------------------------------------------- ８、OpenReport はレポートを開く、印刷 --------------------------------------------------------------------------------- ９、Close はフォームを閉じる。DoCmd.Close acForm,Me.Nameは今現在開いているフォームを閉じるコード。 --------------------------------------------------------------------------------- １０、SelectObject オブジェクトを選択する。 --------------------------------------------------------------------------------- １１、ApplyFilter フィルタを実行する。 --------------------------------------------------------------------------------- １２、ShowAllRecords フィルタを解除する。 --------------------------------------------------------------------------------- １３、マクロをマクロVBAに変換するには、マクロ選択＞ファイル＞名前を付けて保存＞貼り付ける形式＞モジュール＞保存。 --------------------------------------------------------------------------------- １４、Private Sub bottn_Click() DoCmd.OpenForm"住所録",acNormal,,"Clng(DateValue([誕生日])) >= " & CStr(Clng(DateValue([Forms]![メニュ]![誕生日]))) End Sub --------------------------------------------------------------------------------- １５、Exit Sub は抜ける。 --------------------------------------------------------------------------------- １６、On Error GoTo Err はエラーが発生しても次のコードを実行する。 On Error GoTo ラベル名 ・・・・・・・・・ ラベル名： MsgBox エラー発生しました。 --------------------------------------------------------------------------------- １７、DoCmd.Maximize は画面最大化、DoCmd.Restore は元のサイズに戻す。印刷プレビューモードで開いたら、閉じる前に必ず、Restoreしなければならない。 --------------------------------------------------------------------------------- １８、Where条件式はstLinkCriteriaという文字列変数に設定する。 stLinkCriteria = "(["フィールド名"]) like '*" & 条件.value & "*' " --------------------------------------------------------------------------------- １９、stLinkCriteria = stLinkCriteria & "and DateValue([誕生日フィールド]) <= " & CStr(Modul1.BirthDay) & " " --------------------------------------------------------------------------------- ２０、ウィンドウの開き方 acNormal acFormReadOnly acWindowNormal Minimize Maximize --------------------------------------------------------------------------------- ２１、WhereCond = ""は全部表示 WhereCond = "([フィールド名]) = [Forms]![メイン]![フィールド名].Value" --------------------------------------------------------------------------------- ２２、サブフォームの指定 Forms!メインフォーム名!サブフォーム名.Form!コントロール名 --------------------------------------------------------------------------------- ２３、Forms!フォーム名!コントロール名 と Me!コントロール名は同じ --------------------------------------------------------------------------------- ２４、右辺から左辺へ値の代入 Forms!フォーム名!コントロール名 = 100 Forms!フォーム名!コントロール名 = "文字列" Forms!フォーム名!コントロール名 = #02/31/2002# --------------------------------------------------------------------------------- ２５、小数点を含むかもしれない場合にはデータの形をSingle型か Double型にすること。 --------------------------------------------------------------------------------- ２６、データ型変換関数 CBool Bool型に変換 CByte Byte型に変換 Clnt Integer型に変換 CLng Long型に変換 CSng Single型に変換 CDbl Double型に変換 CCur 通貨型に変換 CDate 日付型に変換 CStr 文字列型に変換 CVar 数値型に変換 --------------------------------------------------------------------------------- ２７、型の変換をするには変数に一度代入して使う。 --------------------------------------------------------------------------------- ２８、モジュールの宣言部に Option Explicit を追加すると定義してない変数を使えなくすることができる。 --------------------------------------------------------------------------------- ２９、and条件の書き方 hensu = (a >= 100) And (a <= 200) --------------------------------------------------------------------------------- ３０、文字列を比較する hensuA = hensuB like "*あ*" 変数Bに あ という文字列が含まれいるか判定する。 --------------------------------------------------------------------------------- ３１、アクセスでは ひらがな、カタカナ、半角ｶﾀｶﾅ は区別されない。 --------------------------------------------------------------------------------- ３２、ループを抜けるには Exit Do --------------------------------------------------------------------------------- ３３、Functionプロシージャの注意点 １、戻り値のデータ型を宣言 ２、コード内で戻り値を設定する。 ３、変数と戻り値の変数を同じ型にする。 Private Function AAAAA() As String ............ AAAAA = "ああああ" End Function --------------------------------------------------------------------------------- ３４、ジェネラルプロシージャの場合引数は自分で設定しなければ自動では設定されない。 Private Sub AAAA(b As Integer,c As Integer) As Integer .............. End Function --------------------------------------------------------------------------------- ３５、変数 Dim と Static の違い Dim>変数はプロシージャ内のみ有効 Static>変数はモジュール（例フォーム）を終了まで有効。 --------------------------------------------------------------------------------- ３６、モジュールレベル変数を宣言する。 １、通常 mCnt などのように先頭に m をつけることが多い。 ２、Option Explicit Private mCnt As integer --------------------------------------------------------------------------------- ３７、パブリック変数は全てのプロシージャから利用できる。 １、通常 Public pCnt As Integer --------------------------------------------------------------------------------- ３８、標準モジュールはデータベース全体で利用するプロシージャを書くところ。 --------------------------------------------------------------------------------- ３９、イミディテイウィンドはデバッグ用のコードを書くところ。標準モジュールでしか使えない。 --------------------------------------------------------------------------------- ４０、ローカルウィンドウは実行中の変数を表示するところ。 --------------------------------------------------------------------------------- ４１、レコードを抽出する Private Sub コマンド12_Click() Me.Filter = "商品グループ = '" & Me!txt条件 & "'" Me.FilterOn = True End Sub --------------------------------------------------------------------------------- ４２、検索ボックスにデータが入ってない時の処理 If IsNull(Me!txt条件) Then Beep MsgBox "抽出する値を入力してください", vbOKOnly + vbCritical, "抽出" Exit Sub End If --------------------------------------------------------------------------------- ４３、抽出を解除する。 Private Sub 解除_Click() Me.FilterOn = False End Sub --------------------------------------------------------------------------------- ４４、リストボックスに抽出データを表示する。 Private Sub 抽出_Click() Me!リスト結果.RowSource = "SELECT * FROM テーブル名 " _ & "WHERE フィールド名 = '" & Me!txt条件 & "'" Me!リスト結果.Requery End Sub --------------------------------------------------------------------------------- ４５、リストボックスの初期化 Private Sub 初期化_Click() Me!リスト結果.RowSource = "" Me!リスト結果.Requery <===再クエリーの実行 End Sub --------------------------------------------------------------------------------- ４６、サブフォームに抽出結果を表示する Private Sub 抽出_Click() Me!サブフォーム名.Form.Filter = "商品グループ = '" & Me!txt条件 & "'" Me!サブフォーム名.Form.FilterOn = True End Sub --------------------------------------------------------------------------------- ４７、サブフォームの抽出解除。2度目の抽出をすると解除になる。 Private Sub 解除_Click() Call 抽出_Click End Sub --------------------------------------------------------------------------------- ４８、タブシートによる切り替え（サブフォームボタンを非連結で使う） Private Sub tabフリガナ_Change() Select Case Me!tabフリガナ Case 0: Me!lbl条件.Caption = "[ｱ-ｵ]*" Case 1: Me!lbl条件.Caption = "[ｶ-ｺ]*" Case 2: Me!lbl条件.Caption = "[ｻ-ｿ]*" Case 3: Me!lbl条件.Caption = "[ﾀ-ﾄ]*" Case 4: Me!lbl条件.Caption = "[ﾅ-ﾉ]*" Case 5: Me!lbl条件.Caption = "[ﾊ-ﾎ]*" Case 6: Me!lbl条件.Caption = "[ﾏ-ﾓ]*" Case 7: Me!lbl条件.Caption = "[ﾔ-ﾖ]*" Case 8: Me!lbl条件.Caption = "[ﾗ-ﾛ]*" Case 9: Me!lbl条件.Caption = "[ﾜ-ﾝ]*" Case 10: Me!lbl条件.Caption = "*" End Select Me!sub結果.Requery End Sub --------------------------------------------------------------------------------- ４９、フレームとトグルボタンによる切り替え（サブフォームボタンを非連結で使う） Private Sub fra条件_AfterUpdate() Dim criteria As String Select Case Me!fra条件 Case 1: criteria = "市区町村よみ like '[ｱ-ｵ]*'" Case 2: criteria = "市区町村よみ like '[ｶ-ｺ]*'" Case 3: criteria = "市区町村よみ like '[ｻ-ｿ]*'" Case 4: criteria = "市区町村よみ like '[ﾀ-ﾄ]*'" Case 5: criteria = "市区町村よみ like '[ﾅ-ﾉ]*'" Case 6: criteria = "市区町村よみ like '[ﾊ-ﾎ]*'" Case 7: criteria = "市区町村よみ like '[ﾏ-ﾓ]*'" Case 8: criteria = "市区町村よみ like '[ﾔ-ﾖ]*'" Case 9: criteria = "市区町村よみ like '[ﾗ-ﾛ]*'" Case 10: criteria = "市区町村よみ like '[ﾜ-ﾝ]*'" Case 11: criteria = "市区町村よみ like '*'" End Select Me!sub結果2.Form.Filter = criteria Me!sub結果2.Form.FilterOn = True End Sub --------------------------------------------------------------------------------- ５０、昇順・降順並べ替え（フレームとオプションボタン使用） Private Sub fra表示順_AfterUpdate() Select Case fra表示順 Case 1: Me.OrderBy = "市区町村よみ asc" Case 1: Me.OrderBy = "市区町村よみ desc" End Select Me.OrderByOn = True End Sub --------------------------------------------------------------------------------- ５１、テキストボックスのデータがアルファベットか判定する。 Dim str As String str = Left(Me!テキストボックス名,1) If(str >= "A") And (str <="Z") Then Else Beep MsgBox"アルファベッドではありません",vbOKOnly + vbInfomation,"アルファベッドチェック" Cansel = True --------------------------------------------------------------------------------- ５２、テキストボックスの入力文字数を数える。 Dim Length As Long Length = Len(Me!テキストボックス名) If Length <> 5 Then Beep MsgBox"５文字以上入力して下さい。",vbOKOnly + vbInfomation,"文字数チェック" --------------------------------------------------------------------------------- ５３、パスワード Private Sub コマンドボタン_Click() If Me!パスワードテキストボックス名 = "password" Then ・・・・・・・・・・・・・・ Else Beep MsgBox"パスワードが違います。",vbOkOnly End if DoCmd.Close acForm,"パスワード画面フォーム名" End Sub --------------------------------------------------------------------------------- ５４、移動ボタン Private Sub コマンド154_Click() Me.Recordset.MoveFirst End Sub Private Sub 前へ_Click() On Error GoTo Err_前へ_Click DoCmd.GoToRecord , , acPrevious Exit_前へ_Click: Exit Sub Err_前へ_Click: MsgBox Err.Description Resume Exit_前へ_Click End Sub Private Sub コマンド156_Click() Me.Recordset.MoveNext End Sub Private Sub コマンド157_Click() Me.Recordset.MoveLast End Sub --------------------------------------------------------------------------------- ５５、パスワードを登録するには パスワード用フィールドのプロパティの定型入力＞パスワードで設定すると ************で表示される。 --------------------------------------------------------------------------------- ５６、ADOオブジェクトはプログラムの中でデータベースを扱うことができる。 メモリー上でテーブルを開いてレコードを検索したり、値を変更できる。 Dim cn As ADODB.Connection '接続情報 Dim rs As ADODB.Recordset 'レコードセットオブジェクト Dim length As Integer '入力した文字数 Set cn = CurrentProject.Connection 'カレントデータベースに接続 Set rs = New ADODB.Recordset '新規レコードオブジェクトを作成 rs.Open"テーブル名",cn,adOpenStatic,adLockReadOnly 'テーブル名をもとに読取専用のレコードオブジェクトを作成する。 ・・・・・・・・・・・・・処理・・・・・・・・・・ rs.Find"フィールド名 = '" & Me!フィールド名 & "'" rs.Close:Set rs = Nothing + cn.Close:Set cn = Nothing End Sub ------------------------------------------------- ５７、リストボックスの背景に色を付ける Private Sub リスト_GotFocus() Me!リスト.BackColor = RGB(206,255,255) End Sub ------------------------------------------------- ５８、検索には２つの方法がある。 １、クエリーを作成して検索する ２、フィルターを使用して検索する ------------------------------------------------- ５９、レポートに連番を付ける。 １、非連結テキストボックス追加 ２、コントロールソースに =[CurrntRecord] --------------------------------------------------- ６０、並べ替えグループ化の使い方 １、普通にフィールドを昇順・降順とグループ化を設定できる。 ２、フィールドに新しいフィールド名を入れてグループヘッダーを「はい」にする と新しいセクションが追加できる。 ------------------------------------------------------------------------------ ６１、先頭文字でグループ化する １、プロパティの”グループごと”を”先頭の値”に設定 ２、”グループヘッダーセクション”非連結テキストボックス追加 ３、”コントロールソース”に =Left([フィールド名],2) 先頭２文字でグループ化 --------------------------------------------------------------------------------- ６２、日付／時刻型のフィールドの場合のグループ化 １、年・月・週・日・時・分・ 四半期 などを指定できる ２、”グループヘッダーセクション”非連結テキストボックス追加 ３、”コントロールソース”に =Year([生年月日] & "年") -------------------------------------------------------------------------------- ============================================================ ６３、メイン／サブフォームは「リンク子フィールド」「リンク親フィールド」で同じ フィールド名を設定することによりリンクされる。 ----------------------------------------------------------------------- ６４、リレーションシップが設定されていないと、ウィザードでメイン／サブフォームを 作成することはできない。 ------------------------------------------------------------------------ ６５、今日の年齢を求める。 クエリーに演算フィールド作成して、 IIf(Format([生年月日]),"mm/dd")>Format(Date(),"mm/dd"),DateDiff("yyyy",[生年月日],Date())-1,DateDiff("yyyy",[生年月日],Date())) ------------------------------------------------------------------------- ６６、データ削除 Private Sub 削除ボタン_Click() On Error GoTo Err_SakujoErr DoCmd.RunCommand acCmdDeleteRecord Exit_削除ボタン_Click: Exit Sub Err_SakujoErr_Click: DoCmd.CancelEvent End Sub ----------------------------------------------------------------------------- ６７、データ移動 DoCmd.GoToRecord acDataForm, "社員", acGoTo, 7 acFirst acGoTo acLast acNewRec acNext (既定値) acPrevious ------------------------------------------------------------------------ ６８、データ登録 Private Sub 登録ボタン_Click() Dim rec As integer Beep rec = MsgBox("登録しますか？",vbYesNoCancel + vbQuestion,"確認") Select Case rec Case vbYes DoCmd.GoToRecord acDataForm,"フォーム名",acNewRec Exit Sub Case vbNo DoCmd.RunCommand acCmdDeleteRecord DoCmd.GoToRecord acDataForm,"フォーム名",acNewRec Case vbCancel End Select End Sub ----------------------------------------------------------------------------- ６９、誕生日を求める。 =IIf(Format([生年月日],"mm/dd")>Format(Date(),"mm/dd"),Datediff("yyyy",[生年月日],Date())-1,DateDiff("yyyy",[生年月日],Date())) -------------------------------------------------------------------------------- ７０、集計関数 =Avg([フィールド名]) =Sum([フィールド名]) =Min([フィールド名]) =Max([フィールド名]) =Count([フィールド名]) =First([フィールド名]) =Last([フィールド名]) ------------------------------------------------ ７１、複数条件に合致するデータを抽出 クエリーで同一の抽出条件行に「条件」を入力 ------------------------------------------------ ７２、OR条件でデータ抽出 クエリーの抽出条件の行を変えて「条件」を入力 ------------------------------------------------- ７３、レポートにパラメータのデータを表示する。 1、非連結テキストボックスをレポートに追加する ２、テキストボックスの「コントロールソース」にパラメータの条件[開始日を入力]を設定する。 -------------------------------------------------- ７４、フォームのテキストボックスデータでサブフォームに検索結果を出したい １、フォームに非連結テキストボックスを作成 ２、新規クエリーの抽出条件に[Forms]![フォーム名][テキストボックス名] ３、非連結サブフォームのコントロールソースにクエリーを設定 ４、マクロに「再クエリ」アクションを設定 ５、再クエリーをボタンイベントに登録する。 ------------------------------------------------------------------------ ７５、リストボックスに検索結果を出したい。 １、フォームにリストボックスを作成 ２、新規クエリーの抽出条件に[Forms]![フォーム名][テキストボックス名] ３、非連結サブフォームのコントロールソースにクエリーを設定 ４、マクロに「再クエリ」アクションを設定 ５、再クエリーをボタンイベントに登録する。 ------------------------------------------------------------------------ ７６、上記７５のレポートを出力 １、クエリーをもとにウィザードでレポート作成 ２、ボタンイベントに設定 ------------------------------------------------------------------------ ７７、あいまい検索 クエリーの検索条件に Like "*" & Forms![フォーム名]![コントロール名] & "*" ------------------------------------------------------------------------ ７８、フィルタ機能で検索（サブフォームにフォームに使っている場合のみ） Private Sub 検索_Click() Me!subサブフォーム名.Form.Filter = "フィールド名 Like '*" & Me!検索条件テキストボックス名 & "*'" Me!subサブフォーム名.Form.FilterOn = True End Sub ------------------------------------------------------------------------- ７９、トグルボタンで「あかさたな」で抽出 １、フレームないにトグルボタンを複数作成。 ２、サブフォームを作成する。ウィザードでテーブルに連結したデータシートを作成 ３、フレームのイベントコードを設定 Private Sub fra条件_AfterUpdate() Dim criteria As String Select Case Me!fra条件 Case 1: criteria = "市区町村よみ like '[ｱ-ｵ]*'" Case 2: criteria = "市区町村よみ like '[ｶ-ｺ]*'" Case 3: criteria = "市区町村よみ like '[ｻ-ｿ]*'" Case 4: criteria = "市区町村よみ like '[ﾀ-ﾄ]*'" Case 5: criteria = "市区町村よみ like '[ﾅ-ﾉ]*'" Case 6: criteria = "市区町村よみ like '[ﾊ-ﾎ]*'" Case 7: criteria = "市区町村よみ like '[ﾏ-ﾓ]*'" Case 8: criteria = "市区町村よみ like '[ﾔ-ﾖ]*'" Case 9: criteria = "市区町村よみ like '[ﾗ-ﾛ]*'" Case 10: criteria = "市区町村よみ like '[ﾜ-ﾝ]*'" Case 11: criteria = "市区町村よみ like '*'" End Select Me!sub結果2.Form.Filter = criteria Me!sub結果2.Form.FilterOn = True End Sub -------------------------------------------------------------------------------- ８０、タブコントロールを使って「あかさたな」で表示 １、タブコントロール作成 ２、非連結サブフォーム作成 ３、新規クエリー作成「抽出条件」に Like[Forms]![フォーム]![条件テキストボックス] ４、非連結サブフォームのコントロールソースにクエリー設定 Private Sub tabフリガナ_Change() Select Case Me!tabフリガナ Case 0: Me!lbl条件.Caption = "[ｱ-ｵ]*" Case 1: Me!lbl条件.Caption = "[ｶ-ｺ]*" Case 2: Me!lbl条件.Caption = "[ｻ-ｿ]*" Case 3: Me!lbl条件.Caption = "[ﾀ-ﾄ]*" Case 4: Me!lbl条件.Caption = "[ﾅ-ﾉ]*" Case 5: Me!lbl条件.Caption = "[ﾊ-ﾎ]*" Case 6: Me!lbl条件.Caption = "[ﾏ-ﾓ]*" Case 7: Me!lbl条件.Caption = "[ﾔ-ﾖ]*" Case 8: Me!lbl条件.Caption = "[ﾗ-ﾛ]*" Case 9: Me!lbl条件.Caption = "[ﾜ-ﾝ]*" Case 10: Me!lbl条件.Caption = "*" End Select Me!sub結果.Requery End Sub -------------------------------------------------------------------------------- アクセスVBA覚書２ |
||||||||