Skip to main content

AccessTr.neT


Access raporda sıra no yerine alfabe yi kullanma

Access raporda sıra no yerine alfabe yi kullanma

#13
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.
.rar Maddeisareti-ATOZ22.rar (Dosya Boyutu: 21,2 KB | İndirme Sayısı: 3)
Cevapla
#14
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.
.rar Maddeisareti-sld.rar (Dosya Boyutu: 21,33 KB | İndirme Sayısı: 6)
Cevapla
#15
Sayın Atoz112,
Sayın husem,
Sayın ozanakkaya,

İlgilerinize teşekkürler.
Cevapla
#16
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.
.rar Maddeisareti-ATOZ3.rar (Dosya Boyutu: 27,45 KB | İndirme Sayısı: 3)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#17
Sayın Atoz112,
Fazlasıyla işimi gördü. Teşekkürler
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task