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

@אוריי אין אפשרות בקוד, אפשר על ידי מאקרו על הטבלה - אבל אני לא ממליץ.
צור טופס רציף המכיל את השדות בטבלה ושם תוסיף את הקוד.

@אוריי אמר בתאריך ושעת יצירת שורה בטבלת אקסס:

ניסית לכתוב בבונה נוסחת iif בצורה כזו ומשום מה לא עובד אולי צריך לכתוב את זה בצורה שונה

באיזה בונה רשמת, מה המטרה של ה-iif?

@יוני אמר באיך אפשר להגביר מהירות של מחשב איטי?:

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

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

@יוסי1 יש אפשרות למחוק ידנית את הקובץ "Adobe Illustrator Prefs" (או להעביר אותו למקום בטוח)
הקובץ נמצא ב:

C:\Users\שם_המשתמש_שלך\AppData\Roaming\Adobe\Adobe Illustrator 24 Settings\en_US\x64

לגרסה 2019 תחליף את המספר 24 ל-23.

@יוסי1 איזו גירסה?

@יוסי1 אמר בIllustrator לא פותח קבצים בצורה תקינה:

כשלחצתי את הצירוף הזה זה תקע את האילוס'
אחרי זה מה לעשות לסגור את התכנה ולהפעיל שוב?

האילוסטרטור אמור לבקש ממך הרשאות מנהל, ואחרי האישור להציג את המסך הבא:

@ראש-פינה אמר בIllustrator לא פותח קבצים בצורה תקינה:

מה יכול להיות הבעיה. זה ודאי לא בעיה בקובץ.

איך אתה יודע שזה נכון? האם בדקת במחשב אחר?

@יוסי1 יש כאן עצה לאפס את אילוסטרטור:
בהפעלת התוכנה החזק לחוץ את Ctrl+Alt+Shift

@יוסי1 פעם נתקלתי בבעיה דומה, האילוסטרטור היה מצליח ליצור קבצים חדשים ללא בעיה, אך לא היה פותח קבצים. לבסוף התברר שהייתה בעיה עם שם הקובץ בעברית. כששיניתי את שם הקובץ (ואת התיקיה שלו) לאנגלית הכל עבד מצוין.

@איש-ימיני אפשר לנסות גישה אחרת, ולהשתמש בקריאת מערכת כדי לפתוח את הקישור
לשם כך עליך להצהיר על פונקצית API של Windows בשם ShellExecute
פתח מודל חדש ותרשום

Option Compare Database
Option Explicit

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal lpnShowCmd As Long) As LongPtr

Public Sub OpenURL(ByVal sURL As String)
    ShellExecute 0, "open", sURL, "", "", 1
End Sub

עכשיו בקוד של הפקד תרשום פשוט

Private Sub Expr1_Click()
    OpenURL Me!Expr1
End Sub

תבדוק האם גם עכשיו נפתח פעמיים

@איש-ימיני תבדוק האם זה מופיע פעם אחת והקישור עדיין נפתח פעמיים
(כמובן תזכור קודם למחוק את התוכן של חלון ה-Immediate)

@איש-ימיני בארוע הלחיצה אתה צריך לבחור [פרוצדורת אירוע], ללחוץ על הנקודות [...] ואז לרשום את הקוד (בתוך הפונקציה)

@שלומ אמר בתוכנה ליצירת פונטים - עבור אקורדים לגיטרה - האם קיים:

אתה יכול להביא לי כזה תוכנה או לרשום לי מה לחפש?

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

@איש-ימיני
אתה צריך לבצע את הפעולות הבאות:

1. להפוך את השדה לשדה טקסט ארוך
2. ליצור טופס רציף שמציג את הרשומות
3. להוסיף ארוע לחיצה לפקד שמציג את הכתובת
4. לכתוב שם את הקוד הבא:

Application.FollowHyperlink Me!<שם הפקד>

@ראש-פינה אתה צריך ליצור טבלת ציר PivotTable

@שעטנ-ז-ג-ץ אני הייתי מנסה בResourceEditor להחליף את התמונה

@אוריי אמר בהפעלת קוד vba באקסל דרך אקסס:

אבל צריך לשים לב שבאקסל מותאם לvba הסיומת היא .xlsm ולא .xlsx כך שבמצב כזה הוא לא יקרא אותו

נכון, אני אערוך את המקור למעלה

מוזר מאד שבהתחלה זה עבד לי גם כאשר הסיומת הייתה .xlsx אבל כאשר השתמשתי עם הקוד הזה הוא דורש דווקא סיומת של .xlsm

גם אצלך (בצילום מסך למעלה) כתוב .xlsm

@אוריי אמר בהפעלת קוד vba באקסל דרך אקסס:

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

כן, תשנה את שורה 7 ל:

xl.Visible = False

או שפשוט תמחק אותה, כמדומני שברירת המחדל היא לא להציג את הקובץ

לגבי ההפניה של הקוד לעבר מיקום הקובץ יש לי בעיה קטנה כי לפעמים אני מעביר את הקובץ ממחשב למחשב ואני רוצה שהוא יעבוד רק מה שקורה הוא שאני צריך לשנות בתוך הקוד את ההפניה כעת יש לי קובץ של דטא שבו יש לי טבלאות מקושרות כעת אני רוצה לדעת האם במקום הקוד של ההפניה אני כותב לו שיחפש בתוך התקיה ששם הדטא נמצאת את קובץ אקסל בשם XXXXX כך בכל פעם שאני יעתיק את הקובץ למחשב אחר ברגע שאני יעדכן את מיקום הדטא יתעדכן גם מיקום הקובץ?
מקווה שהובנתי היטב..

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

אני מציע לך לשים את האקסל באותה תיקיה כמו קובץ האקסס ולהשתמש באובייקט CurrentProject כדי לאחזר את מיקום הקובץ של האקסס, ואז לבצע קריאה כך (במקום שורה 9):

Dim xlFilePath As String
xlFilePath = CurrentProject.Path & "\" & "שם הקובץ שלך.xlsm"
xl.Workbooks.Open xlFilePath, True, False

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

@אוריי תשנה את שורה 3 ל:

Dim xl As Object