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

@one1010
זה נראה שיש לך בטופס 3 טפסי משנה והמסנן שלך מסנן את שלשתם.
אז אני לא יודע איזה מהם תרצה לשלוח במייל.

אני לקחתי את הסינון הראשון בקוד שלך, תדביק את זה

CurrentDb.QueryDefs("שםהשאילתה").SQL = "SELECT TOP " & TOPF & " M.*, CITY.NAME_CITY, COUNTRY.NAME_HEB" & _
                  " FROM (M LEFT JOIN CITY ON M.ID_CITY = CITY.ID) LEFT JOIN COUNTRY ON M.B_COUNTRY = COUNTRY.ID" & _
                  " WHERE (" & stLinkCriteria & ")"

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

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

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

@one1010 כתב בשמירת שאילתא באקסס:

אשמח אם תסביר לי יותר את השאלה...

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

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

איך אתה מסנן את הטופס?

@one1010 כתב בשמירת שאילתא באקסס:

איך אני יודע מה שם השאילתא?

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

@one1010 כתב בשמירת שאילתא באקסס:

זה משנה?

בטח זה משנה,
איך שאתה מסנן את הטופס, ככה אתה מסנן את השאילתה.

@one1010
אתה צריך ליצור או לשכתב שאילתה ייעודית לחיפוש הנוכחי.
לייצא אותה לאקסל
ולשלוח את האקסל במייל.

ככה אתה משכתב שאילתה קיימת:

CurrentDb.QueryDefs("שםהשאילתה").SQL = "select * from [שם הטבלה] " & " where " & תוצאותהחיפוש

'תוצאותהחיפוש' תלוי איך עשית את החיפוש, אבל בהמשך לפוסט הזה,
זה תוצאות החיפוש
"[" & Me.cobField & "] like " & Chr(34) & "" & Me.txtFind & "" & Chr(34)

וככה אתה מייצא את השאילתה לאקסל:

    DoCmd.TransferSpreadsheet acExport, , "שםהשאילתה", strPath , False

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

    Dim strPath As String
    strPath = CurrentProject.Path & "\" & "שםכלשהו" & Format(Date, "dd-mm-yyyy")  & ".xls"

ואז לשלוח את הנתיב הזה למייל.

תוכל למחוק את הקובץ מהמחשב אחרי השליחה ככה

If Len(dir(strPath)) > 0 Then Kill strPath

אתה צריך למחוק את כל המקומות שכתוב fsubForm

    If Len(Me.txtFind) > 0 Then
        Me.fsubForm.Form.Filter = "[" & Me.cobField & "] like " & Chr(34) & "*" & Me.txtFind & "*" & Chr(34)
        Me.fsubForm.Form.FilterOn = True
    Else
        Me.fsubForm.Form.Filter = ""
        Me.fsubForm.Form.FilterOn = False
    End if

הקוד הזה עושה סינון לטופס משנה.

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

    On Error GoTo err
    
        Dim ctl As Control
        Dim strFilter As String
    
        If Me.fsubForm.SourceObject = "" Then Exit Sub
    
        If Len(Me.txtFind.text) < 1 Then
            Me.fsubForm.Form.FilterOn = False
            Exit Sub
        Else
        End If
    
        For Each ctl In Me.fsubForm.Form.Controls    'Me.Controls
            If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then 'רק פקדי טקסט
                If Left(ctl.ControlSource, 1) <> "=" Then 'דלג על תיבות טקסט מחושבים
                    strFilter = strFilter & "[" & ctl.ControlSource & "] Like " & Chr(34) & "*" & txtFind.text & "*" & Chr(34) & " OR "
                End If
            End If
        Next
        strFilter = Left(strFilter, Len(strFilter) - 4)
        Me.fsubForm.Form.Filter = strFilter
        Me.fsubForm.Form.FilterOn = True
        Exit Sub
    

    err:
        Me.fsubForm.Form.Filter = ""
        Me.fsubForm.Form.FilterOn = False

@מערכת
ביקשו לראות איך ה'טבלה' נראית. טבלה היא מקור נתונים לא פיווט.
אם אתה רוצה להיעזר, תן דוגמא של 2 הדברים,
1 הנתונים כפי שהם מופיעים.
2. איך אתה רוצה את התוצאה.
תוכל כמובן להשתמש עם נתוני דמה.

ואז ישמחו לעזור לך.

@evi952 כתב בWorkspace קבלת מיילים לדואר:

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

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

@evi952
גלגל שיניים > הצגת כל ההגדרות > חשבונות

@evi952
מה שאני כתבתי לך זה בג'ימייל של חשבון וורקספייס

@evi952
לא הגדרתי אף פעם בפאוורלינק שליחת מיילים.
אם ההגדרה היא בגוגל אז כמו בכל חשבון ג'ימייל
יש לך אפשרות שליחת אימייל בשם
גלגל שיניים > הצג את כל ההגדרות > חשבונות
אם לזה התכוונת

@evi952
את ההגדרות האלה ביצעת?
https://www.powerlink.co.il/support/kb/הגדרות מערכת/הגדרות משתמש/הגדרת Team Inbox

@ארי
מה היתה התקלה? סתם בשביל הסקרנות, ואולי גם ללימוד....

@ארי כתב בהורדת קבלות מאתר איזיקאונט (ezcount):

דוגמא של קישור

https://files.ezcount.co.il/front/documents/get/00e96269-f39e-407a-8d64-f8***9a0

@ארי
אני מוריד איתו מסמכים לאורך זמן ולא ידוע לי על שום בעיה איתו.
הורדתי איתו מאות ואולי אלפי מסמכים

בדקת את הקישור של הקבצים האלה שבגישה ישירה הם נותנים לך מסמך תקין?
אולי זה בעיה בקישור

@ארי
יש לך את הקישור לPDF שהם נותנים בעת יצירה?

אם כן
אני מוריד קבלות עם הקוד הזה
זה ההצרה והפונקציה

Option Compare Database
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
    szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function

וככה אני מוריד

Private Sub txtOrginalFileLink_DblClick(Cancel As Integer)
    Dim strPDFLink As String
    Dim strPDFFile As String
    Dim Result As Boolean
    strPDFLink = Me.txtOrginalFileLink
    strPDFFile = CurrentProject.Path & "\חשבוניות\" &  Me.מס_חשבונית & ".pdf"
    Result = DownloadFile(strPDFLink, strPDFFile)
    MsgBox Result

End Sub

@laswater
מה הצורך שלך באחסון,

אם כדי שיוכלו לעבוד עליו כמה אנשים ביחד ברשת חיצונית,
אז אין אפשרות כזאת כלל וכלל.

• כדי שיוכלו לעבוד כמה אנשים מרחוק, עושים שליטה מרחוק על מחשב-שרת אחד. וכולם מתחברים אליו.
• יש גם אפשרות להעביר את מסד הנתונים לשרת SQL ולחבר אליו את האקסס, אבל הוא עובד נורא לאט, וכלל לא מומלץ לעבוד ככה בעבודה שוטפת.

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