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

@smk123 אמר במיזוג נתונים בוורד בקוד VBA:

@מלא
זה משנה לי כי א"א ליצא לאקסל לכאורה כי יש בטבלה מעל 100 אלף רשומות.

לא חושב שאמור להיות בעיה לייצא שאילתה של 300 מהם.

אשמח לשיפוץ של הקוד כדי שיתאים לי/הכוונה.
שוב תודה

תחליף את השורה הזאת

Application.PrintOut

בזה, (תשנה את הנתיב למה שמתאים לך)

ActiveDocument.ExportAsFixedFormat OutputFileName:="D:\שולחן העבודה\" & .RecordCount & ".pdf", ExportFormat:=wdExportFormatPDF

@smk123
בפורום הישן
@clickone הביא את האקסס הזה למיזוג דואר.
מיזוג לוורד.zip

בקוד הנ"ל הוא מייצא לאקסל, אם זה משנה לך.

ואולי לא שווה לך להעסיק את האקסס לעשות את כל העבודה
תוכל להשתמש עם קוד מעין זה כדי לסגור לPDF ישיר מוורד מתוך רשימה של 300 שמות.
(צריך לשנות שמור בשם לPDF )

Sub אא_חוברת_מיזוג_מאקסל()

    Dim i As Integer
    
    If MsgBox("זכרת לעשות 'הצג תצוגה מקדימה של תוצאות'?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbNo Then Exit Sub
    
    With ActiveDocument.MailMerge.DataSource
        If MsgBox("ידפיס " & .RecordCount & " רשומות. מאשר?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then
            .ActiveRecord = wdFirstRecord
            For i = 1 To .RecordCount
                Application.PrintOut
                .ActiveRecord = wdNextRecord
            Next
            MsgBox "הדפסת בהצלחה " & .RecordCount & " רשומות", vbMsgBoxRight + vbMsgBoxRtlReading
        End If
    End With

End Sub

@WWW
למה שלא תבדוק

if len(sumform.RecordSource) > 1
שיפעיל את השאילתה 
else...

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

ב. זה מוצר שלך כמו כל דבר.
הנגר שלוקח עובד ב30 ש"ח לשעה גם מרוויח עליו 100
וגם המלקט במחסן של סנו מקבל 30 לשעה
וגם קוטף האתרוגים מקבל 40 לשעה
ככה זה בעסקים...

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

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

במקרה הייתי חבר של אחד העובדים הבכירים בחברה ההיא, הוא קיבל 80 ש"ח לשעה...
והיה מדובר בשורה שהבעה"ב ביקש 350 לשעה

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

כאן יש מדריכים מאוד יפים

@דוב אמר באיך מוחקים שורות ריקות באקסל:

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

https://support.office.com/he-il/article/יצירת-פונקציות-מותאמות-אישית-ב-excel-2f06c10b-3622-40d6-a1b2-b6748ae8231f
https://sites.google.com/site/studyexcel1/hishuvim/function/motameshi

https://stackoverflow.com/questions/9379673/excel-vba-delete-empty-rows

@מנצפך אמר בקובץ נתונים לפרוייקט C#:

חסר לך קובץ בשם SQLite.Interop.dll או הקובץ DLL השני.
לא זוכר את שמו.
תנסה להעתיק את כל תיקיית הפרוייקט ותוותר על השטות שנקראית ClickOnce.

נראה לי שזה בגלל שהתחברתי אליו ללא נתיב, והוא לא ידע מאיפה לדלות אותו.

______________

אחרי ככלות הכל, עשיתי כעצתך והעתקתי את כל תקיית הפרוייקט ללקוח, וזה עובד לו.

______________

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

@dovid
תודה על התשובות המפורטות והבהירות.
הלכתי על Sqlite.

יש את https://www.practicu.com/

@clickone אמר בVBA -חישוב יום השנה (יארצייט):

וכמובן לפרגן למוישי מפרוג, הלא הוא @macroshadow המדהים!

למה אתה מגלה סודות...

תודה
אם הוא אמריקאי חייבים להתקפל...

@הכוכב-שלנו אמר באיך כותבים בVBA קוד לשליחת אימייל ישירות מהאקסס?:

מה??

את השאלות שלך תסדר בטבלה אצלך במחשב.
הוא השיב על השאלה ששאלת לשלוח לX את Y תעשה בטבלה
ככה אני הבנתי,

@clickone אמר באיך כותבים בVBA קוד לשליחת אימייל ישירות מהאקסס?:

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

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

מה ש@clickone הביא זה פונקציה שאמורים לשים אותה מחוץ ללחצן ולשלוח לו call מלחצן + הפרמטרים.
אם אני זוכר נכון, הקוד הזה מצריך רפרנסים.
כמו"כ אתה צריך לאפשר בג'ימייל שליחה מתוכנות חיצוניות.

@חייםיודלביץ כתב באקסס | בקשת עזרה עם פונקצייה IF:

זה הנקודה שלא הבנתי, מה ההבדל בין "" ל NULL , ומתי נכון להשתמש בכל אחד.

https://www.google.com/search?q=What+is+the+difference+between+""+and+null+in+Access&oq=What+is+the+difference+between+""+and+null+in+Access&gs_lcrp=EgZjaHJvbWUyBggAEEUYOdIBCDEwNjNqMGo3qAIAsAIA&sourceid=chrome&ie=UTF-8

עושים את זה דרך: הוספה > חלקים מהירים > שדה > IncludePicture > אישור.
אח"ז מוסיפים את שדה התמונה לתוך החלק הזה.
ראה כאן וכאן.
שים לב שצריך להכפיל את הלוכסנים האלו \ באקסל באמצעות חפש החלף (CTRL + H).
באתרים הנ"ל הם כותבים שF9 מציג את התמונות.
לי הוא הציג אותם רק כשעשיתי על כל תמונה: לחיצה ימנית > עריכת שדה > אנטר.

@ארי
יש לך את הקישור ל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

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

אני מחפש בכל אופן משהו מוכן כאן ועכשיו.