AccessTr.neT

Tam Versiyon: Alt satırda veri çekme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
modül 12 aşağıdaki ile değiştir.
fakat pstrDelim ile fonksiyona veri göndermenizin bir önemi kalmadı Img-grin
Option Compare Database

Function Concatenate(pstrSQL As String, _
Optional pstrDelim As String = ",") _
As String
'Created by Duane Hookom, 2003
'this code may be included in any application/mdb providing
' this statement is left intact
'example
'tblFamily with FamID as numeric primary key
'tblFamMem with FamID, FirstName, DOB,...
'return a comma separated list of FirstNames
'for a FamID
' John, Mary, Susan
'in a Query
'SELECT FamID,
'Concatenate("SELECT FirstName FROM tblFamMem
' WHERE FamID =" & [FamID]) as FirstNames
'FROM tblFamily
'

'======For DAO uncomment next 4 lines=======
'====== comment out ADO below =======
'Dim db As DAO.Database
'Dim rs As DAO.Recordset
'Set db = CurrentDb
'Set rs = db.OpenRecordset(pstrSQL)

'======For ADO uncomment next two lines=====
'====== comment out DAO above ======
Dim rs As New ADODB.Recordset
rs.Open pstrSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
Dim strConcat As String 'build return string
With rs
If Not .EOF Then
.MoveFirst
Do While Not .EOF
strConcat = strConcat & _
.Fields(0) & vbCrLf
.MoveNext
Loop
End If
.Close
End With
Set rs = Nothing
'====== uncomment next line for DAO ========
'Set db = Nothing
If Len(strConcat) > 0 Then
strConcat = Left(strConcat, _
Len(strConcat) - Len(pstrDelim))
End If
Concatenate = strConcat
End Function


(15/04/2012, 22:35)Kur@l yazdı: [ -> ]modül 12 aşağıdaki ile değiştir.
fakat pstrDelim ile fonksiyona veri göndermenizin bir önemi kalmadı Img-grin

Önemli olan sonuç hocam Img-grin Şimdi bu konu ile alakalı yapmak istediğim bikaç şey daha var ama yeni konu açacağım başlığı bulamadım onun için buradan yazayım mazur görürsünüz umarım.

Hem bunlar yapılırsa Access örneklerine bu çalışmayı accessle chat olarak koyarsınız Img-grin

Ben bu uygulamayı bir projeme ek olarak koyacağım. Projenin tablolarını Mysql'de tutacam ve herkes aynı anda projeyi kullanabilecek. Dolayısı ile bu chat sisteminide herkes aynı anda kullanabilecek.
Bu hali ile uygulama güzel fakat şunlarda yapılabilir mi ?

* tabloya yeni kayıt eklendiğinde scrool yukarıda kalıyor ve yeni eklenen kayıt aşağıda çıkıyor. Ya yeni kayıt yukarıda gözükebilir yada scrool hep aşağıda göstersin.

* Uygulamayı birçok kullanıcı göreceği için a bilgisayarda kayıt girilince b bilgisayarda bu girilen kayıt anlık olarak güncellenebilir mi ? Form Refresh lemi çözmeliyiz bu konuyu acep. Eğer öyle yaparsa sürekli mysql sunucusuna sorgu gönderecek. Bu bize sıkıntı yaratır mı ?

Birde ben a bilgisayarında yeni kayıt girince, b,c,d bilgisayarlarında benim girdiğim yeni kayıt göründüğünde o bilgisayarda bir ses dosyası çalıştırabilirmiyiz.

Şimdiden emek verenler için çok teşekkür ederim.

Edit: Bide hocam örneği ekliyoruz buraya sorunu çözüyorsunuz ama biz inceleyince pek anlamıyoruz. Olayın nasıl yapıldığını yazmak elbet biraz zahmet verir ama biz üyelerin olayı kavraması açısından bence çok önemlidir.
form denetim kaynağını bununla değiştirin son mesaj en üstte geleceektir.
=Concatenate("Select '['&tarih&']'&' '&'('&kim&')'&' '&mesaj FROM TBL_chat order by tarih desc")
Merhaba, tarih alanı sadece saat olduğu için sorun olur muhtemelen. Sıra no ile çözdüm onun yerine.
Sayfalar: 1 2