10-05-10, 17:31
|
| Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.011
| |
Καλησπέρα!
Με την παρακάτω συνάρτηση μπορείς να αφαιρέσεις τα τελικά Σίγμα από το πεδίο
" Lastname" του πίνακα " tblEmpl": Κώδικας: Function RemoveAscW_962()
Dim strSQL$
strSQL = "Update [tblEmpl] SET [Lastname ] = IIf(AscW(Right$([Lastname ], 1)) = 962," & _
"Left$([Lastname ], Len([Lastname ]) - 1),[Lastname ]) WHERE [Lastname ] <> Null"
CurrentDb.Execute strSQL
End Function
Μάλλον θα τη χρειαστείς για μία και μοναδική φορά.
Τα υπόλοιπα που ήδη έχεις δημιουργήσει, άφησε τα ως έχουν.
Φιλικά
Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |