14/03/2010, 16:45
metin ayırma
14/03/2010, 16:58
accessman
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
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
14/03/2010, 17:47
ayhan2122
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 14/03/2010, 18:23
accessman
Ellerinize sağlık Sn.ayhan2122
çok güzel olmuş
problemi halletmişsiniz
çok teşekkürler
çok güzel olmuş
problemi halletmişsiniz
çok teşekkürler