Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 06-12-18, 05:48
nasos23 Ο χρήστης nasos23 δεν είναι συνδεδεμένος
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 455
Προεπιλογή

Καλημέρα Μάρω.
Δοκίμασε
Κώδικας:
Private Sub Form_Load()
  DoCmd.SetWarnings False
      On Error Resume Next
        DoCmd.OpenQuery "QryWeekScedules3" 
     [Simera] = Date
    DoCmd.SetWarnings True
End Sub
Απάντηση με παράθεση