İff de merak ettiğim

1 2 3
16/11/2011, 14:21

accestr seven

Sn BlackEagle size de teşekkür ederim.Değerli Yöneticiler Dosyamı gönderecektim.Dosya ekle butonunu göremedim.Sadece resim ekle butonu var.Bu aşamada nasıl dosya gönderecem Saygılar
16/11/2011, 15:01

Seruz

Örnek dosya eklemeyi tekrar dener misiniz?
17/11/2011, 01:03

accestr seven

Sn Seruz Düzenleme yaparsanız sevinirim.Dosya ektedir Saygılarımla
17/11/2011, 01:35

Seruz

Buyrun, Profil tablosu oluşturdum ve KISILER tablosuna bu tabloyla bağlantıyı sağlayan Profil_ID alanını ekledim.
KISILER tablosundaki Adres_iletisim_Profil alanını kaldırıp bunun yerine Profil_ID alanını doldurmanız yeterli.
17/11/2011, 11:21

accessman

bu örnekteki
cntc modülündeki
Kod:
Function Concatenate(pstrSQL As String, Optional pstrDelim As String = ";") As String

On Error GoTo hata

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset(pstrSQL)


    Dim strConcat As String 'build return string
    With rs
        If Not .EOF Then
            .MoveFirst
            Do While Not .EOF
                strConcat = strConcat & .Fields(0) & pstrDelim
                .MoveNext
            Loop
        End If
        .Close
    End With
    Set rs = Nothing
    Set db = Nothing
    If Len(strConcat) > 0 Then
        strConcat = Left(strConcat, Len(strConcat) - Len(pstrDelim))
    End If
    Concatenate = strConcat
hata:
    Exit Function
End Function

ne işe yarıyor
17/11/2011, 12:00

accestr seven

Sn Seruz teşekkür ederim ilginize
Merak ettiğim şey şu.
Profil ID düzenlemişsiniz.Ben herhangi bir yeni kişi kaydettiğimde ,bu kişinin Profil ID nedir ? Bunu nasıl bulacam.Herhalde , Dönüp ana tabloya bakıp oradaki numarayı elle girecem.Girmem gereken ID numararası için kolay bir seçenek var mıdır?
Yoksa bu iki tabloyu birleştirmem mi gerekiyor.Bunu biraz daha kolay hale getirebilirmiyiz? Saygılar
Teşekkür ederim.



1 2 3