- . 84


Set rst = dbs.OpenRecordset(strSQL)

rst.MoveLast

= rst![]

j = rst.RecordCount

rst.MoveFirst

For i = 1 To j

= rst![] +

rst.MoveNext

Next i

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

rst.Close

If < Then

Msg = "C " & Chr(13) & " - " & & "." & Chr(13) & "C " & Chr(13) & " - " & & "." & Chr(13) & "C ." ' .

'Msg = "C ." & Chr(13) & " ?" ' .

Style = vbCancel + vbCritical ' .

Title = "" ' .

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

Exit Sub

End If

If > Then

Msg = "C " & Chr(13) & " - " & & "." & Chr(13) & "C " & Chr(13) & " - " & & "." & Chr(13) & "C ." ' .

'Msg = "C ." & Chr(13) & " ?" ' .

Style = vbOKCancel + vbCritical ' .

Title = "" ' .

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

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

flag = True

= -

GoTo labelOK

Else

Exit Sub