ACCESS　DLOOKUP関数でみつからないときはどうする？

・DAO　Recordset　Nomatch　Seekを使って検索する。

・値追加の処理方法記載する。

レコード追加手順

今回は、すこし、組み合わせるパーツが多いので、難しいかもしれません。

ただし、今回の内容は、テーブル全部を検索します。

あまりにも、データが多いと、処理が遅くなるので、注意しましょう。

レコード追加手順　作成手順その1　データベース確認

上の図のようなテーブルがあります。

社員IDを入力したときに、なにも表示されない場合の処理方法を記載します。

社員IDの更新後処理にコードを記載します。

レコード追加手順　作成手順その2　コードを仕込む

Option Compare Database


 Private Sub 社員ID_AfterUpdate()

  Dim ctDBname As String: ctDBname = CurrentProject.Path & "\" & "DLOOKUP2.accdb"
  Dim Ws As Workspace
  Dim db As DAO.Database
  Dim Rs As DAO.Recordset
  
  Dim rc As Integer

  Set Ws = DBEngine.Workspaces(0)
  Set db = Ws.OpenDatabase(ctDBname)
  Set Rs = db.OpenRecordset("MT_社員", dbOpenTable)

  
  With Rs
    .Index = "PrimaryKey"
    .Seek "=", Me.社員ID

    If .NoMatch = True Then
     rc = MsgBox("追加処理を行いますか？", vbYesNo + vbQuestion, "確認")
    If rc = vbYes Then
        MsgBox "追加処理を行います"
        DoCmd.OpenTable "MT_社員", acViewNormal, acEdit

   Else
        MsgBox "追加処理を中断します"
    End If
    End If
    
  If .NoMatch = False Then

  Me![氏名] = DLookup("氏名", "MT_社員", "社員ID='" & Me![社員ID] & "'")
  Me![部門] = DLookup("部門", "MT_社員", "社員ID='" & Me![社員ID] & "'")
       
  End If
  End With
  
  
  
  

End Sub


Private Sub 部門ID_AfterUpdate()


Me.[社員ID] = DLookup("社員ID", "MT_社員", "部門ID=" & [部門ID])
Me.[氏名] = DLookup("氏名", "MT_社員", "部門ID=" & [部門ID])
Me.[部門] = DLookup("部門", "MT_社員", "部門ID=" & [部門ID])

End Sub

ACCESS　MsgBox　あなた、その処理続けますか？

2019.12.2

MsgBoxが処理を続けるか判断する こんにちは。伊川(@naonaoke)です。 今回は、MsgBoxが処理を中断するか、続行するかを判断します。 http://keiyu.xy...

ACCESS　findnext　レコードある限り検索

2019.12.19

レコードある限り検索する こんにちは。伊川(@naonaoke)です。 今回は、ACCESSの検索フォームについて解説します。 テーブルに同じ値がある場合です。 今までは、最初に見...

レコード追加手順　作成手順その3　コードを実行する

デーブルが開きました。

ここで、A006の社員を追加登録します。

追加処理をしない場合は、割愛します。

今回のコードの内容

トランザクションや、DAOなど、難しい内容が多いです。

トランザクションとは、取引の意味です。

イメージ的には、今回の場合においては、社員IDを探す場所を確保するというような意味です。

そして、社員IDを探す、見つける、見つけないというのが、トランザクション（取引）の一環なのです。

ここがポイント

ここがポイント

難しい内容は、その英語の意味から、想像します。今回のトランザクションなどは、取引という意味でした。そのトランザクションで、ACCESSがどのような動きをしてるのかを想像すると理解が早まります。

まとめ

今回のまとめ

難しい内容でも、自分なり理解を深めている阿久　世子男（アク　セスオ）です。特に、DAO等このようなことを理解していくとACCESSは本当に面白くなります。