iif בבונה הביטויים באקסס

[OdedDvir]

@אוריי אמר בiif בבונה הביטויים באקסס:

שיחזיר לי את כל הרשומות

לא הבנתי מה ברצונך לעשות. נא לפרט

[אוריי]

@OdedDvir יש לי שאילתה פשוטה
עשיתי בהתחלה סינון בעמודה לפי הפונקציה לעיל
אח''כ החלטתי להוסיף תיבת סימון שבעת שהתיבה מסומנת הוא לא יסנן את העמודה הזו (כאילו אין פרמטר לסינון) הבעיה היא שאחרי שכתבתי את הiif הוא או נותן לי את הסינון או שהוא לא מוצא כלום

[OdedDvir]

@אוריי הקוד פשוט הוא מבצע מה שביקשת:
אם התיבה מסומנת הוא מסנן ומחזיר את כל הרשומות שבהן ערך העמודה = "".
וזה לא מה שאתה באמת רוצה, אתה רוצה שלא יסנן כלל...

עדיף לסנן \ לבטל את הסינון בארוע לחיצה של תיבת הסימון.

[אוריי]

@OdedDvir
אין איזה אפשרות שלא יסנן כלל או שיביא את כל הרשומות המלאות (גם יכול לעזור)

[OdedDvir]

@אוריי בארוע לחיצה של תיבת הסימון:

If Me.AllUsers Then
   Me.Filter = ""
Else
   Me.Filter = "UserName='" & GetUserName() & "'"
End If
Me.FilterOn = True

[אוריי]

@OdedDvir
לא עוזר
כאילו הוא לא עושה כלום

[OdedDvir]

@אוריי האם אתה משתמש בטופס משנה, ופקד תיבת הסימון נמצא בטופס האב?

[אוריי]

@OdedDvir
זה אותו הטופס כמו בנושא השני של המחיקת שדה

[OdedDvir]

@אוריי אז ניחשתי נכון...
גם פה אתה אמור להפעיל את הסינון על טופס המשנה:

If Me.AllUsers Then
   Me!BookListUser1.Form.Filter = ""
Else
   Me!BookListUser1.Form.Filter = "UserName='" & GetUserName() & "'"
End If
Me!BookListUser1.Form.FilterOn

[אוריי]

@OdedDvir
משהו מוזר הקוד הזה מוחק לי את המשתמש הגלובלי שעשיתי
אני יתן לך את הקוד במלואו

Private Sub AllUsers_AfterUpdate()
    If GetUserName = "אורי" Then
    
    If Me.AllUsers Then
       Me!BookListUser1.Form.Filter = ""
    Else
       Me!BookListUser1.Form.Filter = "UserName='" & GetUserName() & "'"
    End If
    Me!BookListUser1.Form.FilterOn
: Exit Sub
    Else
    msgok "שגיאה!@אין לך הרשאות צפיה@פנה למנהל התוכנה@"
    Me.AllUsers = False
    Me!BookListUser1.Requery
   End If
End Sub

עוד דבר אני צריך שבברירת המחדל הוא יעשה סינון ורק אם אני מסמן שיביא את כל הרשומות

[OdedDvir]

@אוריי אמר בiif בבונה הביטויים באקסס:

@OdedDvir
משהו מוזר הקוד הזה מוחק לי את המשתמש הגלובלי שעשיתי

לא הבנתי כוונתך.

עוד דבר אני צריך שבברירת המחדל הוא יעשה סינון ורק אם אני מסמן שיביא את כל הרשומות

את זה תוכל להגדיר במאפייני הטופס
מסנן=UserName=.....
סנן בעת טעינה

[אוריי]

@OdedDvir אמר בiif בבונה הביטויים באקסס:

@אוריי אמר בiif בבונה הביטויים באקסס:

@OdedDvir
משהו מוזר הקוד הזה מוחק לי את המשתמש הגלובלי שעשיתי

לא הבנתי כוונתך.

אני אסביר יש לי שם משתמש וסיסמה והפונקציה הזו GetUserName() שומרת כל הזמן את שם המשתמש שפתח את האקסס (משתמש גלובלי) וכאשר הכנסתי את הקוד האחרון ואני לוחץ על תיבת הסימון הוא מוחק מהזיכרון את שם המשתמש ואז הוא מחזיר שגיאה שאין לי הרשאות..

[OdedDvir]

@אוריי כיצד הגדרת את המשתמש הגלובלי?

[אוריי]

@OdedDvir
בפונקציה במודול

Public Function GetUserName() As String
GetUserName = gUser
End Function

[OdedDvir]

@אוריי ובכן, כיצד הגדרת את gUser?

[אוריי]

@OdedDvir

gUser = Me!TextBoxUserName

[OdedDvir]

@אוריי אמר בiif בבונה הביטויים באקסס:

gUser = Me!TextBoxUserName

ומתי השורה הנ"ל מתבצעת?

[אוריי]

@OdedDvir
בכניסה לאחר אישור שם משתמש וסיסמה

[אוריי]

במחשבה שניה אולי כדאי לחזור לבונה ולכתוב תנאי שיביא את כל הרשומות המלאות

זאת אומרת מה שחסר לי שם זה קוד שיביא את כל הרשומות המלאות יש כזה?

[OdedDvir]

@אוריי יפה, מה שורת ההגדרה של המשתנה gUser?