תחומים - פורום חרדי מקצועי

את זה הורדתי מנתיב,
https://drive.google.com/file/d/0B08gOkBa8KnLNUhsVHpsanlmTWs/view?usp=sharing

פורסם במקור בפורום CODE613 ב20/02/2016 20:32 (+02:00)

@zvinisim

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

בקובץ שצירפתי, הסינון בודק האם השדה רק א"כ הוא רושם בו ""

פורסם במקור בפורום CODE613 ב03/02/2016 21:47 (+02:00)

זה טוב?

(מן הסתם אפשר לעשות את זה בתור פרמטר בשאילתה ולא בקוד)

סינון כפול.rar

פורסם במקור בפורום CODE613 ב03/02/2016 21:45 (+02:00)

אתה מחפש קובץ שתוכל לחפש בו או עיר ירושלים או עיר אלעד?
כמו שאתה עושה הפניה לטופס בשורה הראשונה תעשה הפניה בפרמטר השני לשדה אחר בטופס.

בסדר?

פורסם במקור בפורום CODE613 ב02/02/2016 14:20 (+02:00)

איך מתגברים על הבעיה הזאת?

תמונה1.png

פורסם במקור בפורום CODE613 ב10/12/2015 19:25 (+02:00)

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

תודה רבה!

פורסם במקור בפורום CODE613 ב06/12/2015 15:05 (+02:00)

השחקנים:
תיבה נגללת = ערך ברירת מחדל
שדות בתיבה נגללת: 1) מזהה 2) תאריך
תאריך עכשווי

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

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

פורסם במקור בפורום CODE613 ב06/12/2015 13:59 (+02:00)

ככה

תמונה1.png

פורסם במקור בפורום CODE613 ב02/12/2015 21:44 (+02:00)

ניתן לסמן V

פורסם במקור בפורום CODE613 ב02/12/2015 13:19 (+02:00)

זה עובד בטקסט לא בתאריך.

אתה רוצה להביא יום מסוים או תווך תאריכים?

פורסם במקור בפורום CODE613 ב19/11/2015 19:08 (+02:00)

ואיך היא תתרגם אותיות ניקוד וכו'?

פורסם במקור בפורום CODE613 ב16/11/2015 16:33 (+02:00)

אשמח לקבל הדרכה (אם זה לא ארוך ומסובך) מה לעשות אחרי שהעתקתי את הקוד,
איך אני מקבל כפתור להורדה מיוטיוב?

תודה

פורסם במקור בפורום CODE613 ב17/11/2015 18:52 (+02:00)

קוד ל 64 ו 32 ביט כולל התניה

Option Compare Database
'התניה ל64 ביט
#If VBA7 Then
'אם 64 ביט, הוספת המילה PtrSafe
Private Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
    ByVal bRevert As Long) As Long
 
Private Declare PtrSafe Function EnableMenuItem Lib "user32" (ByVal hMenu As _
    Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

#Else
'ל32 ביט
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
    ByVal bRevert As Long) As Long
 
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
    Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
#End If

Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&
'
Public Function SetEnabledState(blnState As Boolean)
    Call CloseButtonState(blnState)
    Call ExitMenuState(blnState)
End Function
 
'Disable the Menu Option
Sub ExitMenuState(blnExitState As Boolean)
  '  Application.CommandBars("File").Controls("Exit").Enabled = blnExitState
End Sub
 
'Disable the Close Button Option
Sub CloseButtonState(boolClose As Boolean)
    Dim hWnd As Long
    Dim wFlags As Long
    Dim hMenu As Long
    Dim result As Long
        
    hWnd = Application.hWndAccessApp
    hMenu = GetSystemMenu(hWnd, 0)
    If Not boolClose Then
        wFlags = MF_BYCOMMAND Or MF_GRAYED
    Else
        wFlags = MF_BYCOMMAND And Not MF_GRAYED
    End If
     
    result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
End Subוינברג

פורסם במקור בפורום CODE613 ב07/11/2015 22:59 (+02:00)

@ClickOne

@חיים יודלביץ
@chaim1989
באופן כללי באקסס להתייחס לכל שורה בפני עצמה זה קצת בעייתי,

ניתן אולי לעשות שבכל שורה הוא יעשה סיכום של הקודמים שלו אבל זה ממש ללכת מסביב
הרעיון הוא לעשות שדה נוסף בשאילתא שיעשה dsum עם קריטוריונים של כל מה שקודם לשורה הזו (לפי תאריך או קוד)

אשמח אם תסביר לי יותר בפירוט מה זה השדה הזה בשאילתה, איזה קריטריונים צריך לכתוב לו?

תודה רבה

הנה דוגמא.

עם קובץ שהעלת, (אני רואה שהסרת אותו, אז אם אתה מעוניין שאני יסיר אותו מההודעה שלי, אז תכתוב.)

חולה על התנאים/ביטויים שלך..

פורסם במקור בפורום CODE613 ב03/11/2015 23:43 (+02:00)

אפשר לעשות דוחות
כאן השתמשתי בזה

תמונה1.png

פורסם במקור בפורום CODE613 ב03/11/2015 00:28 (+02:00)

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

תמונה 1

תמונה 2

פורסם במקור בפורום CODE613 ב09/11/2015 00:31 (+02:00)

מקווה שירדתי לסוף דעתך..

Microsoft Access מסד נתונים חדש.rar

פורסם במקור בפורום CODE613 ב08/11/2015 19:37 (+02:00)

ולמה רענון לא יכול להתאים?
גם אצלי יש סינון, שאצלך הוא יכול באותו רעיון להציג לשנות וכו'

תעיין בקובץ של הוצאות והכנסות שצירפתי

הכנסות והוצאות 1.rar

פורסם במקור בפורום CODE613 ב02/11/2015 20:01 (+02:00)

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

מסך2.png

פורסם במקור בפורום CODE613 ב02/11/2015 00:57 (+02:00)

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

12.png

פורסם במקור בפורום CODE613 ב14/12/2015 00:26 (+02:00)