Skip to main content

AccessTr.neT


metin ayırma

metin ayırma

Çözüldü #19
Şunu bir inceleyin
.rar hastalıklar.rar (Dosya Boyutu: 121 KB | İndirme Sayısı: 18)
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #20
teşekkürler sn.ayhan2122
18. mesaja bakabilirmisiniz

liste6 güncellendiğinde sadece o hasta ile ilgili sorgulama yapılıyor
güzel olmuş elinize sağlık

birde bu 18. mesajda bahsettiğim virgül konusuna bakabilirmisiniz
@benbendedeilem
Son Düzenleme: 14/03/2010, 17:13, Düzenleyen: accessman.
Cevapla
Çözüldü #21
En son gönderdiğim örnekteki Sorgu2 formunun açıldığında olayına;

Kod:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo HATA
DoCmd.RunSQL "DELETE '*' FROM Tablo1"
Metin6 = Null
For c = 1 To DCount("Sr", "Sorgu2") + 1
If IsNull(Tanı) Then
        DoCmd.GoToRecord , , acNext
Else
    For i = 1 To Len(Tanı)
        If i = 1 Then
            Metin6 = Mid(Tanı, i, 1)
        Else
            If Mid(Tanı, i, 1) = "," And Mid(Tanı, i - 1, 1) = " " Then
            DoCmd.RunSQL "INSERT INTO Tablo1 ( SrNO, Tani ) SELECT Sr, Metin6;"
                Metin6 = ""
            Else
                Metin6 = Metin6 & Mid(Tanı, i, 1)
            End If
        End If
    Next i
        DoCmd.RunSQL "INSERT INTO Tablo1 ( SrNO, Tani ) SELECT Sr, Metin6;"
        DoCmd.GoToRecord , , acNext
End If
Next c
    Forms!RptProtokolDefteriYeni2!Liste10.Requery
    DoCmd.Close

CIKIS: Exit Sub
HATA:  MsgBox Err.Description
       Resume CIKIS

End Sub

Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #22
Ellerinize sağlık Sn.ayhan2122
çok güzel olmuş
problemi halletmişsiniz
çok teşekkürler
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da