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

סמוי

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

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

בנימין41

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

FullTime

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

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

marlan

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

 

קבצים מצורפים

  • ModGimatria.zip
    KB 33 · צפיות: 65

boazraiz

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

>השראה<

מיתוג | אסטרטגיה | עיצוב, אפיון, וקידום אתרים
מנוי פרימיום
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
פרסום וקופי
מוזיקה ונגינה
עימוד ספרים
הדמיות בתלת מימד
UX UI
D I G I T A L
עימוד ספרים
מציע שתפתח אשכול חדש.
 

>השראה<

מיתוג | אסטרטגיה | עיצוב, אפיון, וקידום אתרים
מנוי פרימיום
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
פרסום וקופי
מוזיקה ונגינה
עימוד ספרים
הדמיות בתלת מימד
UX UI
D I G I T A L
עימוד ספרים
יש לי קובץ אקסס סגור ששכחתי את הסיסמה
למי שיודע או מכיר תוכנה לפריצת הקובץ אם הוא יכול להעלות
תודה מראש

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

בהצלחה.
 

שמחה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
 

ש.ב.ח.

משתמש מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
D I G I T A L
קוד ליצירת קובץ וורד מתוך 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) ולאחר מכן יתן לי לעבוד על הקובץ (לא יסגור את התוכנה)

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

עוסק

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

עוסק

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

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

עוסק

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

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

אפר

סתם מתעניין...
מנוי פרימיום
השליטה שלי לא ברמה גבוהה במיוחד

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

עוסק

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

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

אולי מעניין אותך גם...

הפרק היומי

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


תהילים פרק קיט ב'

ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ:
נקרא  12  פעמים

לוח מודעות

למעלה