|
check serial disk 2 Συνημμένο(α) Εύχομαι Χριστός Ανέστη σε όλου και όλες του φόρουμ !!!! Πάνω σε αυτή τη βάση που έχω αναρτήσει,πως θα μπορούσα πατώντας το πλήκτρο που τσεκάρει και σου αποδίδει τον αριθμό του σκληρού δίσκου να το αποθηκεύει μέσα στο πεδίο της υποφορμας όπως στην φωτογραφία;:lock2: Και σχετικά με το serial του δίσκου: 1) Μπορεί με τον ίδιο κώδικα να τσεκάρει την motherboard του pc αντί του δίσκου; 2) Αν κάνω format στο δίσκο αλλάζει και το serial του δίσκου,αυτό είναι σωστό? Οι 2 τελευταίες ερωτήσεις δεν θα με πείραζε να απαντηθούν!! ευχαριστώ για όλα! |
1 Συνημμένο(α) Καλησπέρα, Χριστός Ανέστη... Έκανα ότι σβησίματα μπορούσα, ώστε να γίνει φανερό τι αλλαγές έκανα στον κώδικα. Καλή συνέχεια / Νίκος |
1 Συνημμένο(α) Στην επόμενη καρτέλα που ανοίγω όμως δεν κάνει πιστοποίηση,έτσι δεν είναι? Private Sub Form_Open(Cancel As Integer) CheckVolumeNumber End Sub :burp::burp: |
Καλησπέρα. Στην επόμενη καρτέλα αν θες κάνει, αν θες δεν κάνει. Σε έδειξα καθαρά τι πρέπει να κάνεις... Υστερολόγιο: Μελέτησε την ανάρτησή μου. Αυτά... / Νίκος |
Προσπαθώ να δω τι μαλακια έχω κάνει. Έχω κουραστεί σήμερα το βλέπω αύριο με άλλο μάτι. ----------------------------------------- Ευχαριστώ πάντως που ασχολείσαι μαζί μου ! :drinks: |
Καλησπέρα Με 'το άνοιγμα' η φόρμα frm1 τρέχει τη ρουτίνα CheckVolumeSerialNumber που υπάρχει στη module1. Εκεί έφτιαξα μια μεταβλητή Public Serial As Long που έχει ως τιμή το αποτέλεσμα της ρουτίνας, δηλαδή τον σειριακό αριθμό. Αυτή η τιμή είναι ορατή από παντού. Αν σε οποιαδήποτε φόρμα φτιάξεις ένα πλαίσιο κειμένου με όνομα έστω text_sr και σε ένα κουμπάκι της φόρμας γράψεις σε κάποιο συμβάν Me!text_sr = Serial, τότε στο πλαίσιο θα δεις να γράφεται ο ζητούμενος σειριακός αριθμός. Προϋπόθεση ! Να τρέξεις πρώτα τη ρουτίνα CheckVolumeSerialNumber. Αυτό είναι όλο... Εφόσον θες να ασχοληθείς σοβαρά με τον προγραμματισμό, να μάθεις να διαβάζεις κώδικα, αλλιώς ό,τι φτιάχνεις θα σε βασανίζει και δεν θα τελειώνει ποτέ. Φιλικά -πάντα- ότι σε λέω / Νίκος |
Το σωστό είναι αυτό που μου είπες. όμως το να μάθω προγραμματισμό σε ένα τέτοιο επίπεδο όπως λες χρειάζεται: 1) ώρες ατέλειωτες 2) να έχω χρόνο περισσότερο 3) πιθανόν χρήματα 4) και το σημαντικότερο ένα άνθρωπο όπως εσένα. αυτή τι στιγμή κλέβω λίγο από όλα και ψιλό ικανοποιούμε. Δυστυχώς φτιάχνοντας κάτι στην access έχω καταφέρει να κάψω εγκεφαλικά κύτταρα περισσότερο από τον ozzy osbourne!! Ευχαριστώ που μου δίνεις τι λύση έτσι απλόχερα,και το εκτιμώ !!! :a010::thanks::thanks::thanks: |
| Η ώρα είναι 19:54. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.