Strconv(xxx.value,vbUpperCase) deyimi

[Bosnalı Yasemin]

Merhaba sitede bulduğum bir stok programında STOK BUL düğmesine bağlı aşağıdaki kodlar var. Bu kodlar hakkında kısaca bilgi verebilecek bir arkadaş var mı? Özellikle başlıktaki deyimin naıl kullanılacağı hakkında...Birçok yere baktım ama anlayamadım.


Private Sub cmdbul_Click()
Dim ser As Range
For Each ser In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(ser.Value, vbUpperCase) = StrConv(txtstokadi.Value, vbUpperCase) Then
ser.Select
txtsira.Value = ActiveCell.Offset(0, -1).Value
txtstokkodu.Value = ActiveCell.Offset(0, 1).Value
txttel.Value = ActiveCell.Offset(0, 3).Value
txtyetkili.Value = ActiveCell.Offset(0, 4).Value
Exit Sub
End If
Next ser
MsgBox "Aradığınız isimde bir kayıt bulunamadı Yada Stok Adı Kısmı Şu anda Boş olabilir...", vbInformation
End Sub

 

[Necdet]

Merhaba,

If StrConv(ser.Value, vbUpperCase) = StrConv(txtstokadi.Value, vbUpperCase) Then

ser ve txtstokadi değerlerini önce büyük harfe çeviriyor sonra eşit mi diye kontrol ediyor.

Büyük ve Küçük harf duyarlılığını kaldırmak için.

Bunun başka yolu ise optionlarda tanımla da yapılabilir.

Option Compare Text kullanılırsa StrConv fonksiyonunu kullanmaya gerek kalmaz.

 

[Bosnalı Yasemin]

Çok teşekkür ediyorum, anladım.