AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Büyük Harfe Çevirme

1 2 3 4
30/05/2020, 13:42

feraz

Alttaki örnek ilede olabilir

xx=StrConv(TextBox1, vbUpperCase)
TextBox1 = StrConv(TextBox1, vbUpperCase)
30/05/2020, 14:25

golf2000

SN.FERAZ Hocam

Vermiş Olduğunuz Visual Basic Code

Olay

Güncelleştirme Sonrasında Bölümüne

Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)

Ekledim Oldu Fakat

ali yazdığımda ALI yazıyor (İ) Harfini Yazmıyor (I) olarak yazıyor

Teşekkürler
30/05/2020, 14:26

feraz

(30/05/2020, 14:25)golf2000 yazdı: SN.FERAZ Hocam

Vermiş Olduğunuz Visual Basic Code

Olay

Güncelleştirme Sonrasında Bölümüne

Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)

Ekledim Oldu Fakat

ali yazdığımda ALI yazıyor (İ) Harfini Yazmıyor (I) olarak yazıyor

Teşekkürler
Rica ederiz.Birde ucase ve replacenin beraber kullanımı var onuda atarım birazdan
30/05/2020, 14:28

golf2000

Teşekkürler Hocam Bekliyorum
30/05/2020, 14:31

feraz

Alttaki gibi kalıp kopyala yapıştır yaptım.ç,ğ gibi harfler içinde ekleyebilirsiniz koda yada array içine alıp döngiylede yapabilirsiniz.

Xx = UCase(replace(replace(Xx, "ı", "I"), "i", "İ"))
Alttaki gibide bir kod buldum deneyemedim mobilden düzenledim küçük harfe çeviriyormuş Çç yerine çÇ ile değiştirin fiğerlerinide.
Kod:
Set deg = CreateObject("VBScript.Regexp")
    deg.Pattern = "[^a-zA-Z0-9\Çç\Ğğ\İi\Iı\Öö\Şş\Üü\ ]"
    deg.Global = True
 
    xx = Trim(deg.Replace(xx, " "))
   
    Set deg = Nothing
xx = deg.Replace(xx) bu şekildede olabilir emin değilim neden Trim yani boşluk kaldırma kodu eklemişler anlamadım.
30/05/2020, 14:42

feraz

Orjinal kodlar altta ordan alıp değiştirdim.

Kod:
Sub Duzenle()

Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Set deg = CreateObject("VBScript.Regexp")
    deg.Pattern = "[^a-zA-Z0-9\Çç\Ğğ\İi\Iı\Öö\Şş\Üü\ ]"
    deg.Global = True

    For i = 1 To Cells(Rows.Count, "FF").End(xlUp).Row
        Cells(i, "FF") = Trim(deg.Replace(Cells(i, "FF"), " "))
    Next i
    Set deg = Nothing

    Columns("FF:FF").TextToColumns Destination:=Range("FF1"), DataType:= _
    xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= _
    True, Space:=True

    Cells.HorizontalAlignment = xlLeft
    Cells.EntireColumn.AutoFit

    Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub
1 2 3 4