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 [1 Μήνυμα]      Bookmarks Tags: access Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
kon73
Script Master

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


View users profile Visit posters website
ΜήνυμαΣτις: 22 Απρ 2008 21:36    Θέμα: Ερώτημα Access Απάντηση με παράθεση  Mark this post and the followings unread

-----------------------
Φίλε Kon73

μιας και γνωρίζεις αρκετά από Access μπορείς να μου απαντήσεις στο εξής:

έχω ένα textbox όπου ο χρήστης γράφει κάποια σχόλια. Θέλω να κάνω το εξής (αν γίνεται βέβαια) στο GotFocus event να κρατάω τα σχόλια που έχουν γραφτεί, να αλλάζω γραμμή, να προσθέτω την ημερομηνία και την ώρα και αυτά να κλειδώνουν και να μην μπορούν να σβηστούν. Ουσιαστικά θέλω να μπορεί μόνο να προσθέσει ο χρήστης και όχι να κάνει edit. Τα 3 πρώτα τα έχω κάνει, το τελευταίο είναι που δυσκολεύομαι και μάλλον δεν γίνεται. Αν γνωρίζεις κάτι μπορείς να με βοηθήσεις; Παρακάτω προσπαθώ να σου εξηγήσω τι περίπου θέλω να κάνω.

Με το που φορτώνει η φόρμα:

Textbox Value:
12/04/2006: someComments

GotFocus Event -->

TextBox Value:
12/04/2006: someComments (δεν μπορεί να πειράξει)
13/04/2006: _(εδώ ξεκινάει να γράφει ο χρήστης)


---------------------------
Φίλε Antonis78
Υπάρχει μία λύση η οποία φυσικά θέλει λίγο κώδικα VBA και να γνωρίζεις βασικά πράγματα για την διάρκεια ζωής των μεταβλητών. Λοιπόν.
Ορίζεις μια μεταβλητή με scope private ας πούμε TxtLength όπου όπως καταλαβαίνεις αυτό θα είναι το μήκος του κειμένου που έχεις ήδη καταχωρήσει.(txtLength=len(txtstring) Την τιμή στην μεταβλητή θα την παίρνει πχ στο GotFocus event. ΣΤο txtString στο event Keydown θα βάλεις κάτι σαν και αυτό

if me.txtstring.selstart>=length-1 then

if KeyCode = vbKeyBack Or KeyCode = vbKeydelete Then KeyCode = 0

Me.txtstring.Locked = False
me.dirty=false
else

Me.txtstring.Locked = true

end if

Τι κάνουμε εν ολίγης. Πέρνουμε το μήκος του κειμένου πχ 11 που σημαίνει ότι όταν ο δρομέας είναι στην θέση 5 (Με το me.txtstring.selstart) τότε απερνοποιούμε τα πλήκτρα Del ή backspace Αν θέλουμε να επιτρέπουμε προσθήκες αλλά όχι διαγραφές [if KeyCode = vbKeyBack Or KeyCode = vbKeydelete Then KeyCode = 0]Ενώ αν θέλουμε ούτε προσθήκες τότε διαγραφείς το [if KeyCode = vbKeyBack Or KeyCode = vbKeydelete Then KeyCode = 0] και βάζεις μόνο το Me.txtstring.Locked = True εφόσον πρώτα αποθηκεύσουμε τυχών αλλαγές που κάναμε με το me.dirty=false.

Ενημέρωσέ με σχετικά.

Φιλικά
kon73

Το δοκίμασα και δουλεύει μια χαρά.
Βάλε όμως το Ερώτημα σου και στο Forum όχι μόνο Private Message νομίζω ότι ίσως βοηθηθούν και άλλοι ώστε και εγώ να απαντήσω και εκεί.
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [1 Μήνυμα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 09 Δεκ 2016 02:01 | 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