سوال: تلفیق چند عدد به یک عدد با طول ثابت [بایگانی]

sadegh1944

دوشنبه 29 فروردین 1390, 16:36 عصر

سلام
فرض کنید در نمونه ذیل در تکستهای 1و2و3 میخواهیم به ترتیب اعداد 15و 36 و 957 را وارد کنیم
حالا من میخوام با فشردن دکمه مربوطه اعدادفوق در تکست 4 به یکعدد 10 رقمی بصورت ذیل تبدیل شود
1503600957
لازم بذکر است که فرمت فیلدها از نوع number می باشد و من نمیخوام صفر قبل از عدد (مثلا036) را بصورت دستی وارد کنم و فقط میخوام با فشردن دکمه مربوطه عدد مذکور محاسبه بشه

stabesh

دوشنبه 29 فروردین 1390, 20:59 عصر

با سلام
نفرموده بودید که برای گذاشتن صفر چه قانونی در نظر گرفتید ولی فکر کنم این طوری منظورتون هست

Private Sub Command1_Click()
Text4 = Text1 & Format(Text2, "000") & Format(Text3, "00000")

End Sub