+- 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ığı: Access raporda sıra no yerine alfabe yi kullanma (/konu-access-raporda-sira-no-yerine-alfabe-yi-kullanma.html)
Cvp: Access raporda sıra no yerine alfabe yi kullanma - alutlu02 - 25/03/2017
Sayin Atoz112,
Örneğiniz üzerinde biraz oynama yaparak,
a, b, c sıralamanın yanına yeni bir metin kutusuna aa, bb, cc getirdim.
şimdi 3. metin kutusu olan Metin17'ye şart nasıl koşarız.
SiraNumarasi 27'den küçük ise Metin17'ye Metin15'i
SiraNumarasi 27'den büyük ise Metin17'ye Metin116'yi
nasıl getirebiliriz.
Yardımcı olursanız sevinirim.
Cvp: Access raporda sıra no yerine alfabe yi kullanma - ozanakkaya - 25/03/2017
Merhaba,
Modüldeki kodu aşağıdaki ile değiştiriniz.
Public Function Harf(Sn As Long)
On Error Resume Next
Dim GSira1, GSira2 As Integer
GSira1 = IIf(([Sn] - (26 * ([Sn] \ 26))) = 0, "26", ([Sn] - (26 * ([Sn] \ 26))))
GSira2 = IIf([GSira1] = 26, ([Sn] \ 26) - 1, ([Sn] \ 26))
If GSira2 = 0 Then
Harf = Chr(64 + Sn)
Else
Harf = Chr(64 + GSira2) & Chr(64 + GSira1)
End If
Harf = StrConv(Harf, vbLowerCase)
End Function
Modülün uygulanmış hali ektedir.
Cvp: Access raporda sıra no yerine alfabe yi kullanma - alutlu02 - 26/03/2017
Sayın Atoz112,
Sayın husem,
Sayın ozanakkaya,
İlgilerinize teşekkürler.
Cvp: Access raporda sıra no yerine alfabe yi kullanma - atoz112 - 26/03/2017
sayın alutlu02,
EK'te;
bahsettiğiniz talebinize yönelik olarak,
alternatif bir kullanım olması amacı ile hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Cvp: Access raporda sıra no yerine alfabe yi kullanma - alutlu02 - 26/03/2017
Sayın Atoz112,
Fazlasıyla işimi gördü. Teşekkürler