- . 83


Sub 347_Click()

On Error GoTo Err_347_Click

Dim dbs As Database

Dim rst, rstC, rst As Recordset

Dim rst As Recordset

Dim strSQL As String

Dim i, j As Integer

Dim , , , As Double

Dim As Date

Dim TMP As Date

Dim As Date

Dim TMP2 As Date

Dim As Date

Dim flag As Boolean

Dim flag As Boolean

Dim flag As Boolean

Dim As Currency

Dim sing As String

'Dim _, _ As Currency

flag = False

Set dbs = CurrentDb

Me.Refresh

sing = Chr(34)

Set dbs = CurrentDb

strSQL = "SELECT DISTINCTROW ., . AS , . AS FROM [] INNER JOIN ON . = . WHERE (((.)=" & sing & Forms![]![].Form![] & sing & "));"

Set rst = dbs.OpenRecordset(strSQL)

If Forms![]![].Form![] = True And = 0 Then

Msg = " ." ' .

Style = vbOKCancel + vbQuestion ' .

Title = "" ' .

Response = MsgBox(Msg, Style, Title) ' .

If Response = vbOK Then ' "" (Yes).

GoTo labelBegin

Else

Exit Sub

End If

End If

labelBegin:

= 0

= 0

rst.MoveLast

j = rst.RecordCount

rst.MoveFirst

For i = 1 To j

= rst![] * 1.2 +

= rst![] * 1.2 +

rst.MoveNext

Next i

= +

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

rst.Close

strSQL = "SELECT DISTINCTROW ., . As , . As FROM [] INNER JOIN ON . = . WHERE (((.)=" & sing & Forms![]![].Form![] & sing & "));"