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

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

Εγγραφές +Φόρμες


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


Μέλος από: 17 Μαη 2007
Μηνύματα: 32

View users profile
ΜήνυμαΣτις: 16 Μαρ 2009 01:46    Θέμα: Εγγραφές +Φόρμες Απάντηση με παράθεση  Mark this post and the followings unread

Γεια σας..
Το θέμα που αντιμετωπίζω ειναι το εξής.

Έχω φτιάξει μια φόρμα σε access 07 και παρατηρώ ότι καθώς εισάγω νέες εγγραφές μπορώ να επιστρέψω σε μία προηγούμενη και να της αλλάξω τα στοιχεία.Ακόμα και το primary key.
Υπάρχει τρόπος να το μπλοκάρω αυτό?Για παραδειγμα θα ήθελα πηγαίνοντας στο textbox του primary key της εκάστοτε εγγραφής όταν προσπαθω να αλλάξω τον αριθμό να μεταβαίνει αυτόματα στα στοιχεία της εκαστοτε εγγραφής και όχι να τα τροποιποιεί.

π.χ.
έχω έναν πίνακα με μαθητες.και πεδια Id, onoma, epitheto, thl και έχω φτιάξει την καταλληλη φόρμα.αν περάσω κάποιες εγγραφες και σε μία εγγραφη που εχει για id=5 παω και το αλλαξω και το κανω 10 θα το παρει κανονικα η βάση μου.εγω ομως δεν θελω να συμβει αυτο.


Ευχαριστω...
kon73
Script Master

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


View users profile Visit posters website
ΜήνυμαΣτις: 16 Μαρ 2009 08:50    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Αγαπητέ φίλε Tonik,

Ορίστε ένα δείγμα κώδικα που όπως το έλενξα εκτελεί αυτό που επιθυμείς :
Στο BeforeUpdate του ID
κώδικας:

Private Sub Id_BeforeUpdate(Cancel As Integer)
     Dim Rcdset As DAO.Recordset
         Set Rcdset = Me.RecordsetClone
         Rcdset.FindFirst ("ID=" & Me.ID)
             Cancel = True
             Me.Undo
          Me.Bookmark = Rcdset.Bookmark
End Sub


Για οτιδήποτε χρειαστείς τα λέμε πάλι.

Φιλικά
kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
tonik


Μέλος από: 17 Μαη 2007
Μηνύματα: 32

View users profile
ΜήνυμαΣτις: 16 Μαρ 2009 11:19    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Καταρχήν Ευχαριστώ για την άμεση απάντηση.
Το προβλημα που υπάρχει είναι το εξής.Ενώ όντως πηγαίνει στην αντίστοιχη εγγραφή όταν τροποποιώ το primary key δεν λειτουργεί σωστά η προσθήκη νέας εγγραφής.

π.χ.
an primary key = 127 και κάνω προσθήκη νέας με κωδικό 128 με ξαναγυρνάει στην πρώτη εγγραφή ή στην προηγούμενη...
kon73
Script Master

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


View users profile Visit posters website
ΜήνυμαΣτις: 16 Μαρ 2009 11:31    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Φίλε μου, όντως στην καινούργια εγγραφή εξακολουθεί να εκτελεί τον κώδικα, οπότε βάζοντας ένα
κώδικας:

If Me.NewRecord = False Then
End if

Λειτουργεί και σ'αυτήν την περίπτωση. Οπότε ο Κώδικας γίνεται ολοληρωμένα
κώδικας:

Private Sub Id_BeforeUpdate(Cancel As Integer)
 If Me.NewRecord = False Then
    Dim Rcdset As DAO.Recordset
    Set Rcdset = Me.RecordsetClone
    Rcdset.FindFirst ("Id=" & Me.Id)
    Cancel = True
    Me.Undo
    Me.Bookmark = Rcdset.Bookmark
 End If
End Sub


Περιμένω να μου πεις ότι δούλεψε σωστά.

Φιλικά

kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
tonik


Μέλος από: 17 Μαη 2007
Μηνύματα: 32

View users profile
ΜήνυμαΣτις: 16 Μαρ 2009 12:04    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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

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