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

עמודה ממוחשבת בטבלה שמאגדת את שני השדות ועליה בדיקה.
או בשאילתה כנ"ל.

הוא נותן לי שגיאה 24 - קובץ start לא קיים.
מה זה השגיאה הזו לא הבנתי.

@clickone אמר בסליקת אשראי דרך פלא כארד באקסס:

@מלא היה צריך
http://mabat.net/572/documents/WebService/WebService_Heb.htm
תבקש מהם
הם יתנו לך

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

    WebSrvc.ConnectorProperty("AuthUser") = "username"
    WebSrvc.ConnectorProperty("AuthPassword") = "pass"

@Shmuel754 אמר בסליקת אשראי דרך פלא כארד באקסס:

מדוע לא להשתמש בתוכנת המדף שלהם והפעלה כמסוף בלחיצה, והעברת נתונים דרך קבצי IN/OUT ?

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

הלקוח רוצה לראות רק מסך אחד...

@WWW
באקסס, פס התקדמות אינו מובנה,
מה שאפשר לעשות זה פקד שהרוחב מוגדר לפי ערך שנותנים לו.

ושינוי בפקד כזה שאינו מאוגד חל על כל המופעים של הפקד,
ואם מדובר בטפסים רציפים, אז כל הטפסים הם מופע אחד כידוע.

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

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

תכלית, הם החליפו תוכנית ובינתיים יש חופש עד ההחלטה...

@אהרן
זה בכדי להפוך את הכל לערכים, שתוכל למיין בלי לבלבל את התוצאות.
הוא אומר להפוך את התוצאה לערכים, ע"י העתק-הדבק. (המקשים הם קיצור דרך גרידא)

עשיתי פרוייקט קטנצ'יק (אם משנה בWPF) וזה הconnectionStrung שלו:

connectionString="Data Source=myuser\SQLEXPRESS;Initial Catalog=dbName;Integrated Security=True"
providerName="System.Data.SqlClient"

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

תודה על כל עזרה או הכוונה.

לאחרונה מוישי העלה בפרוג אקסל של זה.
https://www.prog.co.il/threads/פונקציות-לתאריך-עברי.382745/

תעבוד טיפה על האשכול נראה לי שיש לו כל מיני באגים, אבל הכיוון קיים.

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

@dovid
אז דבר ראשון לא שמתי לב שמדובר באקסס עצמו. וכמובן אתה צודק.

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

נראה לי שאנטר זה 13 לבד.

ויש גם משהו מובנה בVBA למעבר שורה - vbCrLf
ככה

[א] & vbCrLf & [ב]

@pcinfogmach כתב במסד נתונים בענן... התייעצות:

מה היה הבעיות?

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

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

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

=VLOOKUP(MIN(IF(D1<=A:A,A:A)),A:B,2,FALSE)

והוא צריך להיות פונקציית מערך, לא?

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

תמחק את השורות האלו

Private Sub FilterB_Click()
On Error Resume Next
UpDateView
End Sub

ותדביק את כל זה

Private Sub FilterB_Click()
    On Error Resume Next
    UpDateView
    Dim strBodyText As String
    strBodyText = getBodyText(Me.Main.Form.RecordSource) & vbCrLf & vbCrLf
    strBodyText = strBodyText & getBodyText(Me.More.Form.RecordSource) & vbCrLf & vbCrLf
    strBodyText = strBodyText & getBodyText(Me.BB.Form.RecordSource)
    MsgBox Send(strBodyText)
End Sub


Function getBodyText(strSql As String) As String
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim strSeparator As String
    strSeparator = vbTab
    Set rs = CurrentDb.OpenRecordset(strSql)

    For i = 0 To rs.Fields.Count - 1
        getBodyText = getBodyText & rs.Fields(i).Name & strSeparator
    Next i
    getBodyText = getBodyText & vbCrLf
    
    rs.MoveFirst
    Do While Not rs.EOF
        For i = 0 To rs.Fields.Count - 1
            getBodyText = getBodyText & rs.Fields(i) & strSeparator
        Next i
        getBodyText = getBodyText & vbCrLf
        rs.MoveNext
    Loop
    rs.Clone
    rs.Close
    Set rs = Nothing
    
End Function

Public Function Send(strBodyText)
Dim cdoConfig
Dim msgOne
Dim ErrStr
 
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Update
End With
 
Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
 
msgOne.To = "To name <SendTo@gmail.com>"
msgOne.From = "Your Name <YourEmail@gmail.com>"
msgOne.Subject = "Subject"
msgOne.TextBody = "TextBody"
'msgOne.AddAttachment "C:\Users\1\Downloads\Some File.pdf"
msgOne.Send

End Function

@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
עד שתמצא מקום שהוא כתוב בשורה ראשונה של פונקציה, וכתוב אחריו סוגריים כאלו ()
ותדביק כאן את כל הפונקציה הזאת.

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

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

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

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

@סקרן-0 כתב בתכנון אקסס לכמה משתמשים:

גם @מלא הציע לעשות את החיבור באמצעות קוד, ומדבריו משמע שבחיבור רגיל זה לא יעבוד. מעבר לזה אני באמת לא יודע.

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

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

@EMG
אני לא מומחה בשימוש בVBA באקסל, אבל זה הכיוון.
הקובץ הזה עושה את זה, אבל מחזיר שגיאה אחרי כל פעולה,
מקווה שיהיה כאן מישהו שיתקן את זה.
או יבוא אולי אם רעיון שונה.
INDEX MATCH באקסל (משוחזר).xlsm