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
Jump to PostEverything 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.
Jump to PostSome other suggestion please
you can insert the date into db and then compare this date everytime when an application runs.
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.
Okej tinstaafl
I will try
LeNenne
Hi
It did not work at all
Some other suggestion please
Some other suggestion please
you can insert the date into db and then compare this date everytime when an application runs.
I did that and goes good.
Thanks folks
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.