Αυτόματη εισαγωγή τιμής από προηγούμενη εγγραφή
 

καλημερα σε ολους

Θα ηθελα να γίνετε αυτοματη εισαγωγη τιμης απο προηγουμενη εγγραφη ΑΛΛΑ οι τελευταιοι 3 αριθμοι να διαγραφονται.
ΔΗΛ. Εχω ΑΒΓ-123 και θελω να βγαινει αυτοματα μονο το ΑΒΓ- στην επομενη εγγραφη κ.ο.κ

Ευχαριστω πολυ

Καλημέρα και χρόνια πολλά...

Αγαπητέ, θες 'πέρασμα' - σε κάποιο [πεδίοΧ]- της τιμής που περιέχεται σε πεδίο της αμέσως προηγούμενης εγγραφής ή της τιμής που περιέχεται σε προηγούμενο πεδίο της ίδιας εγγραφής ;

Να βοηθήσω θέλω / Νίκος Δ.

Υστερολόγιο: Γράψε στο προφιλ σου το όνομά σου. Δεν πειράζει και αν δεν είναι το πραγματικό σου. ...

Χρονια πολλα Νίκο

Θέλω το πέρασμα της τιμής που περιέχεται σε πεδίο της αμέσως προηγούμενης εγγραφής

Ευχαριστώ Γρηγορης

Γρηγόρη,
έφτιαξα κάτι, αλλά θέλω από σένα να ανεβάσεις μια μικρή εφαρμογή (δείγμα), ώστε να φανεί το περιβάλλον στο οποίο εργάζεσαι. (κάνε συμπίεση πρίν το ανέβασμα!). Βλέποντας το προφιλ σου, είδα το "αρχάριος" και έχω υποψίες ότι αυτό που είχα κατά νου να ανεβάσω, δεν θα είναι η λύση που επιδιώκεις.

Δεν είμαι συνεπής στους χρόνους που αφορούν το διάλογό μας, διότι δεν είμαι συνεχώς στο γραφείο μου...

Νίκος Δ.

Αγαπητε Νικο

Η εφαρμογη που δουλευω ειναι μεγαλη και δεν μπορω να το συμπιεσω και να το στειλω ( προσπαθησα ομως βγαινει μεγαλο αρχειο...) .
Ομως εαν ανεβασεις αυτο που εχεις θα προσπαθησω να το προσαρμόσω οπως εχω κανει και με αλλα.
Εγω εχω φτασει μεχρι να αντιγραφετε ολοκληρο το πεδιο με την εντολη : Me.controlname.DefaultValue = """"& Me.controlname & """""

Αυτο που θελω ειναι να αφαιρουνται τα 3 τελευταια ψηφια , στην περιπτωση μου αριθμοί.
Δεν ξερω αν αυτο που ανεβασα σε βοηθησει . Το εχω τοποθετησει εκει και δουλευει

Ευχαριστω για τον χρονο σου :045:

Χαίρομαι που γράφεις VBA !

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

Καλή συνέχεια

Νίκος Δ.

σου ανεβαζω συμπιεσμενο και split το αρχειο .
Μετανομασε το aa2.zip σε aa.z01

Νικο
Αποσυμπιεσε τα 2 αρχεια , τρεξε τα , κωδικος 2010

Αυτο που με ενδιαφερει ειναι το " ΚωδΕΞΟΠΛΙΣΜΟΥ"
Ευχαριστω

Aν το επιασα καλα ισως αυτο που επισυναπτω σε βολευει

Φιλικα Δημητρης

Δημητρη

Αν σου ειναι ευκολο σε Access 2003

Ευχαριστω για την ανταποκριση

Φιλε μου συγνωμη
Αν βιαζεσαι αυτα παθαινεις
Ανεβαζω 2003

Δημητρης

Καλημερα Δημητρη

Ειναι αυτο ακριβώς που θελω.
Μπορεις να το γραψεις σε κωδικα γιατι θελω να το προσαρμοσω στην εφαρμογη μου .
( την εχω κατεβασει παραπανω και θα δεις γιατι) .

Ευχαριστω :scratch_one-s_head:

Καλημέρα

Γρηγόρη, δες πως λειτουργεί η εφαρμογή σου μετά τις αλλαγές...

• Διαγραφή στην προεπιλεγμένη τιμή του [ΚωδΕΞΟΠΛΙΣΜΟΥ]
• Αδρανοποίηση εντολής στην Form_5 ΕΞΟΠΛΙΣΜΟΣ και συγκεκριμένα στο συμβάν 'με την φόρτωση'
• Προσθήκη κώδικα για να εμφανίζει μόνο τα γράμματα ...

Αντικατέστησα το συννημένο αρχείο, διότι στις [ΧΡΕΩΣΕΙΣ] υπήρχε πρόβλημα...

Τα ξαναλέμε / Νίκος Δ.

Υστερολόγιο: Να κάνεις συχνά συμπύκνωση και επιδιόρθωση... Τα ονόματα που χρησιμοποιείς για τα αντικείμενα, είναι απαράδεκτα. Την υποφόρμα [ΧΡΕΩΣΗ], έπρεπε να την βάλεις υποφόρμα στην [ΕΞΟΠΛΙΣΜΟΣ]. Με τα [ΤΙΠΟΛΟΓΙΑ] τι γίνεται ; Η σχεδίαση χρειάζεται αρκετές βελτιώσεις ( Πίνακες, φόρμες, πολλές πληκτρολογήσεις,...)

Αγαπητοί φίλοι, καλησπέρα κι από μένα!
Το θέμα της δυναμικής προεπιλογής τιμής ενός πεδίου έχει αποτελέσει βραχνά σε πολλούς
ειδικά όταν εφαρμόζεται σε συνεχείς φόρμες.

Η λύση του Δημήτρη είναι σωστή σαν σκεπτικό.
Παράλληλα είναι η μόνη λύση που δεν χρειάζεται VBA.
Η λύση με VBA θα μπορούσε να είναι όπως φαίνεται παρακάτω.

Φιλικά
Τάσος

Option Compare Database

Option Explicit



Private Const Data_Error As Long = 2169

Private LatestValue As String, tmpValue As String



Private Sub Form_BeforeUpdate(Cancel As Integer)

    If Me.text1 = LatestValue Then

        Me.Undo

        Cancel = True

        On Error Resume Next

        DoCmd.GoToRecord acDataForm, Me.Name, acLast

    End If

End Sub



Private Sub Form_Current()

    If Me.NewRecord Then Me.text1 = GetLatestValue

End Sub



Private Sub Form_Error(DataErr As Integer, Response As Integer)



' Η Access προσπαθεί να αποθηκεύσει τη νέα εγγραφή κατά το κλείσιμο η 

' οποία ακυρώνεται από την Form_BeforeUpdate() και προκαλεί το σφάλμα 2169



    If DataErr = Data_Error Then 



        Me.Undo

        Response = acDataErrContinue

    End If

End Sub



Private Sub Form_Load()

    GetLatestValue

End Sub



Function GetLatestValue() As String

    tmpValue = Nz(DLast("[Text1]", "tbl"), "???-???")

    tmpValue = Left(tmpValue, Len(tmpValue) - Abs(Len(tmpValue) > 3) * 3)

    If tmpValue <> LatestValue Then

        LatestValue = tmpValue

    End If

    GetLatestValue = LatestValue

End Function

Προσπαθησα να το ανεβασω συμπιεσμενο ως rar αλλα δεν μου το δεχετε

Στο πεδιο κωδΕΞΟΠΛΙΣΜΟΥ στην ΔΕΥΤΕΡΕΥΟΥΣΑ φορμα ΕΞΟΠΛΙΣΜΟΣ βαλε ποεπιλεγμενη τιμη

=Left(DLast("[ΕΞΟΠΛΙΣΜΟΣ]![ΚωδΕΞΟΠΛΙΣΜΟΥ]";"ΕΞΟΠΛΙΣΜΟΣ";"[ΕΞΟΠΛΙΣΜΟΣ]![ΕΡΓΑΣΤΗΡΙΟ] = Forms![5 ΕΡΓΑΣΤΗΡΙΑ]![Δευτερεύουσα φόρμα 1 Τιμολόγια Ερώτημα].Form![ΚΩΔΙΚΟΣ ΕΡΓΑΣΤΗΡΙΟΥ]");Len(DLast("[ΕΞΟΠΛΙΣΜΟΣ]![ΚωδΕΞΟΠΛΙΣΜΟΥ]";"ΕΞΟΠΛΙΣΜΟΣ";"[ΕΞΟΠΛΙΣΜΟΣ]![ΕΡΓΑΣΤΗΡΙΟ] = Forms![5 ΕΡΓΑΣΤΗΡΙΑ]![Δευτερεύουσα φόρμα 1 Τιμολόγια Ερώτημα].Form![ΚΩΔΙΚΟΣ ΕΡΓΑΣΤΗΡΙΟΥ]"))-3)

Σβησε και τον κωδικα που εχεις για την δευτερευουσα φορμα ΕΞΟΠΛΙΜΟΣ

Στην δευτερευουσα φορμα χρεωσεις δεν καταλαβα τι θελεις να κανεις και πως δουλευει και δεν την πειραξα
Αν και νομιζω οτι δεν δουλευει σωστα. Θα επρεπε να φερνει εγγραφες που σχετιζονται με τον εξοπλισμο

Ευχαριστω ολους που ασχοληθηκατε με το προβλημα.
καταρχην σε απαντηση του Νικου και του Τασου <που εχουν απολυτο δικιο> ειναι μια μεγαλη ιστορια . Ημουν και ειμαι ασχετος με Access ( ειμαι Μηχανολογος ). Ομως ΤΟ ΑΤΙΜΟ ΤΟ ΦΙΛΟΤΙΜΟ με εκανε να βοηθησω μια ΥΠΑΡΧΟΥΣΑ βαση δεδομενων που εφτιαξε καποιος συναδελφος Η/Υ . Ομως ειχε αρκετα προβληματα και ειπα να βοηθησω μιας και απο τους 10 Η/Υ που εχουμε κανενας δεν φιλοτιμηθηκε. Γιαυτο και ολα αυτα τα σφαλματα προγραμματισμου.
Τωρα το προγραμμα του Νικου ετρεξε μια χαρα αν και θελω να ξερω περισσοτερα για τις αλλαγες . Οσο αναφορα για τον Π......η τι σχεση εχεις με το Πλωμαρι????
Τασο ....... δεν το ειδα ακομα αλλα πιστευω οτι θα δουλεψει

Γρηγορης

Καλησπερα παιδια

Τελικα ετρεξε και με το προγραμμα του Νικου του Τασου και με του Δημητρη. Ευχαριστω πολυ για την βοηθεια και τις συμβουλες σας . :thanks::thanks::thanks::thanks:


Φιλικα Γρηγορης