18-05-24, 14:39
|
Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 438
| |
Καλησπέρα σε όλους.
Γιώργο δες μια πρόταση.
Κάνε μια προσθήκη "κόκκινα γράμματα" στον κώδικά σου . Κώδικας: 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
Καλή συνέχεια.
Τελευταία επεξεργασία από το χρήστη nasos23 : 18-05-24 στις 18:21.
Αιτία: Διόρθωση
|