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

תתקין את ההרחבה של adobe לאקספלורר
כאן יש הוראות מפורטות
אחר כך תפתח באקסס את הPDF באובייקט דפדפן.
זה עובד מצוין. בדקתי עכשיו.

@בעזרתו אמר בהתאמת אקסס ישן ל365:

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

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

Me.WebBrowser1.ControlSource = "=(""" & GetFilePath() & """)"
Me.WebBrowser1.Object.refresh

@איש-ימיני
קבל 2 הארות קטנות.

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

' This function overcomes the bankers Rounding that occurs in the
' built-in VBA Round function to provide true (symmetric) numeric Rounding
' Created by TechOnTheNet.com
Public Function StandardRound(pValue As Double, pDecimalPlaces As Integer) As Variant
    Dim LValue As String
    Dim LPos As Integer
    Dim LNumDecimals As Long
    Dim LDecimalSymbol As String
    Dim QValue As Double
    ' Return an error if the decimal places provided is negative
    If pDecimalPlaces < 0 Then
       StandardRound = CVErr(2001)
          Exit Function
    End If

    ' If your country uses a different symbol than the "." to denote a decimal
    ' then change the following LDecimalSymbol variable to that character
    LDecimalSymbol = "."

    ' Determine the number of decimal places in the value provided using
    ' the length of the value and the position of the decimal symbol
    LValue = CStr(pValue)
    LPos = InStr(LValue, LDecimalSymbol)
    LNumDecimals = Len(LValue) - LPos

    ' Round if the value provided has decimals and the number of decimals
    ' is greater than the number of decimal places we are rounding to
    If (LPos > 0) And (LNumDecimals > 0) And (LNumDecimals > pDecimalPlaces) Then

        ' Calculate the factor to add
        QValue = (1 / (10 ^ (LNumDecimals + 1)))
        ' Symmetric rounding is commonly desired so if the value is
        ' negative, make the factor negative
        ' (Remove the following 3 lines if you require "Round Up" rounding)
        If (pValue < 0) Then
            QValue = -QValue
        End If

        ' Add a 1 to the end of the value (For example, if pValue is 12.65
        ' then we will use 12.651 when rounding)
        StandardRound = Round(pValue + QValue, pDecimalPlaces)

    ' Otherwise return the original value
    Else
        StandardRound = pValue
    End If
End Function

לשימוש בפונקציה, אתה פשוט מדביק את הקוד לעיל במודול כלשהו
ומחליף את המילה Round ל StandardRound

בהצלחה

@מנצפך תודה
לא ידעתי מהאפשרות הזו
מעניין אותי הסקריפט..

לאן זה שולח את ההצהרה?

זה כתובת הדוא"ל של הספק לדיווח על שימוש לרעה abuse@global-layer.com
אתה יכול לפנות לשם עם בקשה לבירור, אולי תקבל תשובה שתרגיע אותך

@אהרן אמר במישהו יודע מה קורה עם רבותינו?:

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

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

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

מלא טעויות בשמות רחובות (עדיין)

@פרסומון אמר ביש מתיבתא סרוק כמו שיש שוטנשטיין?:

יש גמרות שוטנשטיין סרוק דף דף.

אפשר קישור?

@nigun
שלחתי לך בפרטי.

@ליבל אמר בתוכנית 'פיתוחים':

אשמח לתת פרטים באישי

אין כאן אישי...

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

@chv תודה
איך עדיף לעשות?
להכניס את שני הדיסקים למחשב אחר
או במחשב המקורי שבו תבוצע ההחלפה?

תודה

@יעקב-ישראל אמר בשיכפול דיסק קשיח (clone):

@אבי מדוייק (לא יודע מאיפה הגיע השגיאת כתיב הזו)

אין התאמה מסויימת שצריכים לעשות בדיסק החדש
או הפתעה שיכולה לצוץ פתאום?

@אבי אמר בשיכפול דיסק קשיח (clone):

להעלוט בוט איירנס

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

הבנתי נכון?

@יעקב-ישראל אמר בשיכפול דיסק קשיח (clone):

@אבי לא
להעלוט בוט איירנס ולעשות העתק הדבק לדיסק

במה זה יותר טוב?
אשמח להסבר / קישור להדרכה מעשית

תודה