ورود اطلاعات از طریق فرم و جلوگیری از تکرار آنها

[pejmank]

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

با تشکر و احترام

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

[misammisam]

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

 tedadcod = Application.WorksheetFunction.CountIf(Sheet1.Range("A:A"), Texbox.value")) 

[pejmank]

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

 tedadcod = Application.WorksheetFunction.CountIf(Sheet1.Range("A:A"), Texbox.value")) 

با تشکر از پاسخ شما. موفق شدم فایل نمونه مورد نظرم رو به این پست پیوست کنم.
در فایل پیوست میخوام از طریق فرم، Item number، Quantity و Color رو به جدول موجود در شیت2 اضافه کنم. ولی Item Number نمیخوام تکراری باشه . مثلا اگر Item Number شماره 123 توی لیست هست، وقتی این شماره رو مجددا وارد میکنم پیغام خطا بده.

با تشکر

[misammisam]

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

[pejmank]

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

فایل اصلی رو پیوست کردم.
توی این فایل من باید محصولات رو در صفحه انبار وارد کنم تا بتونم بر مبنای کد تیوب بعدا روی اونها کاری انجام بدم. (موجودی رو اضافه یا کم بکنم)
حالا من میخوام این ورود محصولات هم از طریق فرم باشه و البته که محصول تکراری رو سیستم ثبت نکنه و پیغام خطا بده.

با تشکر

[misammisam]

فایل اصلی رو پیوست کردم.
توی این فایل من باید محصولات رو در صفحه انبار وارد کنم تا بتونم بر مبنای کد تیوب بعدا روی اونها کاری انجام بدم. (موجودی رو اضافه یا کم بکنم)
حالا من میخوام این ورود محصولات هم از طریق فرم باشه و البته که محصول تکراری رو سیستم ثبت نکنه و پیغام خطا بده.

با تشکر

هر چند برای ورود کد محصول هیچ کدی نزدید ولی یه یوزر فرم درست کردم اونی که میخواستید براتون درستش کردم .

[pejmank]

ممنون از جوابتون.
توی این فایل آیا امکانش هست که آخرین وضعیت "قفسه" در صفحه انبار نمایش داده بشه؟
(در واقع میخوام وقتی شماره قفسه کالایی رو در فرم اول عوض میکنم، در انبار هم این تعویض اتفاق بیفته)

با تشکر

[misammisam]

ممنون از جوابتون.
توی این فایل آیا امکانش هست که آخرین وضعیت "قفسه" در صفحه انبار نمایش داده بشه؟
(در واقع میخوام وقتی شماره قفسه کالایی رو در فرم اول عوض میکنم، در انبار هم این تعویض اتفاق بیفته)

با تشکر

منظور از قفسه تو فایلتون اصلا چی هست ؟

[pejmank]

منظور از قفسه تو فایلتون اصلا چی هست ؟

منظور شماره قفسه **ای هست که کالا در اون قرار داره.

[pejmank]

منظور از قفسه تو فایلتون اصلا چی هست ؟

سلام
همونطور که گفتم منظور از قفسه، شماره قفسه ای هست که کالا در اون قرار میگیره.

من یکسری تغییرات هم در فایل ایجاد کردم ولی با یک مشکل مواجه شدم:
وقتی یک شماره تیوب موجود هست و میخوام از موجودی برداشت کنم، برای اینکه موجودی منفی نشه، در TextBox9 و TextBox10 شروطی رو گذاشتم که اگر وضعیت در خروج از انبار (Stock OUT) بود و عدد وارد شده بیشتر از موجودی نمایش داده شده بود، ارور بده.
ولی مشکل اینجاست که مقایسه مقدار دو TextBox درست انجام نمیشه. مثلا اگر موجودی 18 تا باشه و من در باکس برداشت 2 رو وارد بکنم ارور میده . اینهم بخاطر این هست که اولین رقم سمت چپ باکس موجودی رو مد نظر قرار میده و نه همه عدد. به همین دلیل اگر موجودی 99 باشه و من تعداد 888 تا بخوام برداشت بکنم، ارور نمیده!!!!! چون اعداد 8 از اولین رقم سمت چپ 99 کوچکتر هستند.
ممنون میشم راهنمایی کنید چطور این مقایسه رو بصورت منطقی انجام بدم.

با تشکر