T'sWare スケジュール管理 フォームソースリスト [レンタル商品]フォーム
Private Sub 商品タイプID_DblClick(Cancel As Integer)
On Error GoTo Err_商品タイプID_DblClick
Dim lngResourceTypeID As Long
If IsNull(Me![商品タイプID]) Then
Me![商品タイプID].Text = ""
Else
lngResourceTypeID = Me![商品タイプID]
Me![商品タイプID] = Null
End If
DoCmd.OpenForm "レンタル商品のタイプ", , , , , acDialog, "GotoNew"
Me![商品タイプID].Requery
If lngResourceTypeID <> 0 Then Me![商品タイプID] = lngResourceTypeID
Exit_商品タイプID_DblClick:
Exit Sub
Err_商品タイプID_DblClick:
MsgBox Err.Description
Resume Exit_商品タイプID_DblClick
End Sub