- . 90


rst![] = TMP

TMP = TMP + 32

= TMP

rst.Update

End If

Next k

End If

End If

labelnext:

rstC.MoveNext

Next i

= rst![]

rst.Close

rstC.Close

rst.Close

labelEnd:

Forms![]![].Form![] = True

If flag = True Then

Set rst = dbs.OpenRecordset("")

rst.AddNew

rst.[] = Forms![]![]

rst![+-] =

rst![] =

rst![] =

rst.Update

rst.Close

End If

Exit_347_Click:

DoCmd.OpenTable ""

dbs.Close

Exit Sub

Err_347_Click:

If Err.Number = 94 Then

MsgBox (" ")

Exit Sub

End If

If Err.Number = 3021 Then

DoCmd.OpenForm "2", , , , , acDialog

TMP3 = "01." & Forms![2]![] & "." & Forms![2]![]

= Format(TMP3, "m yy")

flag = True

'TMP3 = Forms![2]![]

' = Format(TMP3, "m yy")

Resume

End If

If Err.Number = 424 Then

Resume labelEnd

End If

If Err.Number = 2113 Then

Resume labelBegin

End If

' , , ,

' .

MyError = Err.Number - vbObjectError

' vbObjectError -

' 0 - 65535, .

If MyError > 0 And MyError < 65535 Then

Msg = " : " _

& MyError & ".