اشکال در نمایش کد #

[Abbas Amiri]

با سلام
چنانچه به لینک زیر مراجعه کنید درخط چهارم کد درج شده ، فاصله افتاده است . چطور میتوان ازآن جلوگیری کرد؟
http://barnamenevis.org/showthread.php?366329-%D8%A8%DA%A9-%D8%A2%D9%BE-%D8%AC%D8%AF%D9%88%D9%84-%D9%85%D9%88%D8%B1%D8%AF-%D9%86%D8%B8%D8%B1-%D9%81%D9%82%D8%B7&p=1622961&viewfull=1#post1622961

[MohammadGh2011]

سلام عليکم
شما اين کد رو فکر کنم از سيستم خودتون کپي گرفتين به خاطر همين اينطوري شده ؛ روي ويرايش پست کليک کنيد و سپس فاصله ها رو حذف کنين.

موفق باشيد

[Abbas Amiri]

سلام از بذل توجهتان ممنون . در حالت اصلاح مشکلی ندارد :

Private Sub lstTables_Click()
On Error GoTo NoDescription
If lstTables.Selected(lstTables.ListIndex) Then 'If lstTables.ListIndex <> -1 Then -> use for None MultiSelect
txtDescription = CurrentDb.TableDefs(lstTables.ItemData(lstTables.L istIndex)).Properties("Description")
Else
txtDescription = ""
End If
Exit Sub
NoDescription:
txtDescription = ""
End Sub

کد بالا را کپی گرفتم که در حالت ویرایش بدون نقص نمایش میدهد ولی ....

94697
http://barnamenevis.org/images/misc/pencil.png