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

יש לי טופס מפוצל באקסס כזה:

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

@חוקר אני חושב שזה לא מתנתק בשום שלב.

@OdedDvir יש לך כזה קוד לדוגמא?

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

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

אגב @ניהול למה א"א להוסיף תגיות?

@יאיר-מן אתה מדבר על תא שמע?

@מורשת-מרן תעשה את השידור כוידאו, והוידאו יהיה תמונה אחת שלא זזה...

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

@chagold אבל זה יוצא בלי רווח ככה:
ישראלישראלי וגם זה רק לשני נתונים וא"א לשים שם שלוש נתונים.

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

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 הקוד לבחירת הקובץ שם הוא אותו קוד, והוא עובד יחד עם המערך העלאה ששם, אבל אני רוצה להשתמש במערך ההעלאה שהבאתי כאן למעלה, כי הוא נותן לי קישור לקובץ בסיום ההעלאה, אך השילוב ביניהם נתקע משהו, הקבצים עולים לגמרי, אבל בסוף ההעלאה יש איזה שגיאה, ומוצגות השגיאות שלעיל.