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

@אוריי אמר בהפעלת קוד 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

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

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

תפרט יותר את הקוד שבאקסל, מה עשית לקוד שמצאת, ומה השגיאה

@yossiz אמר בהאנטומיה של שאילתת SQL- תגובות:

דוד תרגם את המילה implicit כ"משתמע" או "מרומז"

לא שמתי לב...

@nigun אמר בהאנטומיה של שאילתת SQL- תגובות:

(לא הבנתי מה זה implicit).

התרגום הוא "בלתי מפורש", דהיינו שנוצר קיבוץ בלתי מפורש עם קבוצה אחת
(כאילו השתמשנו בפירוש ב GROUP BY)

@nigun אמר בהאנטומיה של שאילתת SQL- תגובות:

אז השאלה שלי עכשיו, למה לא להשתמש תמיד בHAVING ?

מבחינת יעילות, לענ"ד אין להשתמש ב HAVING אם אפשר להשתמש ב- WHERE, מפני שה-WHERE הוא מסנן מוקדם ברמת השורה, ומתבצע לפני הקיבוץ, וכך הקיבוץ מתבצע על קבוצה קטנה יותר (תוצאת ה-WHERE) לעומת זאת ה-HAVING הוא מסנן מאוחר ברמת קבוצה, ויתבצע על כל הרשומות.

@A0533057932 אמר בעזרה בהקטנת גודל וידיאו:

הזכרת פרמייר כמה מסובך ללמוד אותה (לדבר זה הקטנת גודל הקובץ ותו לא)

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

@איפכא-מסתברא לי פתוח בנטפרי, אבל אני יכול לשלוח לך בפרטי.
סתם מעניין לדעת למה חסום לך? האם על ידי נטפרי?

אני משתמש רק בתוכנה Freemake Video Converter מהסיבות הבאות:

1. המרה יותר איכותית מFormatFactory ויותר מהירה (קוד ב-C++/C)
2. ממשק נוח וקל להבנה
3. חינמי לגמרי
4. אפשרויות לחיבור של קטעי וידאו שונים יחד בקלות
5. אפשרות עריכה בסיסית (חיתוך קטעים)
   שים לב שלא מומלץ להוריד את הגירסה האחרונה, אלא דווקא גירסה 4.1.4.0, כי בגרסאות הבאות הוסיפו סימן מים מעצבן על כל הסרטונים שמומרים, תוכל להוריד מכאן

@מתבונן תודה, על פניו זה נראה לי יקר מאוד... האם התוצאה משתלמת?

אני מעוניין בהקלטה באיכות של לפחות 44,000Hz
אשמח להמלצות מבעלי ניסיון (אפשר גם מחו"ל)

@nigun תוכל להעלות תמונה של הבטריה, וכן לציין בדיוק את מודל המכשיר (מספר סידורי ודגם, MTK מוציאה הרבה מכשירים)?

@שעטנ-ז-ג-ץ כרטיס קול USB
למשל: כאן

@nigun של הבטרייה או של המכשיר

@nigun מה המודל \ מספר סידורי

תוכל להוסיף בין שורה 1 לשורה 2 את הקוד

On Error Resume Next

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

@אוריי זה אומר שאין לך פקד בשם "5" בטופס, אבל בטבלה יש

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

Public Sub SetColors()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("ShelfCharacteristics", dbOpenSnapshot, dbReadOnly)
    rs.MoveFirst
    While Not rs.EOF
        If rs!ClosedShelf Then
              Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbRed
        Else
              Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbBlack
       End If
       rs.MoveNext
    Wend
    rs.Close
End Sub

@אוריי אתה צריך להוריד את המילה Form

Call Forms("as").SetColors()