ورود

View Full Version : سوال: با زدن یک دکمه از تکست باکس 1کپی و در تکست باکس 2 ریخته شود به صورتیکه اعلاعات تکست باک 2 پاک نشود



lorzadehj
جمعه 09 آبان 1399, 13:05 عصر
با سلام خدمت اساتید محترم
من یک فایل اکسس دارم که می خواهم با زدن یک دکمه ، اطلاعات text box 1 کپی و در text box 2 ریخته شود
اما نمی خواهم که اطلاعات text box 2 پاک شود
در حقیقت می خواهم که اطلاعات text box 1 به text box 2 اضافه شود و
البته زیر هم نه به صورت پیوسته
با تشکر فراوان

padide55
جمعه 09 آبان 1399, 20:04 عصر
درقسمت click boton بنویس
dim texta as integer
texta =text2 &" " & text1
text2= texta

بینشون هم فاصله گذاشتم ولی اگر کاما یا خط فاصله هم بینشون میخواید داخل گیومه در وسط اضافه کنید

lorzadehj
شنبه 10 آبان 1399, 15:40 عصر
عزیزجان
ممکنه من بد بیان کردم
فایل رو براتون می گذارم اگر ممکنه لطفا روی فایل درست کنید
ممنونم

lorzadehj
شنبه 10 آبان 1399, 15:47 عصر
من می خواهم اگر در باکس cell1 هرچیزی نوشته بود بازدن دکمه ارسال به cell2 ریخته بشه تا اینجا که مشکلی نیست اما مشکل از جایی هست که وقتی با زدن دکمه ، cell3 به cell2 ریخته می شه محتویات قبلی cell2 پاک می شه در صورتیکه من می خواستم محتویات جدید در سطر بعدی توی cell2 ذخیره بشه
با تشکر

padide55
شنبه 10 آبان 1399, 17:43 عصر
سلام
اول باید کد 2رو با کد خط بعد وکد 3 ذخیره موقت کنید .مثلا در aaa
سپس aaa را به کد 2بفرستید .
برای خط بعد
& Chr(10) & Chr(13) &
برای رفتن به خط بعد از این کد استفاده کنید


Dim aaa As String


aaa = cell2 & Chr(10) & Chr(13) & cell3
cell2 = aaa

این دو کد کار دکمه & "Press Ctrl+Enter here" &
را انجام مییده . new line
توجه
در فایل ضمیمه کد cell2
اشتباه تایپ شده .
مطابق کد بالا اصلاح بشه

lorzadehj
شنبه 10 آبان 1399, 18:23 عصر
از لطفتون بسیار ممنونم
جوابم رو به درستی گرفتم
من
& Chr(10) & Chr(13) &
رو انجام می دادم اما چون
cell2 رو cell2.value می زدم جواب نمی داد
البته شاید هم ربطی نداشته باشه
حالا احتمالا کسی کد برای Left to Right Text Direction nhvi
به هر حال خیلی ممنونم

lorzadehj
یک شنبه 11 آبان 1399, 12:25 عصر
اساتید محترم

کسی کد برای Left to Right Text Direction داره؟

padide55
یک شنبه 11 آبان 1399, 12:41 عصر
اساتید محترم

کسی کد برای Left to Right Text Direction داره؟


این کد رو امتحان کنید .

Field2.TextAlign = 1

عدد 1 رو تغییر بدین . هر کدوم که خواستید

General = 0 (Default) The text aligns to the left; numbers and dates align to the right.
Left = 1 The text, numbers, and dates align to the left.
Center = 2 The text, numbers, and dates are centered.
Right = 3 The text, numbers, and dates align to the right.
Distribute = 4 The text, numbers, and dates are evenly distributed.

lorzadehj
یک شنبه 11 آبان 1399, 16:44 عصر
نه عزیز جواب نداد
البته چینش تکست رو تغییر میده ولی منظور من
Left to Right Text Direction هستش

padide55
یک شنبه 11 آبان 1399, 19:47 عصر
میخواید چه کار انجام بشه .متوجه نشدم .
تنظیمات خود فیلد رو بررسی کنید.

lorzadehj
دوشنبه 12 آبان 1399, 11:20 صبح
من می خواهم محتوای تکست توسط text direction راست چین بشه
خیلی گشتم ولی کدی براش پیدا نکردم

padide55
دوشنبه 12 آبان 1399, 12:05 عصر
سلام
این هم کد

Field2.ReadingOrder = 0


فرمت 0 یا 1 یا 2 قراربدین
توضیحات اینجا




Context
0
Reading order is determined by the language of the first character entered.

If a right-to-left language character is entered first, reading order is right to left.

If a left-to-right language character is entered first, reading order is left to right.


Left-to-Right
1
Sets the reading order to left to right.


Right-to-Left
2
Sets the reading order to right to left.

lorzadehj
دوشنبه 12 آبان 1399, 12:31 عصر
بسیار ممنونم
عالی بود

padide55
دوشنبه 12 آبان 1399, 13:00 عصر
بسیار ممنونم
عالی بود

خواهش میکنم
ولی در تنظیمات خود فیلد این کار رو دائمی انجام میدادید بهتر بود .
استفاده از کد زمانی موثر هست که گاها مجبور باشید خصوصیات فیلد رو تغییر بدین .