Sub TestUpdater()
ShowLastUpdate "log1"
End Sub
Public Sub ShowLastUpdate(logID As String)
If MsgBox("Last update was on " & DMax("DateUpdated", "Table1", "ID = '" & logID & "'") & "." & Chr(10) & _
"Do you want to update now?", vbYesNo) = vbYes Then
'Continue with update
End If
End Sub
|