multiline & access

[morika]

با سلام
كسي مي دونه چه جوري ميشه محتويات تكس باكسي رو كه مولتي لاين هست و چند خط تو اون نوشته شده رو به يك فيلد در بانك اكسس انتقال داد؟

[xxxxx_xxxxx]

تا حالا اين كارو نكردم و نمي دونم كه اصلا ميشه يا نه.
ولي اگه نميشه به خاطر enterي هست كه آخر خط ها خورده.

براي همين قبل از وارد كردن text به db ميگرديم و هرجا تو text كد 10و13 وجود داشت حذفش مي كنيم و بجاش space مي زاريم.

موفق باشيد

[morika]

تا حالا اين كارو نكردم و نمي دونم كه اصلا ميشه يا نه.
ولي اگه نميشه به خاطر enterي هست كه آخر خط ها خورده.

براي همين قبل از وارد كردن text به db ميگرديم و هرجا تو text كد 10و13 وجود داشت حذفش مي كنيم و بجاش space مي زاريم.

موفق باشيد

ميشه بيشتر توضيح بدي؟

[sohrab o]

بجای تکست باکس از Rich edit استفاده کن و نوع فیلد داخل اکسس رو از نوع memo بگیر.در آخر بجای اینکه rich1.text رو داخل بانک بریزی ، rich1.rtf رو داخل بانکت بریز.البته RTF یک فرمت خاصی برای نمایش متنه، مثل word ، اگه خود اطلاعات رو بدون فرمت خاصی لازم داشتی یک فیلد دیگه هم بگیر که rich1.text رو ذخیره کنه.پس 2 فیلد داری یکی برای نمایش در rich یکی هم مقدار اصلی بدون هیچ فرمتی برای اعمالی مثلا جستجو.
.
.
.
.
فرمت RTF :مثل فرمت HTML که داده ها بین تگ ها قرار میگیره ، تشکیل شده از تعدادی تگ برای مشخص کردن رنگ ، سایز فونت و ....

[xxxxx_xxxxx]

اين روشي كه دوستمون sohrab o گفتن بهتره. درواقع عملي تر و مطمئن تره.

اوني كه من گفتم دردسر داره حلقه مي خواد و بررسي تك تك كاراكترها.

[xxxxx_xxxxx]

سلام اين دقيقا همون چيزي هست كه شما مي خواين. دستور اصلي همون bold شده هست.
كه با استفاده از تابع Replace هرجاي text1 كه Enter باشه بجاش space ميزاره. عدد يك يعني از كاراكتر اول بگرده.
نكته: vbCrLf همون Enter هست يعني مجموع كدهاي 10و13 كه توي msgbox ها و فايل ها خيلي كاربرد داره.
به عكس ضميمه هم يك نگاه بندازيد بد نيست.

Private Sub Command1_Click()

Dim S As String

S = Replace(Text1.Text, vbCrLf, " ", 1)

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("ID") = S

Adodc1.Recordset.Update

End Sub

[vbhamed]

سلام
فقط كافيه فيلدتون memo باشه همين

[Mbt925]

سلام اين دقيقا همون چيزي هست كه شما مي خواين. دستور اصلي همون bold شده هست.
كه با استفاده از تابع Replace هرجاي text1 كه Enter باشه بجاش space ميزاره. عدد يك يعني از كاراكتر اول بگرده.
نكته: vbCrLf همون Enter هست يعني مجموع كدهاي 10و13 كه توي msgbox ها و فايل ها خيلي كاربرد داره.

این جایگزینی اصلا کار درستی نیست.
با این کار متن دیگه قابل برگشت به متن اولیه نخواهد بود.

[mahdi_rafatjah]

داداش جایگزین که میکنی جاش بزار <br> تو نمایش درست میشه