Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

İyelik Eki Vba Kodu

sadooo
sadooo
Access Cevaplanmış Soruları
5
1811

İyelik Eki Vba Kodu

Çözüldü #1
sadooo
Üye
sadooo
Bul
Üye
Adı Soyadı:
Konum:
Ofis Versiyonu:
Son Oturumu: 04/04/2018,16:58
Yorumları: 23
Konuları: 3
Kayıt Tarihi: 02/05/2017
Teşekkür Puanı: 0
Arkadaşlar merhaba çok aradım ancak herhangi bir kaynak bulamadım. yaptığım evrak programında isimlere gelen ekleri bulmanın bir yolu varmıdır. bir örnek ekledim. nasıl olduğu önemli değil ister tabloda yapsın ister sadece eki bulsun. elinde konuyla ilgili örneği olan varmı. bir arkadaştan aşşağıdaki kodu buldum ama çalışmadı.


Public Function taki1(kelime As String)
Dim t As String
If (Right(kelime, 1) = "A" Or Right(kelime, 1) = "I") Then t = "'nın"
If (Right(kelime, 1) = "E" Or Right(kelime, 1) = "İ") Then t = "'nin"
If (Right(kelime, 1) = "O" Or Right(kelime, 1) = "U") Then t = "'nun"
If (Right(kelime, 1) = "Ö" Or Right(kelime, 1) = "Ü") Then t = "'nün"
If (Left(Right(kelime, 2), 1) = "A" Or Left(Right(kelime, 2), 1) = "I") Then t = "'ın"
If (Left(Right(kelime, 2), 1) = "E" Or Left(Right(kelime, 2), 1) = "İ") Then t = "'in"
If (Left(Right(kelime, 2), 1) = "O" Or Left(Right(kelime, 2), 1) = "U") Then t = "'un"
If (Left(Right(kelime, 2), 1) = "Ö" Or Left(Right(kelime, 2), 1) = "Ü") Then t = "'ün"
If (Left(Right(kelime, 3), 1) = "A" Or Left(Right(kelime, 3), 1) = "I") Then t = "'ın"
If (Left(Right(kelime, 3), 1) = "E" Or Left(Right(kelime, 3), 1) = "İ") Then t = "'in"
If (Left(Right(kelime, 3), 1) = "O" Or Left(Right(kelime, 3), 1) = "U") Then t = "'un"
If (Left(Right(kelime, 3), 1) = "Ö" Or Left(Right(kelime, 3), 1) = "Ü") Then t = "'ün"
taki1 = t
End Function
.zip iyelik eki.zip (Dosya Boyutu: 25,39 KB | İndirme Sayısı: 1)
Cevapla
#2
idrisy
Aktif Üye
idrisy
Bul
Aktif Üye
Adı Soyadı: İd.... YE....
Yaşı: 54
Konum: Osmaniye
Ofis Versiyonu: Ofis 2021 32 Bit
Son Oturumu: Dün,00:27
Yorumları: 224
Konuları: 57
Kayıt Tarihi: 27/12/2008
Teşekkür Puanı: 11
Ben bunun için şöyle bir modül hazırlamıştım.
Kod:
Function isimek(kelime As String) As String
   If Trim(Mid(kelime, (Len(kelime) - 1), 1)) = "A" Then
isimek = "'ın"
ElseIf Trim(Mid(kelime, (Len(kelime) - 1), 1)) = "I" Then
isimek = "'ın"
ElseIf Trim(Mid(kelime, (Len(kelime) - 1), 1)) = "E" Then
isimek = "'in"
ElseIf Trim(Mid(kelime, (Len(kelime) - 1), 1)) = "İ" Then
isimek = "'in"
ElseIf Trim(Mid(kelime, (Len(kelime) - 1), 1)) = "İ" Then
isimek = "'in"
ElseIf Trim(Mid(kelime, (Len(kelime) - 1), 1)) = "O" Then
isimek = "'un"
ElseIf Trim(Mid(kelime, (Len(kelime) - 1), 1)) = "Ö" Then
isimek = "'ün"
ElseIf Trim(Mid(kelime, (Len(kelime) - 1), 1)) = "U" Then
isimek = "'un"
ElseIf Trim(Mid(kelime, (Len(kelime) - 1), 1)) = "Ü" Then
isimek = "'ün"

ElseIf Trim(Mid(kelime, (Len(kelime)), 1)) = "A" Then
isimek = "'nın"
ElseIf Trim(Mid(kelime, (Len(kelime)), 1)) = "I" Then
isimek = "'nın"
ElseIf Trim(Mid(kelime, (Len(kelime)), 1)) = "E" Then
isimek = "'nin"
ElseIf Trim(Mid(kelime, (Len(kelime)), 1)) = "İ" Then
isimek = "'nin"
ElseIf Trim(Mid(kelime, (Len(kelime)), 1)) = "U" Then
isimek = "'nun"
ElseIf Trim(Mid(kelime, (Len(kelime)), 1)) = "Ü" Then
isimek = "'nün"

ElseIf Trim(Mid(kelime, (Len(kelime) - 2), 1)) = "A" Then
isimek = "'ın"
ElseIf Trim(Mid(kelime, (Len(kelime) - 2), 1)) = "I" Then
isimek = "'ın"
ElseIf Trim(Mid(kelime, (Len(kelime) - 2), 1)) = "E" Then
isimek = "'in"
ElseIf Trim(Mid(kelime, (Len(kelime) - 2), 1)) = "İ" Then
isimek = "'in"
ElseIf Trim(Mid(kelime, (Len(kelime) - 2), 1)) = "İ" Then
isimek = "'in"
ElseIf Trim(Mid(kelime, (Len(kelime) - 2), 1)) = "O" Then
isimek = "'un"
ElseIf Trim(Mid(kelime, (Len(kelime) - 2), 1)) = "Ö" Then
isimek = "'ün"
ElseIf Trim(Mid(kelime, (Len(kelime) - 2), 1)) = "U" Then
isimek = "'un"
ElseIf Trim(Mid(kelime, (Len(kelime) - 2), 1)) = "Ü" Then
isimek = "'ün"

End If
End Function
Cevapla
#3
sadooo
Üye
sadooo
Bul
Üye
Adı Soyadı:
Konum:
Ofis Versiyonu:
Son Oturumu: 04/04/2018,16:58
Yorumları: 23
Konuları: 3
Kayıt Tarihi: 02/05/2017
Teşekkür Puanı: 0
hocam nasıl kullanabilirim formda yada tabloda bunu
Cevapla
#4
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Merhaba, sayın @idrisyin eklediği kodun uygulanmış hali ektedir.
.rar iyelik eki_idrisy.rar (Dosya Boyutu: 20,97 KB | İndirme Sayısı: 11)
Cevapla
#5
sadooo
Üye
sadooo
Bul
Üye
Adı Soyadı:
Konum:
Ofis Versiyonu:
Son Oturumu: 04/04/2018,16:58
Yorumları: 23
Konuları: 3
Kayıt Tarihi: 02/05/2017
Teşekkür Puanı: 0
(22/06/2017, 23:47)ozanakkaya yazdı: Merhaba, sayın @idrisyin eklediği kodun uygulanmış hali ektedir.

Hocam nasıl teşekkür edeceğimi bilemedim elinize sağlık.
Cevapla
#6
idrisy
Aktif Üye
idrisy
Bul
Aktif Üye
Adı Soyadı: İd.... YE....
Yaşı: 54
Konum: Osmaniye
Ofis Versiyonu: Ofis 2021 32 Bit
Son Oturumu: Dün,00:27
Yorumları: 224
Konuları: 57
Kayıt Tarihi: 27/12/2008
Teşekkür Puanı: 11
ozanakkaya hocanın cevabına istinaden kodu
Kod:
Me.Metin9 = Me.Metin13 & isimek(Me.Metin13)
eklersen isimle birlikte eki de görebilirsin.
Son Düzenleme: 23/06/2017, 00:43, Düzenleyen: idrisy. (Sebep: yazım yanlışı)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task