Φιλε μου συγνωμη
Αν βιαζεσαι αυτα παθαινεις
Ανεβαζω 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:


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