Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #11  
Παλιά 02-07-17, 15:44
Όνομα: Γρηγόρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-03-2013
Μηνύματα: 126
Προεπιλογή

Χρήστο,

Δεν βλέπω κάποιο πρόβλημα στην έκφραση "(Data.Schicht)=[forms]![Visual Control].[Schiht]".

Τα πεδία είναι σωστά ως προς την ονομασία τους αλλά και οι τιμές του πεδίου Schiht από την φόρμα Visual Control φέρνει τις τιμές που υπάρχουν στον πίνακα Data - πεδίο Schicht.

Το μόνο που εντοπίζω είναι στην έκφραση "(DateValue([TimeStamp])=Date()))"
Συγκεκριμένα, βλέπω ότι δεν έχει οριστεί. Μήπως θα έπρεπε να είναι "DateValue(Now())";

Γρηγόρης

Τελευταία επεξεργασία από το χρήστη ggreg75 : 02-07-17 στις 16:28.
Απάντηση με παράθεση
  #12  
Παλιά 02-07-17, 17:29
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 18-11-2012
Περιοχή: Deutschland
Μηνύματα: 206
Προεπιλογή

Αντικατέστησες στο strSQL με αυτό που πόσταρα και σου φέρνει κανονικά τις εγγραφές??
Απάντηση με παράθεση
  #13  
Παλιά 02-07-17, 17:34
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 18-11-2012
Περιοχή: Deutschland
Μηνύματα: 206
Προεπιλογή

RecordCount-3061.png

Εμένα μου εμφανίζει αυτό όταν βάζω αυτό το string


strSQL = ("SELECT COUNT(*) FROM [Data] WHERE (Data.Schicht)=[forms]![Visual Control].[Schiht] AND ((Data.UsBadStation01)=1 AND (Data.UsBadStation02)=0 AND (Data.Nacharbeit)=No AND (Data.Schrott)=No AND (DateValue([TimeStamp])=Date()));")
Απάντηση με παράθεση
  #14  
Παλιά 02-07-17, 17:39
Όνομα: Γρηγόρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-03-2013
Μηνύματα: 126
Προεπιλογή

Έχεις δοκιμάσει να αλλάξεις τον κώδικα στο σημείο που ανέφερα πριν και έχω μαρκάρει με κόκκινο χρώμα;
Απάντηση με παράθεση
  #15  
Παλιά 02-07-17, 17:50
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 18-11-2012
Περιοχή: Deutschland
Μηνύματα: 206
Προεπιλογή

Μου επιστρέφει αυτό!
RecordCount-3075.png
Απάντηση με παράθεση
  #16  
Παλιά 02-07-17, 18:01
Όνομα: Γρηγόρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-03-2013
Μηνύματα: 126
Προεπιλογή

Δεν το έχεις γράψει σωστά.

Δοκίμασε το ως εξής :
(DateValue([TimeStamp])=datevalue(now())
Απάντηση με παράθεση
  #17  
Παλιά 02-07-17, 18:04
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 18-11-2012
Περιοχή: Deutschland
Μηνύματα: 206
Προεπιλογή

Το ίδιο μου εμφανίζει
Απάντηση με παράθεση
  #18  
Παλιά 02-07-17, 18:08
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 18-11-2012
Περιοχή: Deutschland
Μηνύματα: 206
Προεπιλογή

Για κάνε αυτό εισαγωγή στο πρόγραμμα.

RecCounter.zip
Απάντηση με παράθεση
  #19  
Παλιά 03-07-17, 07:27
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 18-11-2012
Περιοχή: Deutschland
Μηνύματα: 206
Προεπιλογή

Λοιπόν!!! Έχω ευχάριστα νέα για τον εαυτό μου :) (Ελπίζω)

Αν καταφέρω σε ερώτημα να βάλω κριτήριο κάτι σαν between Date() & timeserial(6;15;00) and date() & timeserial(14;59;00) έλυσα το πρόβλημα μου.

Ξέρει κανένας πώς είναι η σωστή σύνταξη κριτηρίου σε ερώτημα?? Γιατί έχω πεδίο timestamp το οποίο έχει format 03.07.2017 06:03:24 πχ


Update απαντάω στον εαυτό μου!! Η Σύνταξη είναι Between (Date()+TimeSerial(6;15;0)) And (Date()+TimeSerial(14;14;59)) αν κάνω κάπου λάθος ας με διορθώσει κάποιος, οπότε το θέμα μπορεί να το κλείσει κάποιος Administrator.

Ευχαριστώ πάρα πολύ.

Τελευταία επεξεργασία από το χρήστη pctechdr : 03-07-17 στις 07:59.
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας



Η ώρα είναι 04:58.