אופיס 365 קודים למפתחים באקסס

[סמוי]

מיזוג

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

 

[בנימין41]

עזרתכם בבקשה:
איך אני כותב קוד באקסס שישמור לי דו"ח כקובץ PDF, ושם הקובץ יהיה מספר תעודת הזהות שמופיע בדוח?

 

[FullTime]

האשכול הזה אינו מיועד לדיונים.

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

 

[marlan]

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

 

[boazraiz]

אני מחפש קוד פשוט לפקד של אקסס שיבצע את הפעולה הבאה :
יפתח הודעה חדשה של אאוטלוק ויכניס כקובץ מצורף קובץ חיצוני לדוגמא c:\aaa\1.xlsx

 

[ממוו]

עדיין לא תקין הקישור

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

 

[ספרא אומר ספרא יודע]

איך פורצים קובץ אקסס ששכחתי את הסיסמה?

 

[>השראה<]

מציע שתפתח אשכול חדש.

 

[ספרא אומר ספרא יודע]

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

 

[>השראה<]

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

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

בהצלחה.

 

[שמחה3]

אני מחפש קוד פשוט לפקד של אקסס שיבצע את הפעולה הבאה :
יפתח הודעה חדשה של אאוטלוק ויכניס כקובץ מצורף קובץ חיצוני לדוגמא c:\aaa\1.xlsx

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

Public Function sendMailwithAttach(Subject As String, MessageBody As String, manager As Boolean, Optional AttachmentPath, Optional AttachmentPath2)
                
Public Function sendMailwithAttach(Subject As String, MessageBody As String, manager As Boolean, Optional AttachmentPath, Optional AttachmentPath2)
                  
Dim oApp As New Outlook.Application
Dim oEmail As Outlook.MailItem
Dim fileName As String

'Email the results of the report generated
Set oEmail = oApp.CreateItem(olMailItem)
With oEmail
    'כאן מוסיפים את כתובת הנמען
    .Recipients.Add "<לא ניתן לפרסם מיילים באופן פומבי>"
    If (manager = True) Then
    'אפשרות לשלוח עותק למנהל על ידי בדיקת תנאי
     .Recipients.Add "<לא ניתן לפרסם מיילים באופן פומבי>"
     End If
    .Subject = Subject
    .body = MessageBody
    .BodyFormat = olFormatPlain
     If (AttachmentPath <> "") Then
    .Attachments.Add (AttachmentPath)
     End If
      If (AttachmentPath2 <> "") Then
    .Attachments.Add (AttachmentPath2)
     End If
    '.Attachments.Add fileName
    .Display
    '.Send ' שולח את המייל

End With

MsgBox "המייל נשלח בהצלחה!", vbInformation, "EMAIL STATUS"
End Function

 

[בוטח בה]

קוד ליצירת קובץ וורד מתוך VBA

נכתב ע"י רחמים.

Option Explicit

Sub יצירת_קובץ_וורד()

    Dim WDApp As Object
    ' יוצר מופע של וורד
    Set WDApp = CreateObject("WORD.application")
    Dim Doc As Object
    ' יוצר מופע של מסמך
    Set Doc = WDApp.Documents.Add
    WDApp.Visible = True 'גורם לוורד להראות

    ' כאן אפשר להשתמש באובייקט DOC
    ' ולהוסיף טקסט למסמך וכן לשמור אותו וכדומה
    Doc.Paragraphs(1).Range.InsertAfter "שלום עולם"
    Doc.Close -1
    ' ...

    WDApp.Quit 'בסוף השימוש חייבים לסגור
    Set WDApp = Nothing

End Sub

מעניין לדעת האם ניתן כמו כן ליצור קובץ של אדובי (פוטושופ/אילוסטרייטור/אינדיזיין)
ניסיתי(בפוטושופ), הוא אכן פותח מסמך חדש (הוא לוקח את הגודל הראשון שקיים ב'new document')
לאחר מכן הוא נתקע בDoc.Close -1 (ברור שאת השורה קודם לכן הורדתי)

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

יש סיכוי או שהגזמתי.?

 

[איש מיוחד]

יש למישהו קובץ דוגמה לחיבור ל mysql ???
דרוש לי בדחיפות

 

[עוסק]

האם יש דרך לייצא שדות מטופס שורות לוורד שורה אחרי שורה (כל שורה לדף נפרד)?

 

[אפר]

האם יש דרך לייצא שדות מטופס שורות לוורד שורה אחרי שורה (כל שורה לדף נפרד)?

מיזוג דואר לא טוב?

 

[עוסק]

אני מעדיף ביצוא מכמה וכמה סיבות

אם אין ברירה אני יעשה את זה במיזוג

 

[אפר]

אני מעדיף ביצוא מכמה וכמה סיבות

אם אין ברירה אני יעשה את זה במיזוג

ומה השליטה שלך באקסס ובמסד הנתונים המדובר?

 

[עוסק]

השליטה שלי לא ברמה גבוהה במיוחד

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

 

[אפר]

השליטה שלי לא ברמה גבוהה במיוחד

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

תעשה דוח על אותו הבסיס

 

[עוסק]

לא הבנתי אני לא מחפש לעשות דוח

אני מחפש יצוא לוורד מהשדות שבטופס שורות