تعریف دکمه حذف و ویرایش در فرم ها

[managerman]

سلام ، وقت بخیر.یه فایل دارم که می خوام دو تا دکمه حذف و ویرایش سطر ها رو براش کد نویسی کنم. لطفا راهنمایی کنید.فایل ضمیمه می کنم براتون. با تشکر

[managerman]

فایل ضمیمه ارسال نشده بود که الان اضافه کردم.ممنون میشم کمک کنید که خیلی واجبه برام

[Ali Parsaei]

سلام،
به نظر من به جاي اينکه براي هر سطر يک جاي حذف و اصلاح تعيين کنيد، دو تا دگمه در بالاي صفحه تعريف کنيد که اين دگمه ها هر سطري که يکي از خانه هاي آن در حال انتخاب باشد را حذف يا اصلاح کند. (فرقي نمي کند کدام خانه از سطر در حال انتخاب باشد)
براي اصلاح هم بايد يک فرم مطابق فرم اوليه ايجاد کنيد که وقتي دگمه اصلاح را مي زنيد آن فرم باز شده و مشخصات سطر انتخاب شده در آن بارگيري شود، بعد در همين فرم باز شده موارد مورد نظر را اصلاح کنيد و کد دگمه اصلاح پايين فرم را به صورتي کد نويسي کنيد که مقادير اصلاح شده درست در همين سطري که يکي از خانه هايش در حالت انتخاب است جايگزين گردد.
بهتر است يک شرط هم اضافه کنيد که اگر شماره سطر انتخابي کمتر از 7 بود کدها عمل نکنند (زيرا اطلاعات طبق اين فايل شما از سطر هفتم شروع مي شود، البته واجب نيست)
من يک نمونه براتون درست کردم، اگر که خواستيد همين را استفاده کنيد حتما" بررسي کنيد که جايي اشتباه نکرده باشم چون با عجله کدها را نوشتم:

entryproduct1.xlsm

[managerman]

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

[managerman]

یه موضوع دیگه چرا نمی تونم دو تا کلیدی که رو صفحه تعریف کردین ویرایش کنم؟(جا به جا کنم یا تبدیلشون کنم به یکی از ایکون ها)

[Ali Parsaei]

در مورد کليدها بايد بگم که دو نوع کليد وجود دارد يکي از نوع form controls که شما به کار برده ايد و عموما" توسط اتصال آنها به يک ماکرو مي شود ازشون استفاده کرد و نوع ديگر activex controls که اين نوع دوم را بايد مستقما" داخل خودشان کد نويسي کنيد.
براي دسترسي به اين نوع دوم بايد در نوار بالاي اکسل راست کليک کرده و customize the ribbon را کليک کنيد
بعد در پنجره باز شده گزينه developer را تيک بزنيد، حالا در نوار بالاي اکسل خواهيد ديد که يک تب جديد به نام developer اضافه گرديده است، در تب ياد شده اگر گزينه design mode را فعال کنيد مي توانيد کليدهاي ياد شده را ويرايش کنيد.

[Ali Parsaei]

بايد با اعمال کدهاي مخصوص فرمت بندي يا نوع مقادير وارده را محدود کنيد، مثلا" براي اعمال محدوديت عددي در تکست باکس موجودي اوليه اين کد به کار مي آيد:

Private Sub txtfirst_Change()
If Not IsNumeric(txtfirst.Value) Then
MsgBox "ADAD VARED KONID"
End If
End Sub 

[managerman]

به جرات میگم این اولین باره که تو یه تالار ایرانی یه سوالی رو میپرسم و بدون پیچوندن بحث و خیلی کامل جواب میگیرم.واقعا دمتون گرم لذت بردم

[managerman]

entryandexit.rarentryandexit.rarسلام به استاد پارسایی عزیز و سایر اساتید محترم
با راهنمایی های استاد پارسایی تونستم مشکلات فایل خودم تقریبا بر طرف کنم اما الان یه سوال دیگه دارم.
با کمک یه فرم به اسم frmcal و یه مدول به اسم mod.. یه تاریخ بازشونده به فایلم اضافه کردم که توی فرم ثبت کالای جدید توی textbox تاریخ تنظیم شده ولی مقدار وقتی وارد میکنه میشینه تو سلولی که انتخاب شده و تو ردیف خودش کنار بقیه اطلاعات نمیشینه!!
تو doubleclick هم گذاشتمش ولی فرقی نکرد.میتونید راهنمایی کنید که تو ستون B کنار بقیه اطلاعات خودش بشینه؟
و یه موضوع دیگه، چطوری میتونم شیت ها رو قفل کنم که وقت با فرم های ورود / اصلاح و حذف کار کنه و کسی نتونه به صورت دستی اطلاعات تغییر بده.خودم شیت هارو قفل کردم ولی اطلاعات جدید دیگه نمی تونم وارد کنم
پیشاپیش از راهنماییتون سپاس گذارم