Βοήθεια σε κώδικα για Access

[jamespr]

Γεια σας σε όλους. Ελπίζω όλοι να είστε καλά και να περνάτε τέλεια.

Θα ήθελα τη βοήθειά σας σε έναν κώδικα που έχω γράψει δε δουλεύει μου κολλάει και δε μου βγάζει κάπου λάθος.

Θέλω όταν πατάω ένα κουμπί να γίνεται έλεγχος στην ημερομηνία και να ανοίγει την κατάλληλη φόρμα.

Ορίστε ο κώδικας που έχω γράψει.

 

Dim stDocName As String

Dim stLinkCriteria As String

 

stDocName = "FORM1"

stDocName2 = "FORM2"

If Date < "20/10/2010" Then

DoCmd.OpenForm stDocName, , , stLinkCriteria

Else

DoCmd.OpenForm stDocName2, , , stLinkCriteria

End If

 

Σας ευχαριστώ πάρα πολύ για το χρόνο σας.