בניתי פונקציה שהופכת מס' לחודש
הפונקציה בסדר שכן בדקתי אותה בדבר אחר וזה עבד אבל משום מה בקרטריון של שאילתה הוא מתעקש שלא לפעול...
והקרטריון כזה:
להסבר: הפקד"תאריכים" הוא תיבת אפשרויות
הוא משחרר הודעה (ההודעה מצורפת כתמונה)
מה יכולה להיות הסיבה ההגונה
קוד:
Public Function Chodesh(a As Byte) As String
Dim sResult As String
Select Case a
Case "1": sResult = "תשרי"
Case 2: sResult = "חשון"
Case 3: sResult = "כסלו"
Case 4: sResult = "טבת"
Case 5: sResult = "שבט"
Case 6: sResult = "אדר"
Case 7: sResult = "ניסן"
Case 8: sResult = "אייר"
Case 9: sResult = "סיון"
Case 10: sResult = "תמוז"
Case 11: sResult = "אב"
Case 12: sResult = "אלול"
End Select
Chodesh = sResult
End Function
הפונקציה בסדר שכן בדקתי אותה בדבר אחר וזה עבד אבל משום מה בקרטריון של שאילתה הוא מתעקש שלא לפעול...
והקרטריון כזה:
קוד:
Like "*" & Chodesh([forms]![טופש חודש]![תאריכים]) & "*"
להסבר: הפקד"תאריכים" הוא תיבת אפשרויות
הוא משחרר הודעה (ההודעה מצורפת כתמונה)
מה יכולה להיות הסיבה ההגונה
נערך לאחרונה ב: