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

[Dimitris Ch]

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

Δημητρης

[pant]

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

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

Ευχαριστω

[Meteora]

Καλημέρα

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

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

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

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

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

[Tasos]

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

Η λύση του Δημήτρη είναι σωστή σαν σκεπτικό.
Παράλληλα είναι η μόνη λύση που δεν χρειάζεται 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