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

@סמינר-דוד יפה, מה רואים בחוצץ של "צליל מרחבי"?

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

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

אחר כך בחוצץ של "שיפורים" תבדקו האם מסומן בהגדרות "ללא" כמו במסך הבא:

@סמינר-דוד קליק ימני על סמל הרמקול למטה משמאל > פתח הגדרות צלילים
תעלו צילום מסך

@מלא לא, הסינון הזה מסנן את כל המוצרים בטבלה A לפי כל המוצרים בטבלה B

@UA אוקי.
לך לגליון עם רשימה A ותבחר בתפריט "נתונים" > מתקדם (בקטגוריה סינון ומיון)

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

@UA אמר בשליפת שורות באקסל ע"י עמודה ראשונה:

יש לי גיליון אחד של מוצרים וגרסאות

נקרא לזה רשימה A

בנוסף יש לי עוד רשימה של מוצרים בלי גרסאות

נקרא לזה רשימה B
אתה רוצה לסנן את רשימה A לפי רשימה B?

@שיראל אם יש לכם פרימייר פרו, יש כאן מדריך:
https://tchumim.com/topic/9455/פרימייר-פרו-הדרכה-כיצד-לטשטש-או-לפקסל-דמות-נעה?_=1599576098977

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

@nach אמר בהוספת נתונים לאחר מיון בטופס אקסס:

אנסה ליצור קוד רלוונטי,

בגדול הקוד הוא כזה:

Private Sub MyComboBox_AfterUpdate()
    If IsNull(MyComboBox.Value) Then
         RunCommand acCmdRecordsGoToNew 'צור רשומה חדשה
         Exit Sub
    End If
    Me.RecordsetClone.FindFirst "ID=" & MyComboBox.Value
    Me.Recordset.Bookmark = Me.RecordsetClone.Bookmark
End Sub

@nach אמר בהוספת נתונים לאחר מיון בטופס אקסס:

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

כמה דברים חשובים:

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

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

3. לגבי השדה V הייתי מחליף לשדה בינארי (כן\לא), עם ערך ברירת מחדל של "כן".
   תוכל באופן חד פעמי לעדכן את השדה ברשומות הקיימות ל-True על ידי שאילתת עדכון, למרות שלכאורה זה לא מה שאתה מבקש, הרי אתה רוצה שרק בעדכון הוא יהפוך ל-כן. תשתמש בארוע לפני עדכון של הטופס כדי להפוך את הערך ל-כן.

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

@בער אמר בקובץ וידיאו פגום:

(משחזור)

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

@איש-ימיני תחפש בגוגל: "שעון נוכחות ביומטרי" יש שם גם עם API

@אוריי אמר בבעיה בקוד vba להורדת קובץ משרת ftp:

כעת הוא מריץ רק חלק מן הקוד

מה הפירוש?

@אוריי צודק, שכחתי שמדובר ב-64 ביט. תיקנתי במקור. תנסה שוב

זו כנראה בעיה של גרסת 64 של אקסס, אצלי יש גרסת 32 ועובד.

בכל מקרה יש פתרון אחר בלי שימוש בספרייה הנ"ל, על ידי שימוש בקריאות לAPI של Windows.
יש לך כאן קוד VBA שמתאים גם ל64. תעתיק ותדביק במודול חדש:

Private Const FTP_TRANSFER_TYPE_UNKNOWN     As Long = 0
Private Const INTERNET_FLAG_RELOAD          As Long = &H80000000

Private Declare PtrSafe Function InternetOpenA Lib "wininet.dll" ( _
    ByVal sAgent As String, _
    ByVal lAccessType As Long, _
    ByVal sProxyName As String, _
    ByVal sProxyBypass As String, _
    ByVal lFlags As Long) As Long

Private Declare PtrSafe Function InternetConnectA Lib "wininet.dll" ( _
    ByVal hInternetSession As Long, _
    ByVal sServerName As String, _
    ByVal nServerPort As Long, _
    ByVal sUsername As String, _
    ByVal sPassword As String, _
    ByVal lService As Long, _
    ByVal lFlags As Long, _
    ByVal lcontext As Long) As Long

Private Declare PtrSafe Function FtpGetFileA Lib "wininet.dll" ( _
    ByVal hConnect As Long, _
    ByVal lpszRemoteFile As String, _
    ByVal lpszNewFile As String, _
    ByVal fFailIfExists As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Long
    
Private Declare PtrSafe Function FtpPutFileA _
   Lib "wininet.dll" _
 _
       (ByVal hFtpSession As Long, _
        ByVal lpszLocalFile As String, _
        ByVal lpszRemoteFile As String, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Boolean
 
Private Declare PtrSafe Function InternetCloseHandle Lib "wininet" ( _
    ByVal hInet As Long) As Long

Sub FtpDownload(ByVal strRemoteFile As String, ByVal strLocalFile As String, ByVal strHost As String, ByVal lngPort As Long, ByVal strUser As String, ByVal strPass As String)
    Dim hOpen   As Long
    Dim hConn   As Long

    hOpen = InternetOpenA("FTPGET", 1, vbNullString, vbNullString, 1)
    hConn = InternetConnectA(hOpen, strHost, lngPort, strUser, strPass, 1, 0, 2)

    If FtpGetFileA(hConn, strRemoteFile, strLocalFile, 1, 0, FTP_TRANSFER_TYPE_UNKNOWN Or INTERNET_FLAG_RELOAD, 0) Then
        Debug.Print "Success"
    Else
        Debug.Print "Fail"
    End If

    'Close connections
    InternetCloseHandle hConn
    InternetCloseHandle hOpen
End Sub
Sub FtpUpload(ByVal strLocalFile As String, ByVal strRemoteFile As String, ByVal strHost As String, ByVal lngPort As Long, ByVal strUser As String, ByVal strPass As String)
    Dim hOpen   As Long
    Dim hConn   As Long
 
    hOpen = InternetOpenA("FTPGET", 1, vbNullString, vbNullString, 1)
    hConn = InternetConnectA(hOpen, strHost, lngPort, strUser, strPass, 1, 0, 2)
 
    If FtpPutFileA(hConn, strLocalFile, strRemoteFile, FTP_TRANSFER_TYPE_UNKNOWN Or INTERNET_FLAG_RELOAD, 0) Then
        Debug.Print "Success"
    Else
        Debug.Print "Fail"
    End If
 
    'Close connections
    InternetCloseHandle hConn
    InternetCloseHandle hOpen
 
End Sub

יש שם גם דוגמאות
כדי להוריד קובץ:

 FtpDownload "//Download/text file.txt", "C:\text file.txt", _
              "192.168.0.100", 21, "username", "password"

כדי לשלוח קובץ:

  FtpUpload "C:\text file.txt", "//Download/text file.txt", _
            "192.168.0.100", 21, "username", "password"

@אוריי רציתי את החלון של הReference לא את הודעת השגיאה

@אוריי זה אותו דבר.
תכנס שוב ל Tools>Reference, תסמן את השורה Microsoft Internet Transfer Control 6.0 (SP6) ותעלה צילום

@אוריי איזו גרסת אקסס יש לך, 32 או 64 ביט?