Εμφάνιση ενός μόνο μηνύματος
  #19  
Παλιά 10-05-10, 17:31
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού 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
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση