قالب بندی TEXT BOX [بایگانی]

mohammadpo

جمعه 10 دی 1389, 17:17 عصر

سلام خدمت دوستان

میخواستم بدونم که چطوری میتونم محتویات تکس باکس که اعداد نوشته میشه بین هر سه رقم یک (, ) قرار بگیره مثل یک ماشین حساب

ممنون میشم

shedayat

جمعه 10 دی 1389, 22:16 عصر

سلام بفرما.
Text1.Text = Format(Text1.Text, "###,###")

موفق باشی.

mohammadpo

جمعه 17 دی 1389, 00:08 صبح

با سلام مجدد دوست من با این فرمت درست کار نکرد یعنی بعد از 5 رقم دیگه نمیشه نوشت

mahmood_s

شنبه 18 دی 1389, 12:42 عصر

Private Sub Text3_Change()
Text3 = Format(Text3, "###,###"): SendKeys "{end}"
End Sub

mohammadpo

پنج شنبه 23 دی 1389, 20:49 عصر

با سلام خدمت دوستان

من با کد sql یه جستجو انجام میدم و نتیجه تو dsts grid نمایش داده میشه حالا سوالم اینه که مثلا تو دیتا بیس که من جستجو میکنم مثلا از عدد 100 توی اون فیلد 10تا و عدد 200 مثلا پانزده تا وجود داره و من میخوا تو دیتا گرید فقط یک 100 .و یک 200 نشون داده بشه نه همه آنها

این هم کد من

w = "SELECT * FROM faktor WHERE mid Like " & "'" & Trim(Text5.Text) & "%' order by fid"

Adodc2.RecordSource = w
Adodc2.Refresh

Set DataGrid1.DataSource = Adodc2
DataGrid1.RecordSelectors = True
DataGrid1.Refresh

مرسی از زحمات شما