Private Sub レンタル商品ID_AfterUpdate() If Not IsNull([レンタル商品ID]) Then Me![OK].Enabled = True Else Me![OK].Enabled = False End If End Sub