Η σελίδα μας αναβαθμίστηκε, γι' αυτό τον λόγο τα μέλη μας θα πρέπει να ζητήσουν νέο κωδικό πρόσβασης από την υπηρεσία "Αποστολή κωδικού πρόσβασης".
Εάν το email με τον νέο κωδικό δεν έρθει στο inbox κοιτάξτε και στο spam folder. Ο server είναι φρέσκος και δεν έχει το reputation που του αξίζει.

Αλφαρηθμιτικό με περιορισμούς

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

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

Απάντηση
takiskAK
Δημοσιεύσεις: 3
Εγγραφή: 04 Μαρ 2008 13:46

Αλφαρηθμιτικό με περιορισμούς

Δημοσίευση από takiskAK » 05 Μαρ 2008 09:33

έχω ένα πεδίο αριθμός μητρώου υλικού της μορφής
L\-99999;0;. θέλω το πρώτο γράμμα να είναι μόνο ελληνικό και
όταν το ψηφία είναι λιγότερα απο 5 να συμπληρώνονται αυτόματα μηδέν
στα αριστερά ώστε να γίνονται 5.
μπορεί κανείς να βοηθήσει;
ευχαριστώ

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

Αλφαρηθμιτικό με περιορισμούς

Δημοσίευση από kon73 » 14 Απρ 2008 01:36

Φίλε takiskAK
Όπως απάντησα και σε ένα άλλο Post δεν ξέρω αν τελικά βρήκες λύση στο πρόβλημα σου καθότι μόλις σήμερα έγινα μέλος του Forum. Μπορώ όμως να σου δώσω μία λύση αν δεν το βρήκες. Φυσικά αυτό που ζητάς γίνεται μόνο με VBA. (Η αλήθεια είναι ότι δεν χρησιμοποιώ μακροεντολές). Λοιπόν για τον εντοπισμό του Ελληνικού αλφάβητου θα χρειαστείς το KeyPress Event όπου θα βλέπει πιο KeyAscii έχει πληκτρολογηθεί. Τα ελληνικά πχ το α είναι το 945 κωδικός και β το 946 άρα βάζεις έναν περιορισμό εκεί αλλά μετά στους αριθμούς δεν βάζεις κανέναν περιορισμό. Όσο για να συμπληρώνει τα υπόλοιπα πεδία με 0 θα πρέπει στο AfterUpdate να μετρά το Len και όταν είναι μικρότερο του 5 να χρησιμοποιήσεις την συνάρτηση spaces και replace. Το space θα δημιουργεί κενά και το replace θα αλλάζει τα κενά με το 0.
Δηλαδή εν ολίγεις θέλει VBA. Αν είναι στείλε μου msg αν δεν μπορείς με VBA να δω τι μπορώ να κάνω.
Φιλικά
kon73

takiskAK
Δημοσιεύσεις: 3
Εγγραφή: 04 Μαρ 2008 13:46

Αλφαρηθμιτικό με περιορισμούς

Δημοσίευση από takiskAK » 22 Απρ 2008 10:49

kon73 έγραψε:Φίλε takiskAK
Όπως απάντησα και σε ένα άλλο Post δεν ξέρω αν τελικά βρήκες λύση στο πρόβλημα σου καθότι μόλις σήμερα έγινα μέλος του Forum. Μπορώ όμως να σου δώσω μία λύση αν δεν το βρήκες. Φυσικά αυτό που ζητάς γίνεται μόνο με VBA. (Η αλήθεια είναι ότι δεν χρησιμοποιώ μακροεντολές). Λοιπόν για τον εντοπισμό του Ελληνικού αλφάβητου θα χρειαστείς το KeyPress Event όπου θα βλέπει πιο KeyAscii έχει πληκτρολογηθεί. Τα ελληνικά πχ το α είναι το 945 κωδικός και β το 946 άρα βάζεις έναν περιορισμό εκεί αλλά μετά στους αριθμούς δεν βάζεις κανέναν περιορισμό. Όσο για να συμπληρώνει τα υπόλοιπα πεδία με 0 θα πρέπει στο AfterUpdate να μετρά το Len και όταν είναι μικρότερο του 5 να χρησιμοποιήσεις την συνάρτηση spaces και replace. Το space θα δημιουργεί κενά και το replace θα αλλάζει τα κενά με το 0.
Δηλαδή εν ολίγεις θέλει VBA. Αν είναι στείλε μου msg αν δεν μπορείς με VBA να δω τι μπορώ να κάνω.
Φιλικά
kon73[/quote

φίλε kon73 ευχαριστώ.
βοηθησες αρκετά. τα keyAscii που που θα τα βρώ; υπάρχει κάποιος πίνακας;
με VBA τα πάω σχετικά καλά.

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

Αλφαρηθμιτικό με περιορισμούς

Δημοσίευση από kon73 » 22 Απρ 2008 21:32

Σε ένα mdb αρχείο δώσε F1 και στο Answer Wizard δώσε Character Set (128 – 255)
Μια καλύτερη λύση είναι να δώσεις σε ένα loop το chr ώστε να δεις καλύτερα την αντιστοιχία των ελληνικών με το Ascii.
Private Sub AsciiKeys()
For i = 128 To 255
Debug.Print "Ο κωδικός : " & i & " είναι το σύμβολο : " & Chr(i)
Next i
End Sub
Το παραπάνω τυπώνει τις τιμές και βλέπεις ποιος κώδικας είναι το καθένα

Πιστεύω να βοήθησα.

Φιλικά
kon73

takiskAK
Δημοσιεύσεις: 3
Εγγραφή: 04 Μαρ 2008 13:46

Αλφαρηθμιτικό με περιορισμούς

Δημοσίευση από takiskAK » 02 Μάιος 2008 13:43

ευχαριστώ πάρα πολύ.
φίλε Kon73 είσαι φοβερός.

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

Αλφαρηθμιτικό με περιορισμούς

Δημοσίευση από kon73 » 02 Μάιος 2008 14:49

Φίλε takiskAK
Σ'ευχαριστώ για τα καλά σου λόγια. Για κώδικα που σιγά σιγά αναπτύσω και θα συμπεριλαμβάνω στον site δες και το http://www.MsAccess.gr

Φιλικά

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

Απάντηση

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

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

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