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

@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 ביט?

@אוריי תנסה אולי להפעיל מחדש את המחשב.

@אוריי תלחץ על התחל ותרשום שורת הפקודה, ואח"כ "הפעל כמנהל"

@אוריי אמר בתוכנה לניהול השאלת ספרי לימוד:

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

למה לא? מה הבנת מהמלים:

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

@שרוני אמר בתוכנה לניהול השאלת ספרי לימוד:

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

@clickone כתב לך בפירוש שלא צריך ממשק מיוחד לקורא ברקודים:

@clickone אמר בתוכנה לניהול השאלת ספרי לימוד:

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

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

@nrby שים לב לכך שערכתי את התשובה למעלה

@איש-ימיני אמר בשימוש בפרמטרים בשאילתת עדכון באקסס:

עריכה: הוספתי רק את זה:
Nz([Users].[Counter],0)+1

בעיקרון אם יש ערך ברירת מחדל 0 לשדה Counter לא צריך, אבל תמיד טוב להיות זהיר...