freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

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


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [3 Μηνύματα]      Bookmarks Tags: accessκώδικα Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
JAMES


Μέλος από: 11 Νοε 2007
Μηνύματα: 20
Περιοχή: Πρέβεζα
View users profile
ΜήνυμαΣτις: 11 Ιουλ 2008 12:55    Θέμα: Βοήθεια σε κώδικα για Access Απάντηση με παράθεση  Mark this post and the followings unread

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

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

Μέλος από: 16 Σεπ 2005
Μηνύματα: 256+

View users profile Visit posters website
blog deviantART facebook linkedin 
ΜήνυμαΣτις: 11 Ιουλ 2008 16:26    Θέμα: Re: Βοήθεια σε κώδικα για Access Απάντηση με παράθεση  Mark this post and the followings unread

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

Μέλος από: 13 Απρ 2008
Βοηθήματα: 3
Μηνύματα: 224


View users profile Visit posters website
ΜήνυμαΣτις: 13 Ιουλ 2008 00:56    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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

Φιλικά
Kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [3 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 07 Δεκ 2016 14:29 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos