امکان ایجاد یک سطر از تکست باکس یل کامبو باکس در فرم

[علی فاطمی]

با سلام
مشکل اول من در مورد امکان ایجاد یک ردیف جدید از ابزار مانند تکست باکس و... هستش
اگر بخوام توضیح واضح تر بدم من تو یه فرم یه سری تکست یا کامبو باکس گذاشتم برای ورود اطلاعات حالا اطلاعاتم می خوام در سطر های مختلف ثبت کنم می خوام همه توی یه صفحه مثل یک شیت باشه البته می خوام یه دکمه بزارم مثلا new record که با زدن این دکمه تکست باکس ها و .... با همون خصوصیات در سطر بعدی برای ثبت اطلاعات قرار داده بشه. سوال اصلا امکانپذیر هست؟
2- به پیوست یه فایل دارم می خوام اطلاعات رو از شیت به فرم بازیابی کنم مشکل دارم از یه راه آماتوری رفتم که البته جواب نمی ده
کامبو اول ( نوع فعالیت ) فراخوان رو بزنید و بعد دوره و انتخاب کنید .
سپاس فراوان از هکه دوستان.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Nima]

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

http://forum.exceliran.com/showthrea...ll=1#post15274

[shamsololama]

با سلام
مشکل اول من در مورد امکان ایجاد یک ردیف جدید از ابزار مانند تکست باکس و... هستش
اگر بخوام توضیح واضح تر بدم من تو یه فرم یه سری تکست یا کامبو باکس گذاشتم برای ورود اطلاعات حالا اطلاعاتم می خوام در سطر های مختلف ثبت کنم می خوام همه توی یه صفحه مثل یک شیت باشه البته می خوام یه دکمه بزارم مثلا new record که با زدن این دکمه تکست باکس ها و .... با همون خصوصیات در سطر بعدی برای ثبت اطلاعات قرار داده بشه. سوال اصلا امکانپذیر هست؟
2- به پیوست یه فایل دارم می خوام اطلاعات رو از شیت به فرم بازیابی کنم مشکل دارم از یه راه آماتوری رفتم که البته جواب نمی ده
کامبو اول ( نوع فعالیت ) فراخوان رو بزنید و بعد دوره و انتخاب کنید .
سپاس فراوان از هکه دوستان.

با درود فراوان
من فایل نمونه شما رو دیدم با کدهای که در آن نوشته بودید بعید میدونم سئوال شما این باشه که به چه صورت اطلاعات رو از فرم به شیت ها وارد کنیم و همچنین به چه صورت اطلاتی که در شیت هست رو به فرم فرا خوانیم چون چنین کدهای خیلی خوب در فایل نمونه شما نوشته شده بود
به همین دلیل اگر سئوال خاصی در مورد کد ها دارید با توضیحات در مورد آن بفرمائید یا اینکه اشتباه میکنم ؟

[علی فاطمی]

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

[علی فاطمی]

با سلام خدمت استاد ،
اگر به فایل نمونه دقت کرده باشین اطلاعات از فرم به شیت براحتی منتقل میشه ولی بازیابی خیر فقط دو تا رکورد رو نشون میده و حلقه تا آخر انجام نمیشه ، یعنی از شیت به فرم انجام نمیشه.
استاد در مورد مشکل اصلی من پاسخی ندادین . آیا دستوری جهت ایجاد یا کپی یا ساخت و .... از تکست باکس و یا کامبو باکس هست.یعنی من یه سری تکست باکس و یا کامبو باکس و ... برای ورود اطلاعات دارم حالا می خوام وقتی هر بار اطلاعات رو وارد می کنم ضمن اینکه در شیت قرار داده میشه روی یه فرم هم به همون صورت ( یعنی سطر به سطر ) قرار داده بشه فایل پیوست فرم1 وقتی مشخصه جدید رو می زنی فرم 4 رو میاره و در فرم 4 اطلاعات رو ثبت می کنی و با زدن دکمه ثبت اطلاعات از فزم به شیت منتقل میشه . من می خوام کاربر اصلا به شیت دسترسی نداشته باشه و از طریق فرم یک کلیه سطرها رو بتونه ببینه.
سوال من اینکه اصلا این راه درستی هست ؟ اصلا امکان پذیر ه؟
ممنون از توجه شما.

[علی فاطمی]

با عرض سلام مجدد..
من از یه راه آماتوری به یه جاهایی رسیدم لطفا فایل پیوست را بررسی فرمائید.
بیا سپاس فراوان.

[shamsololama]

با عرض سلام مجدد..
من از یه راه آماتوری به یه جاهایی رسیدم لطفا فایل پیوست را بررسی فرمائید.
بیا سپاس فراوان.

با درود فراوان

برای اینکه تمام مطالب وارد شده تو شیت رو داخل فرم ببینی یه راه ساده اینه که از لیست باکس استفاده کنید که فکر میکنم جواب کار شما رو بده هرچند میشه تمام خود آن شیت رو هم بصورت همان فرمت شیت اکسل توس فرم قرار داد که فکر میکنم در این نمونه نیازی نیست

برای این که کافیه سورس لیست باکس رو برای با محدود شیت قرار بدیم و برای اینکه سل های خالی رو هم در لیست باکس نداشته باشیم محدوده رو با استفاده تابع count محدود میکنم و همچنین کدی می نویسیم که همیشه آخرین رو لیست باکس لیست ایندکس لیست باکس رو برابر با لیست کانت لیست آن قرار می دهیم

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

نمونه فایل قرار دادم

[علی فاطمی]

با سلام و سپاس از توجه شما
همون طور که خودتون اشاره کردین من دقیقا می خوام به صورت سطر باشه حالت لیست باکس بسیار عالی بود ولی اینجا بکار من نمیاد چون در هر سطر بعضی از سلول ها ممکن است نیاز به ویرایش داشته باشند یعنی عملا باید از هم جدا باشن. اگر فایل پیوست ملاحظه کنین متوجه عرض من خواهید شد.
در مورد فراخوانی اگر ممکن همون پیوست اول رو اصلاح بفرمائید چرا که من می خوام این کار با زدن spinup انجام بشه ولی عملا نمی شه.
با سپاس فراوان

[shamsololama]

با درود فراوان

اینکه می فرمائید لیست باکس به کار شما نمیاد اگر دلیلش همون باشه بعضی از سطرها رو می خواین ویرایش کنید که تو همون لیست باکس هم میشه با کلیک رو ی هر سطر از لیست باکس همون رو ویرایش کنید یعنی به همون صورتی که از تکست باکس ویرایش میشه یعنی به این ترتیب که وقتی روی هر سطر از لیست باکس که انتخاب میکنید اطلاعات آن در تکست باکسهای مربوطه قرار میگیره برای ویرایش و میشه ویرایش کنید

برای فرا خوان هم راهای مختلفی هست که با SpinButton

انجام بدی که یه راه ساده رو مثال زدم تو فایل نمونه و کدش هم به این صورت هست که از تو پروپرتیس مین و ماکس

SpinButton رو رو ی یک و مثلا هزار تنظیم کنید

Private Sub SpinButton2_Change()
Dim n
n = SpinButton2.Value
If Sheets(ComboBox2.Value).Range("A1").Offset(n - 1, 0).Value <> "" Then
TextBox5.Text = Sheets(ComboBox2.Value).Range("A1").Offset(n - 1, 0).Value
TextBox1.Text = Sheets(ComboBox2.Value).Range("A1").Offset(n - 1, 1).Value
TextBox2.Text = Sheets(ComboBox2.Value).Range("A1").Offset(n - 1, 2).Value
End If
End Sub

[علی فاطمی]

با سلام و تشکر فراوان از توجه شما ،
استاد منظورم این نبود که از لیست نمیشه استفاده کرد بلکه به دلیل نوع ساختار فرم بهتره که به صورت جدول باشه ، و بعد اینکه با انتخاب هر سطر می شه دوباره به تکست برگشت رو من متوجه نشدم از چه دستوری امکان پذیره؟ اگر ممکنه یک نمونه از کد رو روی یک از پیوست های بالا قرار بدین بسیار سپاس گذارم.