כחלק מפרוייקט על מלון באקסס שאני עושה יש טופס חדרים, שבו יש כפתור "השכר חדר" - כשאני לוחץ על הכפתור טופס השכרות נפתח - וקוד החדר עובר אוטמטית לטופס השכרות.
בטופס חדרים של ערך שנקרא "ניתן להשכרה" (yes/no), כעת כל החדרים שלי עם הערך true,
1. איך אני עושה, שכשאני לוחץ על "השכר חדר" (הכפתור שציינתי מקודם) הערך עובר אוטומטית לfalse (כי החדר כבר לא ניתן להשכרה).

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

תודה רבה!

הבעיה היא שאתה נמצא עם פוקוס על הכפתור שכרגע לחצתה עליו.... ולכן אתה לא יכול להפוך אותו ל Enable= False
אז מה שעושים זה, נכנסים לקוד של פעולת הלחצן:
בוחרים שדה אחר או כפתור אחר ועשים לו setFocus
ורק לאחר מכן Enable= False לכפתור השכר דירות.

נגיד שלכפתור קוראים "פקודה20" ולשדה של הכן\לא קוראים "Label16", מה בדיוק אני צריך לכתוב בVB?

אני בכלל לא בטוח שאתה יכול להעיר את הפוקוס ל Label16 כי זה לא פקד לעריכה אלה תווית טקסט!!

תודה רבה על ההשקעה וההסברים המפורטים! אך הסתדרתי לפני זה ע"י הוספת השורה:

קוד:

Me.is_rentable = False

עוד הצלחתי זה לגרום לכך שאני לא אוכל ללחוץ על הכפתור כאשר הערך הוא False (החדר לא ניתן להשכרה) ע"י:

קוד:

 Private Sub Form_Current()
If Me.is_rentable = True Then
Me.cmd20.Enabled = True
Else
Me.cmd20.Enabled = False
End If
End Sub 

אך צצה עוד בעיה, נגיד ואני עומד על חדר מספר 3 ולוחץ על השכר חדר, מספר החדר לא ממשיך איתי לטופס השכרות ואני צריך להזין אותו מחדש.
לזה יש לך פיתרון?
עוד פעם, תודה רבה

בהנחה שאתה רוצה לפתוח טופס חדש עם החדר הניבחר , ויש בשני הטפסים את המשתנה RoomNumber_ID

קוד:

Dim stDocName As String
	Dim stLinkCriteria As String
	stDocName = "Form_Test"
 
	stLinkCriteria = "[RoomNumber_ID]=" & "#" & Me![RoomNumber_ID] & "#"
	DoCmd.OpenForm stDocName, , , stLinkCriteria 

ראשית עדיף לבצע פעולות כאלו על קוד הזיהוי (RoomNumber_ID)
אתה מבצע הוספה.... אז מן הסתם הוא לא קיים ולכן הוא לא יכול לבצע עליו סינון
OK
על תבצע סינון, אך הערך ברירת המחדל לכל אחד מהמשתנים בטופס החדש ישאבות מהשדות של הטופס הקודם.