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

[misammisam]

خوب شما جای کدهارو اشتباه گذاشتید ، مثلا کدهایی که تو Private Sub TextBox10_Change() نوشتیدو بزارید درون دکمه Confirm تا در انتها کنترل بشه نه تو چنج کردن تکست باکس .
در ضمن شما بطور کلی قواعد کد نویسی رو رعایت نمیکنید ، مثلا یه تکس ثابتو ارجاع میدید به یه سلول بعد دوباره میرید اونو پیدا میکنید کار اشتباهیه ، خیلی راحت تکستونو بزارید داخل " " و البته کلی چیز دیگه که باعث میشه سخت کمکتون کرد .

[pejmank]

خوب شما جای کدهارو اشتباه گذاشتید ، مثلا کدهایی که تو Private Sub TextBox10_Change() نوشتیدو بزارید درون دکمه Confirm تا در انتها کنترل بشه نه تو چنج کردن تکست باکس .
در ضمن شما بطور کلی قواعد کد نویسی رو رعایت نمیکنید ، مثلا یه تکس ثابتو ارجاع میدید به یه سلول بعد دوباره میرید اونو پیدا میکنید کار اشتباهیه ، خیلی راحت تکستونو بزارید داخل " " و البته کلی چیز دیگه که باعث میشه سخت کمکتون کرد .

اول اینکار رو کردم و کدها رو در دکمه confirm گذاشتم. ولی مشکل اینجا بود که : اولا دوتا if موازی رو باید داخل یک if دیگه استفاده میکردم. ثانیا وقتی در آخر کنترل رو انجام میدم، درسته که موجودی منفی رو چک میکنه و پیغام خطا میده ولی چون بعد از انجام تغییرات هست، موجودی منفی باقی میمونه.

و البته هنوز نتونستم مشکل مقایسه دو تکس باکس رو حل کنم. کماکان وقتی موجودی 10 هست و من عدد 2 رو برای خروج انتخاب میکنم، پیغام خطا میده (چون عدد 2 از اولین عدد سمت چپ 10 بزرگتر هست). لطفا در این مورد هم راهنمایی میکنید؟

[misammisam]

اول اینکار رو کردم و کدها رو در دکمه confirm گذاشتم. ولی مشکل اینجا بود که : اولا دوتا if موازی رو باید داخل یک if دیگه استفاده میکردم. ثانیا وقتی در آخر کنترل رو انجام میدم، درسته که موجودی منفی رو چک میکنه و پیغام خطا میده ولی چون بعد از انجام تغییرات هست، موجودی منفی باقی میمونه.

و البته هنوز نتونستم مشکل مقایسه دو تکس باکس رو حل کنم. کماکان وقتی موجودی 10 هست و من عدد 2 رو برای خروج انتخاب میکنم، پیغام خطا میده (چون عدد 2 از اولین عدد سمت چپ 10 بزرگتر هست). لطفا در این مورد هم راهنمایی میکنید؟

میتونی بجای استفاده از

Private Sub TextBox10_Change()

End Sub 

از TextBox10_BeforeUpdate استفاده کنی به این صورت :

Private Sub TextBox10_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1.Value = Sheet2.Cells(4, 12).Value And TextBox10 > TextBox8.Value Then
MsgBox ("There is not such quantity in Stock")
TextBox10 = ""
Else
End If
End Sub 

ولی هنوزم بنظرم بهترین کار همو.ن گذاشتن کدها درون دکمه confirm هست ، اصلا ایرادی نداره چند تا IF تو در تو درونش ایجاد کنید .