tasarımında bir formum var. Ve ayrıca elimde
şeklinde bir union sorgu tablosu bulunmakta. Bu verileri tek tek formdaki formasyona doğru sıralamayla nasıl yerleştirebilirim?
Şimdiden teşekkürler iyi forumlar.
(29/05/2016, 20:34)atoz112 yazdı: sayın furkanulu,
bahsettiğiniz talebinize yönelik olarak;
DLOOKUP Fonksiyonu kullanımını,site arama sayfasında araştırmak sureti ile inceleyiniz.
bu fonksiyonu,
ilgili form üzerindeki her bir denetimin kendi DENETİM KAYNAĞI satırlarına yazdırabilirsiniz.
bilginize...iyi çalışmalar,saygılar.
-----------------------
Alıntı:Mevcut sıralamayı bozmadan 1 2 3 .... 9 10 11 şeklinde bir id ler veren bir sorgu yazabilseydim
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
siralat:fSortCode([id_alan_adi])