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

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
JAMES
Δημοσιεύσεις: 20
Εγγραφή: 11 Νοέμ 2007 02:12
Τοποθεσία: Πρέβεζα

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

Δημοσίευση από JAMES » 11 Ιούλ 2008 13:55

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

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

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

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

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

Δημοσίευση από dva_dev » 11 Ιούλ 2008 17:26

JAMES έγραψε:...δε δουλεύει μου κολλάει και δε μου βγάζει κάπου λάθος...
Δεν βγάζει λάθος γιατί του λες ουσιαστικά κάποιες παραλείψεις να τις περνάει στο ντούκου και αν μπορεί να βγάλει άκρη η vba μόνη της έχει καλώς.

Στην αρχή του module βάζε πάντα "Option Explicit"

Κώδικας: Επιλογή όλων

Option Explicit
Μετά πρέπει να δηλώσεις το stDocName2 ότι είναι string (υποθέτω).
Επίσης χρησιμοποιείς ένα Date, το οποίο επιστρέφει Variants. Τα Variants ξέχνα τα ότι υπάρχουν και δήλωσε μεταβλητές δικές σου συγκεκριμένου τύπου. Αφού θέλεις να κάνεις έλεγχο με ημερομηνία δήλωσε μια μεταβλητή πχ. checkDate As Date και κάνε έλεγχο με αυτήν.
Τέλος οι ημερομηνίες εκφράζονται σωστά με τη μορφή #μήνας/ημέρα/έτος# και όχι σαν strings.

Κώδικας: Επιλογή όλων

...
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FORM1"
stDocName2 = "FORM2"

Dim stDocName2 As String
Dim checkDate As Date
checkDate = Date        'Τρέχουσα ημερομηνία

'Οι ημερομηνίες έχουν τη μορφή #mm/dd/yyyy#
If checkDate < #10/20/2010# Then
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
    DoCmd.OpenForm stDocName2, , , stLinkCriteria
End If

Άβαταρ μέλους
kon73
Script Master
Δημοσιεύσεις: 224
Εγγραφή: 13 Απρ 2008 23:47
Επικοινωνία:

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

Δημοσίευση από kon73 » 13 Ιούλ 2008 01:56

Φίλε James,
Έλαβα ένα σχετικό e-mail με το ερώτημά σου και φυσικά σε απάντησα στο e-mail σου. Δεν διαφέρει η απάντηση που τώρα είδα ότι υπήρχε στο Forum και από άλλο μέλος. Πάντως η απάντηση μου είναι σχετική με την χρησιμοποίηση ## στις ημερομηνίες κάτι που το επισήμανε και ο dva_dev.

Φιλικά
Kon73
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
Εικόνα

Απάντηση

Επιστροφή στο “MS Access”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες