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

גם הקוד הזה עושה לי שגיאות:
קוד שמריץ תוכנה מסוימת מתוך האקסס.

Option Compare Database

Private Sub פקודה0_Click()
    Call Shell("C:\Windows\system32\Taskmgr.exe", vbNormalFocus)
End Sub

יש לי מלא פעמים שגיאות בקוד VBA שכתבתי במחשב מסויים, כשאני מפעיל אותו במחשב אחר, הבנתי שזה קשור לX32 ו X64, זה נכון? וא"כ איך פוטרים את זה?

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

זה קוד להבאת שערי המט"ח מבנק ישראל: זה השגיאה שמופיעה בהרצה

Option Compare Database
Option Explicit

#If Win64 Then
    Public Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As LongPtr, ByVal dwReserved As Long) As Boolean
    #Else
    Public Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean
    #End If

Public Function GetNISExchangeRate(Optional dtDate As Date = #1/1/1900#, Optional strCurr As String = "01") As Double

    Dim strURL As String
    Dim strResult As String
    Dim lngStartPosition As Long
    Dim lngEndPosition As Long
    Dim strFirstSearch As String
    Dim strLastSearch As String
    Dim dtPreviousDate As Date
    Dim i As Integer

    strFirstSearch = "<RATE>"
    strLastSearch = "</RATE>"

    If dtDate = #1/1/1900# Then
        dtDate = Date
    End If

    Select Case strCurr
        Case "01", "02", "03", "05", "06", "12", "17", "18", "27", "28", "31", "69", "70", "79"
        Case Else
            MsgBox "קוד מטבע לא חוקי!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight
            Exit Function
    End Select

    If IsConnected Then
        strURL = "http://www.boi.org.il/currency.xml?rdate=" & Format(IIf(dtPreviousDate > 1, dtPreviousDate, dtDate), "YYYYMMDD") & "&curr=" & strCurr
        strResult = GetHTML(strURL)
        If InStr(1, strResult, strFirstSearch) < 1 Then
            For i = 1 To 6
                dtPreviousDate = dtDate - i
                strURL = "http://www.boi.org.il/currency.xml?rdate=" & Format(dtPreviousDate, "YYYYMMDD") & "&curr=" & strCurr
                strResult = GetHTML(strURL)
                If InStr(1, strResult, strFirstSearch) > 0 Then Exit For
            Next i
        End If
    Else
        MsgBox "לא זוהה חיבור לאינטרנט!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight
    End If

    If Len(strResult) > 0 Then
        lngStartPosition = InStr(1, strResult, strFirstSearch, vbTextCompare)
        lngEndPosition = CLng(InStr(1, strResult, strLastSearch, vbTextCompare))
        If lngStartPosition > -1 Then
            GetNISExchangeRate = Mid(strResult, lngStartPosition + Len(strFirstSearch), lngEndPosition - CLng(lngStartPosition + Len(strFirstSearch)))
        End If
    End If
   
End Function

Function IsConnected() As Boolean
    Dim Stat As Long
    IsConnected = (InternetGetConnectedState(Stat, 0&) <> 0)
End Function

Function GetHTML(strURL As String) As String
    Dim HTML As String
    With CreateObject("MSXML2.ServerXMLHTTP.6.0")
        .Open "GET", strURL, False
        .Send
        GetHTML = .ResponseText
    End With
End Function

השגיאות הם בשורה 60

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

SELECT IIf(IsNull([‏‏שם משפחה]),IIf(IsNull([‏‏שם פרטי]),[חברה],[‏‏שם פרטי]),IIf(IsNull([‏‏שם פרטי]),[‏‏שם משפחה],[‏‏שם משפחה] & ", " & [‏‏שם פרטי])) AS [תייק בתור], IIf(IsNull([‏‏שם משפחה]),IIf(IsNull([‏‏שם פרטי]),[חברה],[‏‏שם פרטי]),IIf(IsNull([‏‏שם פרטי]),[‏‏שם משפחה],[‏‏שם פרטי] & " " & [‏‏שם משפחה])) AS [שם איש קשר], סגל.*
FROM סגל
ORDER BY IIf(IsNull([‏‏שם משפחה]),IIf(IsNull([‏‏שם פרטי]),[חברה],[‏‏שם פרטי]),IIf(IsNull([‏‏שם פרטי]),[‏‏שם משפחה],[‏‏שם משפחה] & ", " & [‏‏שם פרטי])), IIf(IsNull([‏‏שם משפחה]),IIf(IsNull([‏‏שם פרטי]),[חברה],[‏‏שם פרטי]),IIf(IsNull([‏‏שם פרטי]),[‏‏שם משפחה],[‏‏שם פרטי] & " " & [‏‏שם משפחה]));

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

@מעמד כן אבל הוא מתכוון לקפוץ תוך כדי העבודה, ולא בפתיחת הקובץ.

@chagold לא, אני משתמש ב VPS אבל, צריך בעיקרון לכבות את האפאצי כשעושים שינויים ב ini...

@chagold אמר בהעלאת קבצים PHP:

או לעשות פונקציה שתיצור את התיקיה בשרת ושתעלה קובץ קובץ.

זה המועדפת...

אבל כרגע ראיתי שיש הגבלה על כמות הקבצים של 20 בכל נגלה...

הגדרתי ב php.ini בשורה max_file_uploads=200 אבל זה לא פתר את הבעיה... עריכה: זה פתר את הבעיה, אבל לקח לזה קצת זמן להתעדכן...

@dovid וואלה, כבר לא נעים לי... אבל יש אפשרות להגדיר שאני יוכל גם לבחור תיקייה, ולהעלות אותה כתיקייה?

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

אני מעלה את הקוד השלם, לכאן:
html לבחירת הקבצים, (ניתן לבחור כמה, אין מגבלת כמות)

<form action="upload1.php" method="post" enctype="multipart/form-data">
	<input type="file" name="upload[]" multiple="multiple">
	<input type="submit" value="העלה קבצים" >
</form>

כאשר "upload1.php" מגדיר את שם הקובץ שמכיל את מערך ההעלאה עצמו.

<?php
 
$dir =  $_SERVER['DOCUMENT_ROOT'] . "https://tchumim.com/";
$url = 'https://tchumim.com/';
 
 
for ($i = 0; $i < count($_FILES['upload']['name']); $i++) {
    $fileName = $_FILES['upload']['name'][$i];
    $tmpFilePath = $_FILES['upload']['tmp_name'][$i];
    $err = $_FILES['upload']['error'][$i];
 
    echo "<div> קובץ: $fileName";
 
    if ($err != 0) {
        echo "שגיאה בשליחת הקובץ לשרת, קוד שגיאה: $err";
    } else {
        if (move_uploaded_file($tmpFilePath, $dir . $fileName)) {
            echo "
               היי, הקובץ הועלה בהצלחה!! 
                <br /> 
               :קח מכאן את הקישור הישיר לקובץ 
                <a href='{$url}{$fileName}'>$fileName<a/>
            ";
        } else {
            echo 'שגיאה בהעברת הקובץ מתיקיית הקבצים הזמניים בשרת למיקום הסופי.';
        }
    }
    echo "</div>";
 
}
 

כאשר במקום "https://tchumim.com/" יש לשים את הקישור לתיקיית האיחסון של הקובץ. (בשורה העליונה כנתיב מספריית המחשב, ובתחתונה עם הדומיין של האתר.

@dovid אמר בהעלאת קבצים PHP:

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

    if (move_uploaded_file($tmpFilePath, $dir . $fileName)) {

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

נ.ב. תודה על כל העזרה @dovid @chagold

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

@chagold זה קוד ששילבתי בין שני המנגנונים, נוא מתחיל להעלות עד שבשלב מסויים הוא מציג את השגיאות שלמטה.

<body> <form action="up.php" method="post" enctype="multipart/form-data">

<br/>
	<input type="file" name="upload[]" multiple="multiple" /><br/><br/>
	<input type="submit" value="שלח קובץ" />
<br/>
	</form>

Notice: Undefined index: myfile in C:\xampp\htdocs\tool\up\up.php on line 5

Notice: Trying to access array offset on value of type null in C:\xampp\htdocs\tool\up\up.php on line 5

Notice: Undefined index: myfile in C:\xampp\htdocs\tool\up\up.php on line 9

Notice: Trying to access array offset on value of type null in C:\xampp\htdocs\tool\up\up.php on line 9

Notice: Undefined index: myfile in C:\xampp\htdocs\tool\up\up.php on line 9

Notice: Trying to access array offset on value of type null in C:\xampp\htdocs\tool\up\up.php on line 9
שגיאה בהעברת הקובץ מתיקיית הקבצים הזמניים בשרת למיקום הסופי.

זה הקוד שמאפשר מס' קבצים:

<form action="action.php" method="post" enctype="multipart/form-data">
	<input type="file" name="upload[]" multiple="multiple">
	<input type="submit" value="submit" >
</form>

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

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

@chagold היי, עכשיו ניסיתי שוב לשנות, ומצאתי 3 מקומות שמתייחסים לגודל הקובץ או הפוסט ב php.ini שינית את כולם, וזה עובד ב"ה... תודה!

@chagold אני יודע, אבל משום מה גם אחרי שהגדרתי שם 4000 מגה זה לא עזר...

@קיפוד רפו"ש בב"א

לקוד המשופר באדיבות ר' @dovid, לחצו כאן

אני צריך קוד PHP להעלאת קבצים לשרת, מצאתי כמה כאלה, אבל הם לא מתאימים לי מכמה סיבות.

א. אני רוצה ללא הגבלת גודל או הגבלת גודל של 2 GB וכל מה שמצאתי מוגבלים בכמה עשרות מגה.
ב. אני רוצה שהוא ייתן לי בסוף ההעלאה קישור להורדה.

כיום אני משתמש בקוד הזה:

PHP

<?php 
$dir = 'C:/upload/'; 
$url = 'http://Yourdomain/upload/'; 

if($_FILES['myfile']['error'] != 0) { 
    echo "שגיאה בשליחת הקובץ לשרת, קוד שגיאה: {$_FILES['myfile']['error']}"; 
} else { 

    if(move_uploaded_file($_FILES['myfile']['tmp_name'], $dir . $_FILES['myfile']['name'])) { 
        echo "היי, הקובץ הועלה בהצלחה!! 
        <br /> 
        :קח מכאן את הקישור הישיר לקובץ 
        <a href='{$url}{$_FILES['myfile']['name']}'>{$url}{$_FILES['myfile']['name']}<a/>"; 
    } 
    else { 
        echo 'שגיאה בהעברת הקובץ מתיקיית הקבצים הזמניים בשרת למיקום הסופי.'; 
    } 

} 
?> 

HTML

	<body> <form action="up.php" method="post" enctype="multipart/form-data">
<br/>
	בחר קובץ: <input type="file" name="myfile" /><br/><br/>
	<input type="submit" value="שלח קובץ" />

רק מה, הוא מוגבל בגודל הקובץ, והוא לא תומך בהעלאת מס' קבצים יחד... יש דרך לפתור את זה?