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

@shraga אמר בהאם יש נפילה כרגע בשרתי גוגל?:

@yits אולי בשרתי נטפרי?

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

אני מנסה להוריד קובץ מהדרייב ללא הצלחה.

האם יש כרגע נפילה?

אולי כדאי לך לבדוק את המיני PC של ASUS
המעלה שלהם על האחרים, שהם משתמשים במעבדים של נייח ולא נייד, וגם יש אפשרות ל 4 דיסקים בגודל 2.5 + 1 M.2

https://ksp.co.il/cat/2899.269..399..1358.

@a0533057932

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

• i3 זה מספיק (אם אתה מדבר על דור 8 שהוא 4 ליבות פיזיות).
  4 GB זיכרון RAM יספיק.

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

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

• דיסק קשיח פנימי מסוג SSD יספיק לך 120 GB עבור מערכת הפעלה ותוכנות, עבור חומר אישי כנראה שזה לא יספיק ובשביל זה תשתמש בדיסק רגיל לא ב SSD.

אגב מה כוונתך בחיבורי USB מהירים, התקן של USB 2 הוא כ 33 MB לשניה (להרחבה עיין כאן), ונגן רגיל מסוגל לכתוב כ 4 MB לשניה בלבד.

@A0533057932
אני קניתי i3-7100 עבור בית כנסת וברוך השם לא היו כלל תקלות.

מומלץ להשתמש בחיבור רשת ולא בדיסקים פנימיים.
אני חושב שכמות השיעורים שמתווספים מידי חודש הם למעלה מ 50 GB.
וכנראה בשביל המאגר כולו נדרש דיסקים של יותר מ 10 TB, וגם שרשמית לא מבצעים כיום שירות של הטענת דיסקים קשיחים במשרד.

אם אתה רוצה אני יכול להמליץ על דגם
https://ksp.co.il/item/2899-16093
דיסק קשיח 4TB
https://ksp.co.il/item/2899-41845

ואם אתה רוצה 4 יציאות אחוריות של USB 3 אז תשדרג לוח לדגם הזה:
https://ksp.co.il/item/2899-47736

נ.ב. גילוי נאות - אני מרוויח מכל קניה שמתבצעת דרך הלינקים שלי ברשת KSP.

תבדקי בתיקית מסמכים,
לפי התמונה שהעלית קודם, זה נראה שנוצר לך קובץ בשם DESKTOP-JBVCKTN.arn

אני רואה שזה ייצר דוח,
התכוננתי שתעלי את הדוח לכאן או ל https://send.magicode.me/

@אסתר אמר בדיסק און קי:

שמרתי
נראה לי שזה אותו הדבר

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

יש את השורה שמסומנת בצהוב, והיא נראית לא תקינה.

עדיף לעשות שמירה ולהעלות את הקובץ לכאן

כתבתי להפעיל את Autoruns64.exe לא את Autorunsc64.exe

האות C מייצגת את שורת הפקודה (CLI).

אולי תשתמשי עם התוכנה autoruns ותייצרי קובץ של לוג ותעלי לכאן,
ונוכל לראות אם יש לך וירוס.

Autoruns.zip

• להפעיל את הקובץ בשם Autoruns64.exe.
• להמתין עד שיעלה הכל.
• ללחוץ על האייקון של שמור, או ללחוץ על File ואח"כ על Save.

@אסתר
יש לך וירוס או שאריות של LNK

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

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

@by6199

מה אתה רוצה לעשות לעדכן פריט יחיד או טבלה שלמה?

אגב, אין הרבה מה לעשות עם הקוד רק להניח אותו במקום הנכון, ולשנות כמה מילים בודדות.

@by6199

אם אתה עדיין צריך קוד, מצאתי משהו שעשיתי עם הקוד שפורסם בפרוג.
Module1.bas

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

' השורה הראשונה עבור אקסס בלבד
Option Compare Database
Option Explicit

Sub Demo()

    Dim rs As DAO.Recordset
    Dim strUrl As String

    Set rs = CurrentDb.OpenRecordset("נתונים")

    With rs
        .MoveFirst
        Do Until rs.EOF
      
            If Nz(!מיקוד) = "" Then

                strUrl = "http://www.israelpost.co.il/zip_data1.nsf/SearchZip?OpenAgent"
                strUrl = strUrl & "&Location=" & UnicodeEncode(!עיר)
                strUrl = strUrl & "&POB="
                strUrl = strUrl & "&Street=" & UnicodeEncode(!רחוב)
                strUrl = strUrl & "&House=" & UnicodeEncode(!בית)
                strUrl = strUrl & "&Entrance=" & UnicodeEncode(!כניסה)
            
                .Edit
                !מיקוד = GetZipCode(strUrl, False)
                .Update
                If !מיקוד <> 0 Then
                    Debug.Print !עיר & vbTab & !רחוב & vbTab & !בית & vbTab & !מיקוד
                End If
            End If
           
            .MoveNext
             
        Loop
    End With

End Sub

Public Function UnicodeEncode(str) As String
    If IsNull(str) Then Exit Function
    Dim i, a
    For i = 1 To Len(str)
        a = AscW(Mid(str, i, 1))
        If a > -1 And a < 127 Then
            UnicodeEncode = UnicodeEncode & "%" & String(2 - Len(Hex(a)), "0") & Hex(a)
        ElseIf a > -1 Or a < 65535 Then
            UnicodeEncode = UnicodeEncode & "%u" & String(4 - Len(Hex(a)), "0") & Hex(a)
        End If
    Next
End Function

Function GetZipCode(strUrl As String, Optional blnAlert As Boolean = True) As Long

    Dim oHttpRequest As Object
    Dim strResult As String

    Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    oHttpRequest.Open "GET", strUrl

    ' שליחת בקשה '
    oHttpRequest.Send

    ' נקבל תוצאה זו '
    strResult = oHttpRequest.ResponseText

    ' הוצאת המיקוד 7 ספרות '
    If InStr(1, strResult, "ישוב או רחוב לא קיים") > 0 Then
        GetZipCode = 0
    ElseIf InStr(1, strResult, "לא נמצא מיקוד") > 0 Then
        GetZipCode = 0
    ElseIf InStr(1, strResult, "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה") > 0 Then
        GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 78, 7)
        If blnAlert Then MsgBox "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה.", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation
    Else
        GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 8, 7)
    End If

    Set oHttpRequest = Nothing

End Function

Function GetRate(strUrl As String) As Double

    Dim oHttpRequest As Object
    Dim strResult As String

    Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    oHttpRequest.Open "GET", strUrl

    ' שליחת בקשה '
    oHttpRequest.Send

    ' נקבל תוצאה זו '
    strResult = oHttpRequest.ResponseText

''<ERROR1>
    GetRate = Mid(strResult, _
        InStr(1, strResult, "<RATE>") + 6, _
        InStr(1, strResult, "</RATE>") - InStr(1, strResult, "<RATE>") - 6)

    Set oHttpRequest = Nothing

End Function

@clickone

זה באמת המסקנה שהגעתי אליה,
ומזה נוצר הנושא השני http://tchumim.com/topic/3498/בקשה-שרת-עם-נטפרי
תודה

@www אמר בבקשה: שרת עם נטפרי:

אפשר גם את זה לעשות אוטומטי, אבל זה באמת עבודה...

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

@www אמר בבקשה: שרת עם נטפרי:

או טופס אקסס שיהיה מעוצב כמו המפה.

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

@www אמר בבקשה: שרת עם נטפרי:

@yits אני יודע, ולכן לא הצעתי לך את זה עד עכשיו...

בעיקרון מה שצריך לעשות להקים שרת MySQL והאקסס והאקסל יתחברו אליו,
והכל אמור לעבוד מצוין בצורה כזאת.

@www
לכן אני עשיתי עם אקסל שמתחבר לאקסס.

ועשיתי לזה סרגל כלים כזה

http://tchumim.com/topic/3365/בעייה-ביצירת-מפה-מקומות-ביהמ-ד-באקסל/3