Forum - Εμφάνιση ενός μόνο μηνύματος - Αποθήκευση εγγραφής

#2 13-03-09, 08:00

Καλημέρα σε όλους!

Φίλε μου, εγώ θα πρόσθετα ένα βοηθητικό πεδίο (Dummy) στον πίνακα της φόρμας
με το οποίο θα δέσμευα το Combo21 κι έτσι θα
μπορούσα εύκολα να να ελέγχω όλες τις αλλαγές σε κάθε εγγραφή.

Κατόπιν θα έφτιαχνα τον κώδικα μου κάπως έτσι:

Κώδικας:

Option Explicit
Dim cboListIndex&, cboValue

Private Sub Form_Load()
    cboListIndex = Combo21.ListIndex
End Sub

Private Sub Form_Current()
    cboListIndex = Combo21.ListIndex
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
    With Me
        Select Case MsgBox("Save changes...?", _
                vbQuestion + vbYesNoCancel + vbDefaultButton3, "Save changes...")
            Case vbCancel
                Cancel = True
            Case vbNo
                cboValue = .Combo21.Column(0, IIf(cboListIndex = -1, Null, cboListIndex))
                .Undo
                .Combo21 = cboValue
                If Me.NewRecord Then DoCmd.GoToRecord , , acLast
            Case vbYes
                Me.ID1 = Me.Combo21
        End Select
    End With
End Sub

όπου "+ vbDefaultButton3" είναι το κουμπί του διαλόγου που θα έχει την εστίαση (ίσως χρειαστεί προσαρμογή).

Φιλικά

Θέμα: Αποθήκευση εγγραφής - μεταβολών φόρμας