[nasos23]

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

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

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