Member Avatar for LeNenne

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
  • 198 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by bonzo2008
Member Avatar for tinstaafl

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
Member Avatar for LeNenne

Okej tinstaafl

I will try

LeNenne

Member Avatar for LeNenne

Hi

It did not work at all

Some other suggestion please

Member Avatar for rishif2

Some other suggestion please

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

Member Avatar for bonzo2008

I did that and goes good.

Thanks folks

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.