26-11-19, 17:30
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Στον κώδικά σου άφησα μόνο μία γραμμή: Κώδικας: Private Sub Text2_AfterUpdate()
Me.Text2=Replace(UCase(Me.Text2),"ς","Σ")
End Sub
|