Forum - ΑΝΑΝΕΩΣΗ

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - ΑΝΑΝΕΩΣΗ (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/6492-ananeosh.html)

ΑΝΑΝΕΩΣΗ

Καλή σας μέρα στα μέλη,

Στο δείγμα που ανέβασα στη φόρμα PRO όταν προσθέσω στο πρώτο πεδίο π.χ 1767 και στη συνέχεια διαπιστώνω ότι είναι λάθος και το διαγράφω, μου γράφει "#Διαγραμμένο ενώ έχω ζητήσει να γίνεται ανανέωση.

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

Καλησπέρα σε όλους.
Γιώργο δες μια πρόταση.
Κάνε μια προσθήκη "κόκκινα γράμματα" στον κώδικά σου .

Κώδικας:

Private Sub DocTypDC21_AfterUpdate()

    DoCmd.SetWarnings False

    DoCmd.RunCommand acCmdSaveRecord

    DoCmd.OpenQuery "6_9_PRO_EN_ENG", acViewNormal, acEdit

    DoCmd.OpenQuery "7_1_PRO_DIAGR_NULL21", acViewNormal, acEdit

    DoCmd.RunCommand acCmdRefresh

    DoCmd.SetWarnings True

    If Me.DocTypDC21 = "" Then

    Me.Form.Requery

       DoCmd.GoToRecord , , acNewRec

    End If

End Sub

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

Νάσο ευχαριστώ για πολλοστή φορά.

Να είσαι καλά