0

Hi folks

I wonder if this code can bee converted to VB6
or there are a simular code.

Lenny

 Dim strMSG As String
> strMSG = "This Demo Has Expired" & vbCrLf & "Please Contact Me to Obtain
> the Full Version"
>
> If DCount("[autonumberID]", "app.path/phonetel.mdb") > 20 Or Date > #9/30/2010#
> Then
> DoCmd.DeleteObject acForm, "frmCriticalform"
> DoCmd.DeleteObject acForm, "frmanothercritical form"
> MsgBox strMSG, vbCritical
> DoCmd.Quit acQuitSaveAll
> End If
4
Contributors
5
Replies
31
Views
4 Years
Discussion Span
Last Post by bonzo2008
0

Everything should convert straight over, except for DoCmd. DoCmd is part of the Office library. To do the same thing in VB6 is probably possible, but it's hard to remember that far back.

Edited by tinstaafl

0

Some other suggestion please

you can insert the date into db and then compare this date everytime when an application runs.

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.