28-04-12, 15:33
|
| Όνομα: Πάκος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 17-12-2011 Περιοχή: Θεσσαλονικη
Μηνύματα: 171
| |
Σ΄ ευχαριστώ το βρήκα
για κάποιους που θα τύχει να το χρειαστούν
Private Sub Ανάγκες_AfterUpdate()
If [Γλώσσα] = "Ελληνικά" Then
[Ανάγκες] = Me.Ανάγκες.Column(2) <----- Δίνει την τιμή της συνθήκης
Else
[Ανάγκες] = Me.Ανάγκες.Column(0) <------ Δίνει τη τιμή προεπιλογής από το σύνθετο πλαίσιο
End If
End Sub
|