AccessTr.neT

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.

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.

Sayın Atoz112,
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.

Sayın Atoz112,
Fazlasıyla işimi gördü. Teşekkürler