پرسش: ثبت اطلاعات از یک تکس باکس به تکس باکس دیگر [بایگانی]

PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : پرسش: ثبت اطلاعات از یک تکس باکس به تکس باکس دیگر

میثم مقدم نیا

2019/06/28, 09:37

میثم مقدم نیا

2019/06/28, 11:25

با سلام

من دوتا یوزر فرم ایجاد کردم که وقتی در یوزر فرم یک روی تکس باکس ها دابل کلیک میکنم یوزر فرم دوم باز میشه حالا میخوام با زدن کلیدثبت اطلاعات تکس باکس یوزر فرم دو به تکس باکسی که در یوزرفرم یک روش دابل کلیک کردم منتقل بشه

من این مبحث حلقه کردن رو یاد نگرفتم
آیا امکانش هست کد زیر را حلقه کنیم و برای تمام تکس باکس ها ننوشت

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
End Sub

ممنون از لطف شما اساتید عزیز

البته برای انتقال اطلاعات از کد زیر استفاده کردم ولی این برای یک تکس باکس عمل میکنه

Private Sub CommandButton1_Click()

UserForm1.TextBox1.Value = UserForm2.TextBox1.Value
Unload Me

End Sub

میثم مقدم نیا

2019/06/30, 05:40

سلام
دوستان آیا کسی هست که بتونه کمکم کنه ؟

میثم مقدم نیا

2019/07/04, 06:34

سلام
دوستان و اساتید عزیز لطفاً راهنمایبم کنید اگه راه حلی نداره بازهم اینجا اعلام کنید که دیگه من نبالش نباشم

iranweld

2019/07/04, 07:17

میثم مقدم نیا

2019/07/05, 07:21

با سلام

فایل پیوست این پست که یک تقویم باز شونده هستش را بررسی کنید شاید مشکل شما حل شود

لینک (https://forum.exceliran.com/showthread.php/15245-%D8%AA%D9%82%D9%88%DB%8C%D9%85-%D8%A8%D8%A7%D8%B2%D8%B4%D9%88%D9%86%D8%AF%D9%87?p =70646&viewfull=1#post70646)

ممنون از راهنمایتون ولی این جواب من نبود
1=
Range("h14") = Label54.Caption

2=
UserForm1.TextBox6.Text = Label54.Caption

در مورد اولی تو سلول کپی میشه
و در مورد دومی فقط تو یک TextBox کپی میشه

خال من میخوام وقتی در یوزر فرم اولم روی تکس باکس ها دابل کلیک میکنم یوزر فرم دوم که باز میشه میخوام با زدن کلیدثبت اطلاعات تکس باکس یوزر فرم دو به تکس باکسی که در یوزرفرم اولم روش دابل کلیک کردم منتقل بشه

ممنون میشم کمک کنید

M_ExceL

2019/07/05, 11:51

با سلام

من دوتا یوزر فرم ایجاد کردم که وقتی در یوزر فرم یک روی تکس باکس ها دابل کلیک میکنم یوزر فرم دوم باز میشه حالا میخوام با زدن کلیدثبت اطلاعات تکس باکس یوزر فرم دو به تکس باکسی که در یوزرفرم یک روش دابل کلیک کردم منتقل بشه

من این مبحث حلقه کردن رو یاد نگرفتم
آیا امکانش هست کد زیر را حلقه کنیم و برای تمام تکس باکس ها ننوشت

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
End Sub

ممنون از لطف شما اساتید عزیز

سلام،
راه حل اینست که ابتدا یک متغیر عمومی از نوع string تعریف کنید سپس اون را در رویداد DblClick تکست باکس ها مقداردهی کنید.
در پایان با کلیک روی ثبت یوزرفورم 2 این متغیر رو مورد اشاره قرار بدید.
فایل پیوست رو ملاحضه کنید متوجه خواهید شد.
یا حق.

میثم مقدم نیا

2019/07/06, 10:45

سلام،
راه حل اینست که ابتدا یک متغیر عمومی از نوع string تعریف کنید سپس اون را در رویداد DblClick تکست باکس ها مقداردهی کنید.
در پایان با کلیک روی ثبت یوزرفورم 2 این متغیر رو مورد اشاره قرار بدید.
فایل پیوست رو ملاحضه کنید متوجه خواهید شد.
یا حق.

ممنون استاد عالی بود

من این مبحث حلقه کردن رو یاد نگرفتم
آیا امکانش هست کد زیر را حلقه کنیم و برای تمام تکس باکس ها ننوشت.
این کد برای یوزر فرم یک هستش
19323

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
End Sub

ممنون از لطف شما اساتید عزیز

M_ExceL

2019/07/06, 23:47

ممنون استاد عالی بود

من این مبحث حلقه کردن رو یاد نگرفتم
آیا امکانش هست کد زیر را حلقه کنیم و برای تمام تکس باکس ها ننوشت.
این کد برای یوزر فرم یک هستش
19323

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
End Sub

ممنون از لطف شما اساتید عزیز

سلام،
بله، مراحل زیر رو انجام بدید :
کد زیر رو به کلاس ماژول 1 اضافه کنید،

Private Sub textbs_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
Cancel = True
End Sub
کد زیر رو به ماژول فورم 1 اضافه کنید

Dim texss(1 To 30) As New Class1
جهت رویداد Initialize فورم 1 هم کد زیر رو اضافه کنید :

Private Sub UserForm_Initialize()
For i = 1 To 30
Set texss(i).textbs = Controls("TextBox" & i)
Next i
End Sub
یا حق.

میثم مقدم نیا

2019/07/07, 08:02

سلام،
بله، مراحل زیر رو انجام بدید :
کد زیر رو به کلاس ماژول 1 اضافه کنید،

Private Sub textbs_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
Cancel = True
End Sub
کد زیر رو به ماژول فورم 1 اضافه کنید

Dim texss(1 To 30) As New Class1
جهت رویداد Initialize فورم 1 هم کد زیر رو اضافه کنید :

Private Sub UserForm_Initialize()
For i = 1 To 30
Set texss(i).textbs = Controls("TextBox" & i)
Next i
End Sub
یا حق.

سلام ممنون استاد
تو کد دستوری بالا که لطفا کردین برام فرستادید
خواستم کد زیر را در یوزر فرم 1 حذف کنم، دیدم که هنگام ثبت اعداد در یک تکس باکس ذخیره میشوند.
آیا امکان حذف این مورد نیست؟

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
txb = "TextBox1"
End Sub

یعنی برای 60 الا 70 تا تکس باکس اینا تکرار کنم؟

M_ExceL

2019/07/07, 19:31

سلام ممنون استاد
تو کد دستوری بالا که لطفا کردین برام فرستادید
خواستم کد زیر را در یوزر فرم 1 حذف کنم، دیدم که هنگام ثبت اعداد در یک تکس باکس ذخیره میشوند.
آیا امکان حذف این مورد نیست؟

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
txb = "TextBox1"
End Sub

یعنی برای 60 الا 70 تا تکس باکس اینا تکرار کنم؟
کد زیر رو به خط اول ایونت DblClick در کلاس ماژول یک اضافه کنید.

txb = UserForm1.ActiveControl.Name
با این کار مقدار متغیری که تعریف کردیم برابر میشه با نام تکست باکسی که روی آن دابل کلیک انجام میشه.
در فایل پیوست این کار انجام شده است.
یا حق.

میثم مقدم نیا

2019/07/12, 00:23

کد زیر رو به خط اول ایونت DblClick در کلاس ماژول یک اضافه کنید.

txb = UserForm1.ActiveControl.Name
با این کار مقدار متغیری که تعریف کردیم برابر میشه با نام تکست باکسی که روی آن دابل کلیک انجام میشه.
در فایل پیوست این کار انجام شده است.
یا حق.

سلام
ممنون استاد عالی بود

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

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,###")
End Sub

آیا اینم باید به کلاس ماژول یک اضافه کنم؟

M_ExceL

2019/07/12, 00:48

سلام
ممنون استاد عالی بود

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

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,###")
End Sub

آیا اینم باید به کلاس ماژول یک اضافه کنم؟
سلام،
خواهش میکنم
کد مربوط به باتن ثبت در یوزرفورم 2 رو به این صورت اصلاح کنید :

Private Sub CommandButton1_Click()
If TextBox1.Text <> Empty Then
UserForm1.Controls(txb) = Format(UserForm2.TextBox1.Value, "#,###")
UserForm2.TextBox1.Text = ""
UserForm2.Hide
End If
End Sub

یا حق.