برنامه با اکسس که یک متن را بگیرد و به هر ویرگول که می رسد اون را داخل یه text box جدا ذخیره نماید

[alirazzaghi]

سلام به همه دوستان
لطفا یکی منو راهنمایی کنه
یه برنامه با اکسس میخوام که یک متن را بگیرد و به هر ویرگول که می رسد اون را داخل یه text box جدا ذخیره نماید
این رو هم میدونم که با یکسری از توابع میشه این کار رو کرد
توابع مثل mid , lenth
لطف کنید کمک کنید.
ممنون

[Abbas Amiri]

سلام به همه دوستان
لطفا یکی منو راهنمایی کنه
یه برنامه با اکسس میخوام که یک متن را بگیرد و به هر ویرگول که می رسد اون را داخل یه text box جدا ذخیره نماید
این رو هم میدونم که با یکسری از توابع میشه این کار رو کرد
توابع مثل mid , lenth
لطف کنید کمک کنید.
ممنون

سلام
از تابع Split استفاده کنید . یک نکته در این مورد باید درنظر گرفته شود :
باید چک شود تعداد بخشهای متن از تعداد تکست باکسها بیشتر نباشد و در اینصورت محدودیت ایجاد شود
نمونه زیر به شماکمک می کند .
فرض شده شما 5 تکست باکس دارید که t0 تا t4 نامگذاری شده و تکست باکس اصلی بنام txtMatn است

Private Sub cmdDistribute_Click()
Dim varMatn, str As String, i As Integer, j As Integer
If Not IsNull(txtMatn) Then
varMatn = Split(txtMatn, ",")
j = UBound(varMatn)
If j > 4 Then j = 4
For i = 0 To j
Me.Controls("t" & i) = varMatn(i)
Next
End If
End Sub


یک حلقه هم ایجاد کنید که ابتدا تکست باکسها خالی شود