Microsoft Access 掲示板

Access英語版です。

cmbF_IDがあり、Property SheetにてRow Sourceを
 Select Right([FV_ID],Len([FV_ID])-5)
 From MT F_ID
 Group By Right([FV_ID],Len([FV_ID])-5)
としています。

ボタンbtn001を押すイベント内で
テキストボックスの入力状態の確認がなされた後、

If fncUpdateMasterTables = False then Exit sub
End If

があって、関数で更新処理を行います。

Private Function fncUpdateMasterTables() As Boolean
On Error GoTo ErrorHandler
 Dim ws As DAO.Workspace
 Dim db as DAO.Database
 Dim rs1 as DAO.Recordset
　(変数宣言中略)

 DoCmd.Hourglass True

 Set ws = DBEngine.Workspaces(0)
 Set db = CurrentDb

 strSQL = "SELECT * FROM[MT_F_ID]" & _
 "WHERE [FV_ID] = '" & Me.txtFV_ID & "'"

 Set rs1 = db.OpenRecordset (strSQL, dbOpendynaset, dbDenyWrite, dbPessimistic)

  中略(レコードセットrs2を参照した後、フォーム内のデータをrs1とrs2で更新)

 ErrorHandler:
 DoCmd.Hourglass False
 Msgbox Err.number & ": " & Err.Description,vbcritical, _
 "Running Error(" & Me.Name & .fncUpdateMasterTables)"

 Resume Exit_fncUpdateMasterTables
End Function

以上です。よろしくお願いいたします