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

סמוי

משתמש פעיל
מיזוג

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

בנימין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 "[email protected]"
    If (manager = True) Then
    'אפשרות לשלוח עותק למנהל על ידי בדיקת תנאי
     .Recipients.Add "[email protected]"
     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) ולאחר מכן יתן לי לעבוד על הקובץ (לא יסגור את התוכנה)

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

עוסק

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

עוסק

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

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

עוסק

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

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

אפר

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

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

עוסק

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

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

אירועים קרובים

ראש פינה

הפרוגיסטים נותנים בראש

לוח דרושים

למעלה