-

   rss_sql_ru_access_programming

 - e-mail

 

 -

 LiveInternet.ru:
: 16.03.2006
:
:
: 4

:


, Recordset

, 28 2014 . 17:17 +
. , , .

, ( Recordset), , .

. timeGetTime(). .

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Form_Current()
    '       ,
    '    .     ,
    '         ,
    '  errormsg   .
    Dim res As Boolean
    Dim fName As String
    Dim t As Long
    t = timeGetTime()
    path = CurrentProject.path
    On Error Resume Next
        ErrorMsg.Visible = False
        If Not IsNull(Me![]) Then
            res = IsRelative(Me![])
            fName = Me![]
            If (res = True) Then
                fName = path & "\" & fName
            End If
            Me![].Picture = fName
            Me![].Visible = True
            Me.PaintPalette = Me![].ObjectPalette
            If (Me![].Picture <> fName) Then
                Me![].Visible = False
                ErrorMsg.Caption = "  "
                ErrorMsg.Visible = True
            End If
        Else
            Me![].Visible = False
            ErrorMsg.Caption = "     ""/"""
            ErrorMsg.Visible = True
        End If
    MsgBox "   " & Format$((timeGetTime() - t) / 1000, "0.000") & " ."
End Sub


. , Recordset, , , , .

, - + . 20 . .. , , , 20 .

http://www.sql.ru/forum/1134985/izmerit-vremya-vyvoda-dannyh-na-forme-ispolzuya-taymer-i-recordset


: [1] []
 

:
: 

: ( )

:

  URL