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

@שוהם307 כתב בשקע+מתג:

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

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

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

תמלא את החור (שימלא את החסר ואפשר קצת יותר) עם סופר 7 וכדומה תן לו להתייבש כמה שעות (רצוי ייבוש מלא), ואח"כ תחבר.

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

@מעמד אמר בטייפ טושיבה שלא קורא את הUSB - עזרה:

@בערל אמר בטייפ טושיבה שלא קורא את הUSB - עזרה:

@מעמד בכדי להיות בטוח, כדאי לבדוק בכונן של 4 ג'יגה. אולי זה לא תומך ביותר מזה..

גאון !!
עובד !!
מה הדפקת הזה שביותר זה לא נתמך ?

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

@clickone @yossiz המון תודות עובד מעולה
אין עליכם

כתבתי קוד משלי לשמירת סיסמאות בdb אקסס
זה הקוד:

Public Function EncryptString(str As String) As String
    Dim i As Integer
    Dim encryptedStr As String
    Dim Doubl As Long
    Dim todivide As Long
    Dim encoded As Long
    encryptedStr = ""
    
    For i = 1 To Len(str)
    
    If i - 1 < 1 Then todivide = Len(str) Else: todivide = i - 1
    If i + 1 > Len(str) Then Doubl = 1 Else: Doubl = i + 1
    encoded = Asc(Mid(str, i, 1)) * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
    If encoded = 32 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
    If encoded = 13 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
        Do While encoded >= 191
            encoded = encoded - 191
            If encoded = 32 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
            If encoded = 13 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
        Loop
        encryptedStr = encryptedStr & Chr(encoded)
    Next i
    
    EncryptString = encryptedStr

End Function

התוצאות של הקוד שהזנתי הם

M›rG
cfoq

האם אפשר לדבג אותם אחורה או שכתבתי מעולה?

@מלא ואההווו
לא הכרתי את זה זה נשמע באמת הרבה יותר מעולה וקל לתפעול + בלי קריאה של המשתנים ותפעול קליל.
עריכה: המעלה העיקרית שלו שהמשתנה לא מתאפס בזמן שגיאת ריצה (כלשונם)
תודה רבה.

את האמת הוודעתי ל Powershell רק בשבועות האחרונים והוא פשוט כלי שמדהים אותי ממש כל פעם מחדש
כל יום "יהיו בעיניך כחדשים"

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

$changes.InputObject.path

לתועלת הציבור הקוד הזה עובד מעולה

    $folder1 = "X:\Test"
    
    $folder2 = "X:\MyBackup\Test"
     
    $folder1Items = Get-ChildItem $folder1 -Recurse | Get-FileHash -Algorithm MD5

    $folder2Items  = Get-ChildItem $folder2 -Recurse | Get-FileHash -Algorithm MD5
  
    $changes = Compare-Object $folder1Items $folder2Items -Property Name, Path -IncludeEqual
 
    $updated = $changes | Where-Object {$_.SideIndicator -eq "<="}
    

        $updated | ForEach-Object {
            
            $ww = (Get-Item $_.Path).DirectoryName.replace($folder1,$folder2)
            if (!(Test-Path -path $ww)) {
            New-Item $ww -Type Directory
            }
            Copy-Item $_.Path $ww -Force 
        }

כמובן שיש לשנות את הנתיבים

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

1. איפה בדיוק שמת את הקוד של ההמתנה (באיזו שורה)???
2. ולכמה זמן נתנת לו המתנה ומה יקרה אם תתן לו דקה שלימה להמתין.

אין לי כרגע גישה לקובץ שאיתו היה לי את הבעיה בכדי לבדוק מה בדיוק עשיתי ועם איזה קוד השתמשתי.

@odeddvir תודה
תשובה פשוטה ועובד חלק!

יש לי שרת SQL מותקן על המחשב האישי שלי
בנוסף מותקן לי על המחשב תוכנת לינקפד (בהמלצת @dovid ... וב"ה נהנה ממנה כל רגע)
כעת אני רוצה לגשת לdb מתוך הלינקפד כלומר מכאן

השאלה היא איך ניתן לחבר

@מלא אמר בפתיחת ערכי תיבת רשימה ע"י קוד vba אקסס:

@אוריי אמר בפתיחת ערכי תיבת רשימה ע"י קוד vba אקסס:

שאלה שניה אני אני סוגר את התיבת רשימה אותו אם יש פחות מ0?

לא מוכר לי דרך, כשאתה יוצא מהתא הוא נסגר אוט'

הסתדר,
הפנתי את הבחירה לתיבת טקסט אחרת והחזרתי לתא הנוכחי ועובד מעולה!!
תענוג עילאי פשוט חיסכון של @מלא זמן

@מלא אמר בפתיחת ערכי תיבת רשימה ע"י קוד vba אקסס:

שים לב, שבאירוע בעת שינוי צריך לקרוא לערך עם value ככה: cobBoxName.value

צריך לכתוב text ולא value

@chagold @מלא
ב"ה הסתדרתי
זה היה קוד שהוא לא כזה נצרך.
והגעתי לאותה התוצאה בצורה שונה.
הרבה תודה על הרצון הטוב לעזור

הצלחתי לעלות על הבעיה היה צריך לכתוב כך

xl_app.ActiveSheet.DisplayRightToLeft = True

ולא xl_wks
@מנחם למה בחלק הוא מצריך xl_wks ובחלק מהקודים xl_app ??

מצאתי את ההגדרה
TextFormat
כדי לשנות לטקסט עשיר

me.<שם תיבת טקסט>.TextFormat=acTextFormatHTMLRichText

וכדי לשנות לטקסט רגיל

me.<שם תיבת טקסט>.TextFormat=acTextFormatPlain

@clickone
כתבתי כך

=Replace(Nz([yy]![BookList]![IdBook],""),Nz([Forms]![yy1]![SearchTheEntireDocument1].[Text],""),"<font style=""BACKGROUND-COLOR:#FFFF00"">" & Nz([Forms]![yy1]![SearchTheEntireDocument1].[Text],"") & "</font>")

אבל אני מקבל שגיאה כזו
?Name#

יש לי חיפוש בכל המסמך שעשיתי כמו ש @OdedDvir הסביר בטוב טעם כאן

ב"ה עובד מעולה ובשימוש כבר הרבה זמן
אמנם רציתי לשאול האם אני יכול לשפר אותו ע"י הדגשה (באופן כל שהיא) של התוצאות חיפוש כמו בתמונה הבאה או אחרת

או אפי' שהאותיות יהיו בצבע שונה

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