10-01-16, 21:11
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 443
| |
Καλησπέρα σε όλους
Γιώργο αν κατάλαβα καλά Κώδικας: 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
|