Merhaba arkadaşlar Rapor1 adlı raporda Adi_Soyadi adlı metin kutusunda maskeleme yapmaktayım "=Left([Adi_Soyadi];3) & "********"" kodunu kullandım örneğin Evren Yorgancı ismini "Evr**********" olarak maskeledi. fakat ben maskelemeyi Evr** Yor***** olarak yapmasını istiyorum. Yardımcı Olabilirmisiniz.?
Dim fullName As String
Dim firstName As String
Dim lastName As String
Dim spacePos As Integer
' Tam ismi almak
fullName = Me.Liste376.Column(7)
' Boşluk konumunu bulmak
spacePos = InStr(fullName, " ")
' İlk isim ve soyisimi ayırmak
If spacePos > 0 Then
firstName = Left(fullName, spacePos - 1)
lastName = Mid(fullName, spacePos + 1)
Else
firstName = fullName
lastName = ""
End If
' Maskeleme işlemi
If Len(firstName) > 3 Then
firstName = Left(firstName, 3) & "**"
Else
firstName = firstName & "**"
End If
If Len(lastName) > 3 Then
lastName = Left(lastName, 3) & "*****"
Else
lastName = lastName & "*****"
End If
' Sonuç
Me.txtSoyadi = firstName & " " & lastName
Sayın @
C*e*l*o*y*c*e ve Sayın @
onur_can Hocalarımızın tavsiye ettiği kodlara ek olarak yapmak istediğiniz isim uzunluğu kadar ve Ad - Soyadı ayrı ayrı maskelemek gördüğüm kadarı ile. Bu durumda 2 adı veya 2 soyadı olanlar için ne olacak sorusu sorulmalı?
Örneğin raporunuza Masked_Adi Soyadi adlı bir textbox ekleyip Adi_Soyadi adlı textboxı sadece kontrol için kullanırsanız mesela Report Open olayında şöyle bir kod kullanılabilir:
Dim AdSoyad As String, Ad1 As String, Ad2 As String, Soyad As String
Dim Ad1Maske As String, Ad2Maske As String, SoyadMaske As String
Dim Spacing As Integer
AdSoyad = Me.Adi_Soyadi
Spacing = InStr(AdSoyad, " ")
If Spacing > 0 Then
'2 Ad veya 2 Soyad varsa durumu
Ad1 = Left(AdSoyad, Spacing - 1) 'İlk adı ayırır
AdSoyad = Mid(AdSoyad, Spacing + 1)
Spacing = InStr(AdSoyad, " ")
If Spacing > 0 Then
Ad2 = Left(AdSoyad, Spacing - 1) 'İkinci adı ve soyadı ayırır
Soyad = Mid(AdSoyad, Spacing + 1)
Ad1Maske = Left(Ad1, 3) & String(Len(Ad1) - 3, "*") 'Ad1 için maskeleme yapar
Ad2Maske = Left(Ad2, 3) & String(Len(Ad2) - 3, "*") 'Ad2 için maskeleme yapar
SoyadMaske = Left(Soyad, 3) & String(Len(Soyad) - 3, "*") 'Soyad için maskeleme yapar
Me.Masked_Adi_Soyadi = Ad1Maske & " " & Ad2Maske & " " & SoyadMaske 'Sonuçları birleştirip yazar
Else
'Sadece 1 Ad ve 1 Soyad varsa durumu
Ad2 = AdSoyad
Ad2Maske = Left(Ad2, 3) & String(Len(Ad2) - 3, "*")
Me.Masked_Adi_Soyadi = Ad1Maske & " " & Ad2Maske
End If
Else
'Eğer boşluk yoksa tam ad olarak kabul ederek sadece adı maskeleme durumu
Me.Masked_Adi_Soyadi = Left(AdSoyad, 3) & String(Len(AdSoyad) - 3, "*")
End If
End Sub
Ancak maskelemede güvenlik için isim uzunluğu kadar bir maskeleme yapmak yerine belirli bir formatta maskeleme yapmak, Ayrıca ilk 3 karakter yerine 1 veya 2. karakterden sonra maskeleme yapmak daha doğrudur, zira üç harften yola çıkarak isim uzunluğundan tahminde bulunmak kolaydır ve ayrıca 3 harfli isimler maskelenmeden gösterilir. Bu hususlara dikkat etmeniz gerekli.
C*e*l*o*y*c*e, onur_can, atoykan ve diğer yardımcı olan tüm üstatlarımızın desteklerinden dolayı teşekkür ederim.