Θέμα: Αλλαγή DefaultValue

Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 10-01-16, 20:11
nasos23 Ο χρήστης nasos23 δεν είναι συνδεδεμένος
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
  
Εγγραφή: 14-10-2010
Μηνύματα: 446
Προεπιλογή
Καλησπέρα σε όλους
Γιώργο αν κατάλαβα καλά
Κώδικας:
Private Sub field1_AfterUpdate()
If (Me.field1) <> "" Then
 Me.field2 = Me.field1
 
 Else
  Me.field2.DefaultValue = 2
  DoCmd.Save
  End If
End Sub

Private Sub Form_Current()
  If (Me.field1) <> "" Then
   Me.field2 = Me.field1
 
    Else
  Me.field2.DefaultValue = 2
   End If
  End Sub
Απάντηση με παράθεση