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.
Access raporda sıra no yerine alfabe yi kullanma
Merhaba,
Modüldeki kodu aşağıdaki ile değiştiriniz.
Modülün uygulanmış hali ektedir.
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.
Sayın Atoz112,
Sayın husem,
Sayın ozanakkaya,
İlgilerinize teşekkürler.
Sayın husem,
Sayın ozanakkaya,
İlgilerinize teşekkürler.
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.
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.
Sayın Atoz112,
Fazlasıyla işimi gördü. Teşekkürler
Fazlasıyla işimi gördü. Teşekkürler
Konuyu Okuyanlar: 2 Ziyaretçi