Alıntı:Mevcut sıralamayı bozmadan 1 2 3 .... 9 10 11 şeklinde bir id ler veren bir sorgu yazabilseydim
ifadenize yönelik olarak,
bir çözüm önerisi olması adına,aşağıdaki açıklamanın yapılması uygun görülmüştür.
Talep ettiğiniz sıralamayı edinmek için;
1)
Aşağıdaki kodları yeni bir Modül oluşturmak sureti ile içeriğine kaydediniz.
Kod:
Function fSortCode(sPassed As String) As String
Dim sLZTemp As String
Dim iLZCount As Integer
Dim sNumTemp As String
Dim iNumCount As Integer
While Len(sPassed)
'is the first character a number?
If IsNumeric(Left(sPassed, 1)) Then
While IsNumeric(Left(sPassed, 1))
If Left(sPassed, 1) = "0" And iNumCount = 0 Then
iLZCount = iLZCount + 1 'Leading Zero counter
Else
iNumCount = iNumCount + 1 'significant digit counter
sNumTemp = sNumTemp & Left(sPassed, 1) 'remember all significant digits
End If
sPassed = Mid(sPassed, 2) 'loop on next character
Wend
'Leading Zeros counted, significant digits counted...
sLZTemp = sLZTemp & Format(iLZCount, "00") 'leading zero sort code for later...
sNumTemp = Format(iNumCount, "00") & sNumTemp
fSortCode = fSortCode & sNumTemp
iNumCount = 0 'reset for next imbedded digit string...
iLZCount = 0
sNumTemp = ""
End If
'next character not a number, loop on next character in string...
fSortCode = fSortCode & Left(sPassed, 1)
sPassed = Mid(sPassed, 2)
Wend
fSortCode = fSortCode & " " & sLZTemp 'concatenate leading zero sort code
End Functionİster mevcut sorgu üzerinde veyahut da isterseniz de İlgili mevcut sorguda
1 2 3 .... 9 10 11
Yukarıdaki sıralama durumunu vermesi adına,ya mevcut id alanı varsa bu alan üzerinden ya da sıralamayı neye göre yaptıracaksanız o alan üzerinden olmak sureti ile,sorguda
Kod:
siralat:fSortCode([id_alan_adi])Bu hali ile bir denemede bulununuz.olası soruna veya hataya maruz kalırsanız;gerek hatanın ekran görüntüsünü ve gerekse de mevcut örnek uygulamanızı,içeriğinde farazi gerçek dışı uydurma veriler ve sonuçları görebilmek adına da birkaç kayıt olacak şekilde konunuza dahil ediniz.
Bilginize…iyi çalışmalar,saygılar.
