+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: metin ayırma (/konu-metin-ayirma.html)
Cvp: metin ayırma - ayhan2122 - 14/03/2010
Şunu bir inceleyin
Cvp: metin ayırma - accessman - 14/03/2010
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
Cvp: metin ayırma - ayhan2122 - 14/03/2010
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 SubCvp: metin ayırma - accessman - 14/03/2010
Ellerinize sağlık Sn.ayhan2122
çok güzel olmuş
problemi halletmişsiniz
çok teşekkürler