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

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

(משחזור)

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

@איש-ימיני תחפש בגוגל: "שעון נוכחות ביומטרי" יש שם גם עם 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 לא צריך, אבל תמיד טוב להיות זהיר...

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

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

ניסיתי בדיוק כמו שכתבת וזה החזיר שגיאה

שורות 8-9 בקוד שלי אמורות להכתב כשורה אחת ארוכה. ייתכן והדבקת אותן כשתי שורות כמו שמופיע בפוסט.

איך אני מוסיף לשאילתה שיעדכן בטבלה אחרת את המזהה ואת התאריך?

INSERT INTO UserUpdates(Id, UpdatedOn) VALUES (UserId, UpdateDate);

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

אני צריך לדעת למי עדכנתי בכל חודש, יש דרך אחרת לעשות את זה בלי עמודה חדשה בכל חודש?

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

ID   | UpdatedOn
100  | 10/01/2020
101  | 10/01/2020

אגב, מדוע שינית את הקוד ומה הרווחת בזה?

@chv אמר בהפעלת וינדווס טרמינל (wt) כמנהל:

בדיוק כמו שאתה עשית

אז אולי שם המשימה שונה?
אם לא, תנסה לרשום בהגדרות הפעולה את הנתיב המלא לטרמינל ולא רק "wt"

@chv מה מופיע בלשונית Actions?

@yossiz יש כאן דיון בנושא:
https://superuser.com/questions/738081/how-to-make-applications-open-on-the-correct-monitor-when-using-multiple-monitor
וגם כאן
https://answers.microsoft.com/en-us/windows/forum/windows_10-start/default-display-for-applications-under-win10-and/850fcd2c-e295-4a16-9053-69f1eec8b592