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

הנושא בפורום 'פורום תוכנות מייקרוסופט אופיס' פורסם ע"י יאיר משה, ‏28/9/14.

  1. ספרא אומר ספרא יודע

    ספרא אומר ספרא יודע משתמש פעיל

    הצטרף:
    ‏5/6/18
    הודעות:
    391
    תודות :
    614
    נקודות:
    99
    איך פורצים קובץ אקסס ששכחתי את הסיסמה?
     
  2. miro

    miro משתמש מקצוען עיצוב גרפי פרסום וקופירייטינג

    הצטרף:
    ‏15/10/17
    הודעות:
    306
    תודות :
    487
    נקודות:
    104
    מיקום:
    ביש
    מציע שתפתח אשכול חדש.
     
    הסכת ושמע מודה על התגובה.
  3. ספרא אומר ספרא יודע

    ספרא אומר ספרא יודע משתמש פעיל

    הצטרף:
    ‏5/6/18
    הודעות:
    391
    תודות :
    614
    נקודות:
    99
    יש לי קובץ אקסס סגור ששכחתי את הסיסמה
    למי שיודע או מכיר תוכנה לפריצת הקובץ אם הוא יכול להעלות
    תודה מראש
     
  4. miro

    miro משתמש מקצוען עיצוב גרפי פרסום וקופירייטינג

    הצטרף:
    ‏15/10/17
    הודעות:
    306
    תודות :
    487
    נקודות:
    104
    מיקום:
    ביש
    אני מציע לך שתפתח אשכול חדש כי האשכול הזה כבר מזמן לא במעקב (עיין תאריך התוכן האחרון שהושאר כאן) ואם תפתח אשכול חדש הסכויים הרבה יותר גדולים שיענו לך...

    בהצלחה.
     
  5. שמחה3

    שמחה3 משתמש חדש

    הצטרף:
    ‏2/11/17
    הודעות:
    1
    תודות :
    6
    נקודות:
    4
    כאן הפונקציה יכולה לקבלה שתי נתיבים עבור שני קבצים, ובאותו הדרך אפשר להוסיף עוד קבצים

    קוד:
    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 "a@abc.org"
        If (manager = True) Then
        'אפשרות לשלוח עותק למנהל על ידי בדיקת תנאי
         .Recipients.Add "p@abc.org"
         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
    
     
    דב פליי ו-ארי4791 מודים על התגובה.
  6. ש.ב.ח.

    ש.ב.ח. משתמש מקצוען עיצוב גרפי

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

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

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