+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İnstr Fonksiyonu (/konu-instr-fonksiyonu.html)
RE: İnstr Fonksiyonu - accessman - 22/04/2020
evet mantıklı sn. @feraz
RE: İnstr Fonksiyonu - berduş - 22/04/2020
bir önceki konunuza yazdığım fonksiyon zaten önce harfin sırasını bulup öyle değiştiriyordu
fonksiyonu düzelttim incelerseniz anlarsınız.
RE: İnstr Fonksiyonu - feraz - 22/04/2020
Yani alttaki gibi bişeyler olabilir kafadan tam yazamadım
Gerisini tamamlayabilirsiniz.
For i = 1 to len(kelime)
İf mid(kelime,i,1)= "i" then
Say = say+1
İf say = 6 then
End if
End if
NextRE: İnstr Fonksiyonu - feraz - 22/04/2020
Say olayına gerek yok i yi diziye alabilirsiniz
RE: İnstr Fonksiyonu - accessman - 22/04/2020
sn. @berduş çözümü güzel çalışıyor
Private Sub degis()
Dim intSira As Integer, txtMtn As String, txtBul As String, txtDgs As String
txtMtn = "MUVAFFAKİYETSİZLEŞTİRİCİLEŞTİRİVEREMEYEBİLECEKLERİMİZDENMİŞSİNİZCESİNESİNİZ"
intSira = 8
txtBul = "İ"
txtDgs = " $€£ "
MsgBox degisHrf(txtMtn, intSira, txtBul, txtDgs)
End Sub
Function degisHrf(txtMtn As String, intSira As Integer, txtBul As String, txtDgs As String) As String
On Error GoTo Err_hata
Dim result As String
Dim x, y As Integer
y = 0
For x = 1 To intSira
y = InStr(y + 1, txtMtn, txtBul)
Next x
result = Left(txtMtn, y - 1) & txtDgs & Mid(txtMtn, y + Len(txtBul))
Exit_kod:
degisHrf = result
Exit Function
Err_hata:
result = txtMtn
MsgBox Err.Description
Resume Exit_kod
End Function
RE: İnstr Fonksiyonu - feraz - 22/04/2020
Çok garip bir durum.Sözler tükendi
Yarış atı gibi olduk.