שלום, יש לי בעיה קטנה בפרוייקט שאני מכין בVB גרסא 6.
המצב הוא כזה - יש לי משתנה בשם amount שאני צריך להכניס אליו ערך. וחובה שייכנס אליו ערך. ניסיתי לעשות את זה בעזרת input box והקוד הבא:

קוד:

amount = InputBox("insert amount","title","insert here")

הבעיה היא, שאם אני לוחץ CANCEL לא נכנס שום ערך ואז אני בבעיה.
אז עשיתי FORM חדש שנראה כמו INPUTBOX, ועשיתי שכאשר לוחצים אישור נכנס הערך של תיבת הטקסט למשתנה, ומשתנה עזר בשם FLAG מקבל את הערך 1, ואם לוחצים ביטול אז לא נכנס כלום וFLAG = 0.
ובעצם, הפעולה מתבצעת רק אם FLAG שווה 1.
הקוד נראה ככה:

קוד:

Form71Msgbox.Show


Adoperut2.Refresh
If flag = 1 Then
	If (amount < Val(AdoProducts.Recordset.Fields(4))) Then ''áãé÷ä äàí äîåöø ðîöà áîìàé áëîåú äîáå÷ùú
		Dim tempperutsale As Integer
		If Adoperut2.Recordset.RecordCount > 0 Then
			Adoperut2.Recordset.MoveLast
			tempperutsale = Adoperut2.Recordset.Fields(0)
			 tempperutsale = tempperutsale + 1
..........

כאשר FORM71MSGBOX הוא הפורם שנראה כמו הINPUTBOX. בכל מקרה, הבעיה שלי היא שבINPUTBOX רגיל, עד שהאני לא מכניס ערך התוכנה נעצרת, ובתוכנית שלי היא ממשיכה לרוץ.

מקווה שהסברתי את עצמי טוב...

השאלה שלי היא האם אפשר לעצור את ריצת התוכנית אחרי השורה
Form71Msgbox.Show
ולהמשיך אותה כאשר אני אלחץ על אישור\ביטול בחלון החדש?


תודה מראש

בברכה, אורן.

אפשר לעצור את התוכנית. דוגמא:

קוד:

 Form2.Show vbModal 

למראת שלא הבנתי למה יש לך בעיה עם InputBox.

אתה יכול לעשות בדיקת תקינות קלט...

קוד:

 	 Dim Str As String
	Str = InputBox("טקסט", "כותרת", "בלהבלה")
	If Trim(Str) & "" = "" Then
		MsgBox "נא למלא ערך"
	Else
		MsgBox Str
	End If

ובכל מיקרא, גם בטופס שלך אפשר להשאיר את המשתנה amount ריק...

נ.ב:
להבא, כאשר אתה מעתיק קוד מ-VB, כדי שיראו גם את העיברית, תשנה את השפה שבה כותבים לעיברית ורק אז תעתיק...

קודם כל תודה על העצות והטיפים.

שמתי את הVBMODAL, איך אני עושה שזה ימשיך משם?

ואני אנסה מחר את התקינות קלט, תודה (:

בברכה, אורן.

לא הבנתי מה הבעיה. אתה פשוט קורא לטופס כמו שהראתי לך, ואז הטופס השני שלך ניפתח, ואז אתה מכניס ערך, ולאחר לחיצה על אישור או ביטול, אתה מכניס את זה למשתנה public שיש לך גישה אילו, (על מנת לקרא את הנתונים)
ואז אתה סוגר את הטופס של ההכנסת ערך כך:

קוד:

 Unload Me 

ואז הקוד הראשון, זה שקרא לטופס, ממשיך לרוץ...