PDA

View Full Version : multiline & access



morika
چهارشنبه 23 مرداد 1387, 10:53 صبح
با سلام
كسي مي دونه چه جوري ميشه محتويات تكس باكسي رو كه مولتي لاين هست و چند خط تو اون نوشته شده رو به يك فيلد در بانك اكسس انتقال داد؟

xxxxx_xxxxx
چهارشنبه 23 مرداد 1387, 11:00 صبح
تا حالا اين كارو نكردم و نمي دونم كه اصلا ميشه يا نه.
ولي اگه نميشه به خاطر enterي هست كه آخر خط ها خورده.

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

موفق باشيد

morika
چهارشنبه 23 مرداد 1387, 11:10 صبح
تا حالا اين كارو نكردم و نمي دونم كه اصلا ميشه يا نه.
ولي اگه نميشه به خاطر enterي هست كه آخر خط ها خورده.

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

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

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

xxxxx_xxxxx
چهارشنبه 23 مرداد 1387, 11:22 صبح
اين روشي كه دوستمون sohrab o گفتن بهتره. درواقع عملي تر و مطمئن تره.

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

xxxxx_xxxxx
شنبه 26 مرداد 1387, 07:33 صبح
سلام اين دقيقا همون چيزي هست كه شما مي خواين. دستور اصلي همون 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
شنبه 26 مرداد 1387, 11:59 صبح
سلام
فقط كافيه فيلدتون memo باشه همين

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



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

mahdi_rafatjah
شنبه 29 تیر 1392, 12:38 عصر
داداش جایگزین که میکنی جاش بزار <br> تو نمایش درست میشه