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

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

Βοηθεια σε pivot table access


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


Μέλος από: 19 Ιαν 2009
Μηνύματα: 9

View users profile
ΜήνυμαΣτις: 04 Φεβ 2009 20:22    Θέμα: Βοηθεια σε pivot table access Απάντηση με παράθεση  Mark this post and the followings unread

ΒΟΗΘΕΙΑ!!
ΧΡΗΣΙΜΟΠΟΙΗΣΑ ΑΥΤΟ ΤΟΝ ΚΩΔΙΚΑ ΣΤΟ PIVOT TABLE MOY TO ΠΡΟΒΛΗΜΜΑ ΕΙΝΑΙ ΟΤΙ ΕΝΩ ΜΟΥ ΒΓΑΖΕΙ ΤΟ ΜΗΝΥΜΑ ΚΑΙ ΠΑΤΑΩ CANCEL ΑΥΤΟ ΚΑΝΕΙ ΠΡΟΣΘΗΚΗ ΤΟ ΠΕΔΙΟ ΚΑΝΟΝΙΚΑ ΚΑΙ ΤΟ ΑΝΤΙΣΤΟΙΧΟ ΟΤΑΝ ΔΙΑΓΡΑΦΩ ΚΑΤΙ.

ΤΟ ΖΗΤΟΥΜΕΝΟ ΕΙΝΑΙ ΝΑ ΜΗ ΜΠΟΡΕΙ Ο ΧΡΗΣΤΗΣ ΝΑ ΚΑΝΕΙ ΟΥΤΕ ΠΡΟΣΘΗΚΗ ΟΥΤΕ ΔΙΑΓΡΑΦΗ ΣΤΟ PIVOT TABLE.
ΑΥΤΟ ΤΟ ΚΑΝΩ ΓΙΑ ΝΑ ΑΠΟΦΥΓΩ ΝΑ ΚΑΝΩ READ ONLY TO PIVOT.

Private Sub Form_PivotTableChange(ByVal Reason As Long)
Dim rsn As OWC10.PivotTableReasonEnum
rsn = Reason
If rsn = plPivotTableReasonTotalAdded Then
Response = MsgBox("ΠΡΟΣΘΗΚΗ .", 5)
ElseIf rsn = plPivotTableReasonTotalDeleted Then
Response = MsgBox("ΔΙΑΓΡΑΦΗ.", 5)
End If
End Sub
cordis
Administrator, [F|H]ounder, [C|S]EO

Μέλος από: 09 Οκτ 1999
Βοηθήματα: 95
Νέα: 475
Templates: 1
Scripts: 2
Μηνύματα: 256+

Περιοχή: Greece
View users profile Visit posters website
blog cv flickr picasa facebook linkedin 
twitter friendfeed deviantART del.icio.us 
ΜήνυμαΣτις: 05 Φεβ 2009 23:04    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

δοκίμασε να το κάνεις protect και unprotect με αυτά

κώδικας:

Sub ProtectSheet()
Dim Password    'This line of code is optional
Password = "1234"
ActiveSheet.Protect Password, True, True, True
End Sub
Sub UnProtectSheet()
Password = "1234"
ActiveSheet.Unprotect Password
End Sub


από εδώ: http://www.angelfire.com/biz7/julian_s/julian/julians_macros.htm

_________________
Δεν απαντάω σε προσωπικά μηνύματα με ερωτήσεις που καλύπτονται από τις ενότητες του forum. Για ο,τι άλλο είμαι εδώ για εσάς.
- follow me @twitter

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


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Προβλημα με υπολογισμο ΦΠΑ στην Access 0 master3763 27 Νοε 2016 17:31
master3763 Εμφάνιση τελευταίου μηνύματος
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 04 Δεκ 2016 18:19 | 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