Formdaki Metin Kutularını Ayrı Kayıtlarla Doldurma

29/05/2016, 20:25

furkanulu

Access üzerinde
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

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.
30/05/2016, 13:17

furkanulu

(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.
-----------------------


Hocam Dlookup fonksiyonunu inceledim ama benim sorunum biraz daha spesifik elimde net veriler yok sorgudan geliyorlar. SortBy sütununda tekrar eden bazı veriler var. Mevcut sıralamayı bozmadan 1 2 3 .... 9 10 11 şeklinde bir id ler veren bir sorgu yazabilseydim Dlookup fonksiyonu çok işime yarardı fakat şu anda verileri istediğim gibi çekemiyorum.
30/05/2016, 13:41

atoz112

Sayın furkanulu,

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

2)
İ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])

kod satırını yazınız ve bu yeni sütunun SIRALA satırını da ARTAN olarak belirtiniz.

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.
30/05/2016, 13:47

furkanulu

Teşekkürler sorunum çözüldü
30/05/2016, 13:50

atoz112

sayın furkanulu,

sorununuzun çözülmesi sizin adınıza olumlu bir gelişme.

çözümünüzü içeren hali ile örnek uygulamanızı,
konunuzu da inceleyecek olanlara yönelik olarak konunuza eklemeniz ve paylaşma isteği içinde olmanız temennisi ile.

bunu,aşağıda bağlantısı yazılı konunuza da uygulayabilirsiniz.

Futbolcu Veritabanı üzerinde arama formu oluşturma

bilginize...iyi çalışmalar,saygılar.