با سلام
كسي مي دونه چه جوري ميشه محتويات تكس باكسي رو كه مولتي لاين هست و چند خط تو اون نوشته شده رو به يك فيلد در بانك اكسس انتقال داد؟
Printable View
با سلام
كسي مي دونه چه جوري ميشه محتويات تكس باكسي رو كه مولتي لاين هست و چند خط تو اون نوشته شده رو به يك فيلد در بانك اكسس انتقال داد؟
تا حالا اين كارو نكردم و نمي دونم كه اصلا ميشه يا نه.
ولي اگه نميشه به خاطر enterي هست كه آخر خط ها خورده.
براي همين قبل از وارد كردن text به db ميگرديم و هرجا تو text كد 10و13 وجود داشت حذفش مي كنيم و بجاش space مي زاريم.
موفق باشيد
ميشه بيشتر توضيح بدي؟نقل قول:
نوشته شده توسط xxxxx_xxxxx
بجای تکست باکس از Rich edit استفاده کن و نوع فیلد داخل اکسس رو از نوع memo بگیر.در آخر بجای اینکه rich1.text رو داخل بانک بریزی ، rich1.rtf رو داخل بانکت بریز.البته RTF یک فرمت خاصی برای نمایش متنه، مثل word ، اگه خود اطلاعات رو بدون فرمت خاصی لازم داشتی یک فیلد دیگه هم بگیر که rich1.text رو ذخیره کنه.پس 2 فیلد داری یکی برای نمایش در rich یکی هم مقدار اصلی بدون هیچ فرمتی برای اعمالی مثلا جستجو.
.
.
.
.
فرمت RTF :مثل فرمت HTML که داده ها بین تگ ها قرار میگیره ، تشکیل شده از تعدادی تگ برای مشخص کردن رنگ ، سایز فونت و ....
اين روشي كه دوستمون sohrab o گفتن بهتره. درواقع عملي تر و مطمئن تره.
اوني كه من گفتم دردسر داره حلقه مي خواد و بررسي تك تك كاراكترها.
سلام اين دقيقا همون چيزي هست كه شما مي خواين. دستور اصلي همون 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
سلام
فقط كافيه فيلدتون memo باشه همين
این جایگزینی اصلا کار درستی نیست.نقل قول:
نوشته شده توسط xxxxx_xxxxx
با این کار متن دیگه قابل برگشت به متن اولیه نخواهد بود.
داداش جایگزین که میکنی جاش بزار <br> تو نمایش درست میشه