מצאתי פרויקט ב github שהופך את השימוש באקסס להרבה יותר ידידותי.
נותן המון דברים יפים.
כמו גרירת קבצים לאקסס.
תיבות דיאלוג יפים.
סרגל התקדמות.
ועוד..
https://github.com/krishKM/Modern-UI-Components-for-VBA

@ZACK
יש על זה הרבה בפורום של ימות המשיח
לדוגמה:
https://www.call2all.co.il/f2/viewtopic.php?f=4&t=1538
https://www.call2all.co.il/f2/viewtopic.php?f=4&t=1050
https://www.call2all.co.il/f2/viewforum.php?f=12
https://www.call2all.co.il/f2/viewforum.php?f=13
https://docs.google.com/document/d/1ln2j0Nhe0VO4Rt6fFquaXziSq-IIr9I_SE_R35WXe-k/edit

@odeddvir
תודה על המדריך הנפלא!!
אני משתמש כבר שנה+ עם אקסס.
אם היה לי כזה מדריך בהתחלה, הייתי חוסך המון המון בזבוז זמן.

הייתי ממליץ להוסיף שאילתה שתציג את כמות השיחות שדיברו עם התורמים, ובנוסף שדה שתציג מתי הייתה שיחה אחרונה, ובנוסף שדה שתציג פירוט השיחה האחרונה.

@אבי-203 אמר בתרגום אוטמאטי של גוגל לא תקין:

אבל בשבילי זו משימה מתישה... וד"ל

אצלי מוגדר בכרום:

כך שזה לא כ"כ מתיש.

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

יש לי בקונטבו שרת VPS S עם לינוקס, ושרת VPS L עם ווינדוס סרבר ואף פעם לא ראיתי איטיות.
הביצועים ממש טובים.

@avramk
אני יכול דרך זה וגם דרך ה VPN הרגיל של נטפרי.
רק מה שאני רוצה הוא חסימה. שלא יהיה לי אפשרות לעקוף את זה בכמה לחיצות.

@avramk
אני מתכוון ל WiFree
אגב במחלקת הפניות של נטפרי ענו לי שהם לא קיבלו דיווח על בעיה עם וויפרי בשרתים, אך לגבי טיפול בבעיה ענו לי: "ההמלצה שלנו היא לא להתקין וויפרי בשרתים".

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

צריך דרייבר מתאים

תגובה: ימות המשיח הוסיפו כתובות אייפי?

יש למישהו את רשימת הכתובות IP העדכני ?

@ש-ב-ח
לעברית:

$lang = 'iw';
$text = 'שלום עולם';

רק חבל שאין קול גבר.

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

@ארי
אני משתמש במצלמה מובנית.
תנסה לשנות את הקוד של @OdedDvir
להלן השינויים בחלק הראשון של הקוד:

'UX_WebCam : A WebCam API Class. By OdedDvir

Option Compare Database
Option Explicit

Const WS_CHILD As Long = &H40000000
Const WS_VISIBLE As Long = &H10000000

Const WM_USER As Long = &H400
Const WM_CAP_START As Long = WM_USER

Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10
Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11
Const WM_CAP_EDIT_COPY As Long = WM_CAP_START + 30
Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50
Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52
Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41
Const WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25
Const WM_CAP_GRAB_FRAME As Long = WM_CAP_START + 60

Private Declare Function apiCapCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
                                (ByVal lpszWindowName As String, ByVal dwStyle As Long, _
                                 ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _
                                 ByVal nHeight As Long, ByVal hwndParent As Long, _
                                 ByVal nID As Long) As Long

Private Declare Function apiSendMessage Lib "user32" Alias "SendMessageA" _
                                (ByVal hWnd As Long, ByVal wMsg As Long, _
                                 ByVal wParam As Long, ByRef lParam As Any) As Long

Private Declare Function apiGetFocus Lib "user32" Alias "GetFocus" () As Long

Private hCap As Long

Public Sub OpenWebCam(targethWnd As Long, Optional width = 640, Optional height = 480)
    hCap = apiCapCreateCaptureWindow("Capture Window", WS_CHILD Or WS_VISIBLE, 0, 0, width, height, targethWnd, 0)
    If hCap = 0 Then Exit Sub
    apiSendMessage hCap, WM_CAP_DRIVER_CONNECT, 0, 0
    apiSendMessage hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&
    apiSendMessage hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&
End Sub

Public Sub TakeSnapshotToFile(fileName As String)
    apiSendMessage hCap, WM_CAP_GRAB_FRAME, 0, 0
    apiSendMessage hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&
    apiSendMessage hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(fileName)
    apiSendMessage hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&
End Sub

Public Sub OpenVideoFormatDialog()
    apiSendMessage hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&
End Sub

Public Sub CaptureToClipboard()
    apiSendMessage hCap, WM_CAP_GRAB_FRAME, 0, 0
    apiSendMessage hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&
    apiSendMessage hCap, WM_CAP_EDIT_COPY, 0, 0
    apiSendMessage hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&
End Sub

Public Sub CloseWebCam()
    apiSendMessage hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&
End Sub

אני מקווה שזה כל השינויים.
אם עדיין לא עובד נצטרך להמתין ל @OdedDvir עצמו.

@ארי
יש שינויים בין 64 ל 32.
נסה עם קובץ זה:-צילום-תמונה-לאקסס.accdb
אמור לעבוד גם על 64 וגם על 32
אני מקווה שאין עוד שינויים שצריך לעשות
זה מה שעשיתי:

#If Win64 And VBA7 Then

Private Declare PtrSafe Function capCreateCaptureWindow _
    Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
         (ByVal lpszWindowName As String, ByVal dwStyle As Long _
        , ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _
        , ByVal nHeight As Long, ByVal hwndParent As LongPtr _
        , ByVal nID As Long) As Long

Private Declare PtrSafe Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long _
        , ByVal wParam As Long, ByRef lParam As Any) As Long
        
Dim hCap As LongPtr

#Else

Private Declare Function capCreateCaptureWindow _
    Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
         (ByVal lpszWindowName As String, ByVal dwStyle As Long _
        , ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _
        , ByVal nHeight As Long, ByVal hwndParent As Long _
        , ByVal nID As Long) As Long

Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long _
        , ByVal wParam As Long, ByRef lParam As Any) As Long
        
Dim hCap As Long

#End If

@ארי אופיס 2019 64 סיביות.

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

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

אנסה לבדוק עם מה ש @ליבל הציע.

@shloymi
קובץ אקסס יש לך בפרוג

עריכה: אני רואה שכבר הובא כאן

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

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