【Access】こんな事で乗り越えたTips１１選

サブフォームから親フォーム非連結ボックスへ入力

サブフォームにフォーカスが移動している時に、親フォームのテキストボックスの値を変更したいことがある。

簡単な事なのですが、中々できなかったのでTipsにしました。

上のポイントは、サブフォームから親フォームの非連結ボックスに空白を入れるものですが、計算式などを入れて値を入れる方法などにも使える。

別フォームのデータをテキストボックスに表示

フォームを開くときに、別フォームのテキストボックス内のデータを引っ張ってきたい時がある。もしくは、ボタンをクリックした時に、別フォームの値を引っ張ってきたい場合などですね。

短いテキストを数値型に変換

データに、全角で数値が入っていたり、余計かカンマや記号が入っていても数値型に変換することができます。

VBAでレコード移動

データの抽出じゃなく、対象のレコードまで移動する方法を簡単そうでできなかったので備忘録にしました。

下記の例は、「NO検索」というテキストボックスに番号を入れた時に、その番号のレコードまで移動するVBAです。

Private Sub NO検索_AfterUpdate()

DoCmd.GoToControl "txt_NO"
DoCmd.FindRecord NO検索

If InStr(Me!txt_NO, NO検索) = 0 Or Null Then
MsgBox "該当レコードはありません。"
End If

MNO検索 = Null
End Sub

ちなみに、数時じゃなく、テキストの曖昧検索でのレコード移動は、

Private Sub メーカー名検索_AfterUpdate()
DoCmd.GoToControl "txt_メーカー名"
DoCmd.FindRecord "*" & メーカー名検索 & "*"

If InStr(Me!txt_メーカー名, メーカー名検索) = 0 Or Null Then
MsgBox "該当レコードはありません。"
End If

メーカー名検索 = Null
End Sub

Parent プロパティを使用すると、1 つのサブフォームまたはサブレポートが複数のフォームまたはレポートに挿入されている場合に、現在の親であるフォームまたはレポートを特定できます。

２つのテーブルの同期

本当は、SQLserverで同期をとりたかったが、そのスキルがまだない。

わかったら後ほど記載していきます。

Accessのクエリー２段でテーブル同士の同期ができるので記載しておきます。

このケースは、マスターテーブルに、データを追加したときに、リレーションしている作業用テーブルにも主キーあたりを同期させて追加させておきたいケースが発生する。その時用に使えるテクニックだ。

１．不一致クエリウィザードでテーブル1にしかないレコードを抽出するクエリーを作成
・抽出するテーブル：テーブル1
・比較するテーブル：テーブル2
・共通するフィールド：主キーとか
・表示するフィールド：追加に必要なフィールド全部

２．このクエリを元に追加クエリーを作成

追加クエリーで追加すると同期したいテーブルにその都度追加されて２重になるように感じてしまうが、実際は、不一致クエリを通しているので、追加されたデータだけのレコードが増えるだけで済む。

リレーションをしているので、メインのテーブルからレコードを削除や更新すれば、同期しているテーブルも同じように連動してくれる。

指定枚数のラベルを印刷

テーブルに「プリント枚数」という印刷枚数を数値で入れておくフィールドをつくる。レポートをデザインモードにして。

（１）レポートの中に、非表示にてその枚数フィールドを入れておく。

（２）非連結の[Text1]というテキストボックスを設置して、非表示にしておく。

（３）詳細のプロパティを開き、「フォーマット時」のイベントプロシージャを開く。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
Dim 指定枚数 As Integer
指定枚数 = Me!プリント枚数
If IsNull([Text1]) Then [Text1] = 1
If [Text1] <> 指定枚数 Then
Me.NextRecord = False
Me.MoveLayout = True
Me.PrintSection = True
End If
End Sub

（４）同じく「印刷時」のイベントプロシージャを開き

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
指定枚数 = Me!プリント枚数
If [Text1] <> 指定枚数 Then
[Text1] = [Text1] + 1
Else
[Text1] = 1
End If
End Sub

これで、印刷プレビューすれば、プリント枚数に入っている数値の枚数だけラベル印刷される。

VBAでバッチファイル実行

Dim objWSH As Object
If MsgBox("繰越処理を実行しますか？ yes/no", vbYesNo, "繰越処理最終確認") = vbYes Then

Set objWSH = CreateObject("WScript.Shell")
objWSH.Run "d:\LIFE\LIFE繰越データバックアップ.bat"
Set objWSH = Nothing

End If

０の時は表示させない

以前は、IF関数を使って、０の時は、表示させないとやっていたが、もっと簡単な方法を見つけた。

した。方法をしらないと無駄な事をしていまいますね。

あそれから、カンマを入れたい場合は、#,### になります。