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

בבקשה

TaskDialogAPI.accdb

פורסם במקור בפורום CODE613 ב06/11/2016 23:09 (+02:00)

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

חלופות.zip

פורסם במקור בפורום CODE613 ב06/07/2016 14:28 (+03:00)

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

הסתרת תפריטי אופיס.zip

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

קודם כל צריך לדעת שהאקסס משתמש בעצם בטבלה נוספת עבור כל שורה בטבלה ששם מאוחסנים הקבצים ולכן המחיקה שלך לא התבצעה על כל הקבצים אלא כנראה מחקה את הקישור לטבלה הנסתרת לכן צריך להשתמש בקוד הבא שמקורו בקובץ העזרה של האקסס 2013:

Function RemoveFiles(strTable As String, strField As String, Optional strFile As String, Optional strFilter As String) As Long
    'הקוד מוחק קבצים מצורפים בטבלאות
    'הארגומנטים של הקוד זה  שם הטבלה, שם השדה ,פילטר אופציונאלי לבחירת רשומות מסוימות ,ואופציה נוספת לבחירת  חלק משם הקובץ למחיקה
    'הפונקציה מחזירה את מספר הקבצים שנמחקו
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset2
    Dim rsA As DAO.Recordset2
    Dim fld As DAO.Field2
    
    'חיבור לקובץ דטה בייס [הנוכחי]
    Set dbs = CurrentDb
    
    'אם נבחר מסנן פתיחה של הטבלה עם המסנן אם לא פתיחה רגילה
    If Len(strFilter) > 0 Then
        Set rst = dbs.OpenRecordset("SELECT * FROM " & strTable & " WHERE " & strFilter)
    Else
        Set rst = dbs.OpenRecordset(strTable)
    End If
    
    'בחירת השדה שמכיל קבצים מצורפים
    Set fld = rst(strField)
    
    'עד כאן ההגדרות לבחירת הטבלה והשדה הנכון מכאן מתחיל המחיקה בפועל
    
    'הלולאה רצה כל עוד לא הגענו לסוף הרשימה
    Do While Not rst.EOF
    
        'בחירת הערך של השדה הנוכחי
        'כלומר פתיחת הטבלה הנסתרת שמכילה את הקבצים המצורפים ברשומה הנוכחית
        Set rsA = fld.Value
        
        'מעבר על כל הקבצים המצורפים
        Do While Not rsA.EOF
            
            'אם נבחר מסנן לקבצים הסר את הקובץ שמכיל את הטקסט שנבחר
            'וספור את הקבצים שנמחקו
            If Len(strFile) > 0 Then
                
                If rsA("FileName") Like strFile Then
                    rsA.Delete
                    RemoveFiles = RemoveFiles + 1
                End If
            
            Else
                 'אם לא נבחר מסנן מחיקה של כל הקבצים
                 rsA.Delete
                 RemoveFiles = RemoveFiles + 1
            End If
                
            rsA.MoveNext
        Loop
                
        'סגירת הטבלה של הקבצים ששיכים לרשומה הנוכחית
        rsA.Close
        Set rsA = Nothing
        
        'מעבר לרשומה הבאה בטבלה הראשית
        rst.MoveNext
    Loop
    
    
    rst.Close
    dbs.Close
    Set fld = Nothing
    Set rst = Nothing
    Set dbs = Nothing
End Function

פורסם במקור בפורום CODE613 ב09/05/2016 11:19 (+03:00)

מצו"ב קובץ שמבצע גיבוי לעצמו
שים לב : שכל הקובץ מגובה ולא רק הטבלאות כך שאם הקובץ גדול מידי לא כ"כ שווה לך להשתמש בו
בכל מצב אני הייתי שוקל לחלק את הטבלאות ל-2 ולהשתמש בקוד הקודם

גיבוי קובץ אקסס.zip

פורסם במקור בפורום CODE613 ב09/02/2016 15:23 (+02:00)

נראה לי שצריך לעשות רפרנס כמצו"ב

לכידה.JPG

פורסם במקור בפורום CODE613 ב02/08/2016 15:52 (+03:00)

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

סריקה.accdb

פורסם במקור בפורום CODE613 ב25/07/2016 23:38 (+03:00)

@CODE.NET

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

אז ככה
בצורה מקצועית לא נראה לי שאפשר
רק סרגלי כלים אפשר להסתיר אבל הלחצן קובץ יש לו הגדרות אחרות שלא ניתן להסתיר אותו
אפשר להשתמש בטריקים כמו שהבאת וגם אני משתמש בזה ואין לי בעיות עם זה
אני מסתיר שורה עליונה ולא צריך שהטפסים יהיו מוקפצים אם מגדירים את זה באפשרויות אקסס>> מסד נתונים נוכחי>> כמסמכים על לשוניות
רק קצת קשה לעבוד עם דוחות התצוגה לפני הדפסה אבל גם עם זה אפשר לשחק אבל זה מדי מסובך
כך שלענ"ד עדיף לעבוד עם סרגלי כלים מותאמים אישית כמו שאביא בלנ"ד בהמשך

פורסם במקור בפורום CODE613 ב21/06/2016 15:44 (+03:00)

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

1. לייצר קובץ אקסס קבוע ובכל גיבוי לייצא את הנתונים ע"י הפקודה docmd.TransferDatabase
2. לייצר כל פעם קובץ אקסס חדש ולייצא אליו את הנתונים כנ"ל
   אני הייתי משתמש ב FSO שמאפשר גישה מהירה וקלה אל קבצי המערכת להלן מדריך קצר: http://webmaster.org.il/articles/fso

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