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

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

אני משתמש רק בתוכנה 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()

@אוריי האם מתבצעת בכלל קריאה לפונקציה בזמן הריצה?

@אוריי הקוד צריך להמצא בטופס שמציג את השאילתא על ShelfCharacteristics
העובדה שהטופס הנ"ל נמצא בעוד טופס אחר לא משנה.

י יש שאילתה לפי מס' מדף השאילתה מוצגת בתוך טופס

נקרא לו A

והטופס הזה בתוך טופס אחר

נקרא לו B

הקוד צריך להיות בטופס A

@אוריי אההה, זו לא באמת שגיאה, אלא מוגבלות של השפה:
תשנה את הקוד ל:

Forms!as.SetColors
או
Forms("as").Form.SetColors

דהיינו בלי סוגריים, או אם דווקא אתה רוצה סוגריים תוסיף את המילה Call בהתחלה

Call Forms("as").Form.SetColors()

@אוריי מה השגיאה שמחזיר?

@אוריי זו שגיאה כי הקומפיילר לא מזהה את הפונקציה.
תוכל לעקוף את השגיאה על ידי

Forms("as").Form.SetColors()

או על ידי

Forms!as.SetColors()

@אוריי אמר בהאם אפשר לעשות עיצוב מותנה לפקד באקסס?:

א. איך להפוך לציבורית

רשמתי לך למעלה (לשנות את המילה Private למילה Public)

ב. האם אני אמור לשנות את זה?

כן, תכניס שם את שם הטופס שמכיל את הפקדים, למשל:

Forms("Shelves").SetColors()

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

Public Sub SetColors()
.....

אחר כך תוסיף לטופס שבו נמצאת הטבלה את הארוע After_Apdate() ושם תקרא לפונקציה של הטופס:

Private Sub After_Update()
    Forms("<form-name>").SetColors()
End Sub

@אוריי צודק, ערכתי את הקוד למעלה