Ms Access function help.

[alazarou]

Να κάνω μια ερώτηση γιατί έχω κολλήσει…

θέλω να κάνω update σε ένα Access table το οποίο περιέχει Ελληνικές λέξεις, θέλω να μετατρέψω τις λέξεις σε κεφαλαία (ucase) χωρίς τόνους.

Αυτό το χωρίς τόνους με έχει δυσκολέψει λίγο…any help με κάποιο function που μου διαφεύγει.

 

thanks.

[koYkoY_koYkoY]

Θα μπορούσες να συμπεριλάβεις τον παρακάτω κώδικα ο οποίος νομίζω καλύπτει όλες τις πιθανές περιπτώσεις τονισμένων ελληνικών χαρακτήρων.

 

>
[color=navy]Option Compare Database
Option Explicit
[/color][color=navy]Private[/color] strMyString [color=navy]As String[/color]

[color=navy]Private Function[/color] MakeGreekUpperCase(strMyString [color=navy]As String[/color])
strMyString = UCase(strMyString)

[color=navy]Dim[/color] lngLength [color=navy]As Long
[/color]lngLenght = Len(strMyString)

[color=navy]Dim[/color] strCharacter [color=navy]As String[/color]
[color=navy]Dim[/color] intStart [color=navy]As Integer[/color]

[color=navy]For[/color] intStart = 1 [color=navy]To[/color] lngLenght
   strCharacter = Mid(strMyString, intStart, 1)

   [color=navy]Select Case[/color] Mid(strMyString, intStart, 1)
       [color=navy]Case Is[/color] = "Ά"
               strCharacter = "Α"
               [color=navy]Exit For
[/color]        [color=navy]Case Is[/color] = "Έ"
               strCharacter = "Ε"
               [color=navy]Exit For
[/color]        [color=navy]Case Is[/color] = "Ή"
               strCharacter = "Η"
               [color=navy]Exit For[/color]
       [color=navy]Case Is[/color] = "Ί"
               strCharacter = "Ι"
               [color=navy]Exit For
[/color]        [color=navy]Case Is[/color] = "Ό"
               strCharacter = "Ο"
               [color=navy]Exit For[/color]
       [color=navy]Case Is [/color]= "Ύ"
               strCharacter = "Υ"
               [color=navy]Exit For
[/color]        [color=navy]Case Is[/color] = "Ώ"
               [color=black]strCharacter [/color]= "Ω"
               [color=navy]Exit For
[/color]        [color=navy]Case Else
[/color]                strCharacter = ""
   [color=navy]End Select[/color]
[color=navy]Next[/color]

[color=navy]If[/color] strCharacter <> "" [color=navy]Then[/color]
   [color=navy]If[/color] intStart = 1 [color=navy]Then[/color]
       strMyString = strMyString
   [color=navy]Else[/color]
       strMyString = Left(strMyString, intStart - 1) & strCharacter & Right(strMyString, lngLenght - intStart)
   [color=navy]End If
[/color][color=navy]Else[/color]
   strMyString = strMyString
[color=navy]End If
End Function
[/color]

[alazarou]

Με μερικές αλλαγές έπαιξε … Thanks!!