Option Compare Database

Private Sub コンボ68_AfterUpdate()
Me![ＢＳ名] = Me![コンボ68].Column(1)
End Sub

Private Sub コンボ70_AfterUpdate()
Me![ＢＳｎｏ] = Me![コンボ70].Column(0)
End Sub


Private Sub 管理番号_AfterUpdate()
If Not IsNull(Me![管理番号]) Then
Me![保全依頼番号] = DLookup("[保全依頼番号]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![受付日時] = DLookup("[受付日時]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![受付時間] = DLookup("[受付時間]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![ＢＳｎｏ] = DLookup("[ＢＳｎｏ]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![ＢＳ名] = DLookup("[ＢＳ名]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![現地状況] = DLookup("[現地状況]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![指示事項] = DLookup("[指示事項]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![内容] = DLookup("[内容]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![発生時刻] = DLookup("[発生日]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![外注先] = DLookup("[外注先]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![依頼ランク] = DLookup("[依頼ランク]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![パネル名] = DLookup("[パネル名]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![型式] = DLookup("[型式]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
Me![処置内容] = DLookup("[処置内容]", "[報告書作成テーブル]", "[管理番号] =" & Me![管理番号])
End If
End Sub

Private Sub 作成日_AfterUpdate()
Me![出動日] = Me![作成日]
Me![到着日] = Me![作成日]
Me![終了日] = Me![作成日]
End Sub

Private Sub 出動日_AfterUpdate()
Me![到着日] = Me![出動日]
Me![終了日] = Me![出動日]
End Sub

Private Sub 到着時間_AfterUpdate()
If Me![終了時間] > Me![到着時間] Then Me![計算時間] = Me![終了時間] - Me![到着時間] Else Me![計算時間] = (Me![設定時間] - Me![到着時間]) + Me![終了時間] + Me![設定分]

End Sub

Private Sub 到着時間_LostFocus()
If Not IsNull(Me![計算時間]) Then Me![作業時間] = IIf(Hour(Me![計算時間]) >= 10, Format(Me![計算時間], "hh時間nn分"), IIf(Hour(Me![計算時間]) < 1, Format(Me![計算時間], "nn分"), Format(Me![計算時間], "h時間nn分")))

End Sub
Private Sub 終了時間_AfterUpdate()
If Me![終了時間] > Me![到着時間] Then Me![計算時間] = Me![終了時間] - Me![到着時間] Else Me![計算時間] = (Me![設定時間] - Me![到着時間]) + Me![終了時間] + Me![設定分]

End Sub

Private Sub 終了時間_LostFocus()
If Not IsNull(Me![計算時間]) Then Me![作業時間] = IIf(Hour(Me![計算時間]) >= 10, Format(Me![計算時間], "hh時間nn分"), IIf(Hour(Me![計算時間]) < 1, Format(Me![計算時間], "nn分"), Format(Me![計算時間], "h時間nn分")))

End Sub