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

צהריים טובים.
האם יש קוד VBA לצילום תמונה דרך המצלמה של המחשב (הנייד) ושמירה שלה במחשב?
בחיפוש בגוגל מצאתי כל מיני קודים שלא עובדים, או שצריך להתקין תוסף (כמו AccessImagine.ocx) ואני מעדיף משהו בלי זה.
תודה רבה!

@מלא תודה!
עובד חלק.

שלום וברכה.
יש לי קוד VBA לשליחת מיילים שעבד מצוין הרבה זמן.
הקוד הוא:

Public Function Send()
Dim cdoConfig
Dim msgOne

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
    .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
    .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@gmail.com"
    .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"
    .item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Update
End With

Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = "The name <SendTo@gmail.com>"
msgOne.From = "Your Name <YourEmail@gmail.com>"
msgOne.Subject = "Subject"
msgOne.TextBody = "TextBody"
msgOne.Attachment = "Your file path name"
msgOne.Send
End Function

עכשיו כנראה בגלל השינוי במדיניות אבטחה של גוגל הוא לא עובד.
יש למישהו קוד חילופי שעדיין עובד (או אפי' רק רעיון לקוד)?
תודה רבה!

@A0533057932 מסובך לי...
נישאר ב10....
תודה!

@A0533057932 הכוונה לשנות שם את ההגדרות?
אבל אז המחשב לא נדלק...

שלום וברכה.
בדקתי במחשב שלי האם יש לי אפשרות להתקין ווינדוס 11, וכתוב לי שהאתחול מאובטח לא פועל.
ראיתי שמפעילים אותו דרך הBIOS, אבל שם הוא לא הופיע.
בחיפוש בגוגל התברר לי שצריך בתפריט BOOT לשנות איזה ערך שם לUEFI, ובאמת אחרי שאני משנה מופיע לי ההגדרות של האתחול מאובטח.
אבל אז כשאני שומר את השינויים (F10) ומדליק מחדש את המחשב הוא כותב לי שהוא מחפש מדיה ולא נדלק. ורק אם אני משנה חזרה למה שהיה כתוב שם (לא זוכר בדיוק....) הוא מסכים להידלק.
מה אני אמור לעשות?

@OdedDvir אוקיי, טוב לדעת.
תודה!

@OdedDvir תודה, אבדוק.
וסתם התעניינות, עכשיו הDcount והSum לא נמצאים בשום משתנה, זה חלק מהמשתנה של התוצאה

Dim result as Double
result = Dsum(....) / Dcount(....)

זה גם בעייתי?

צהריים טובים
יש לי קוד VBA באקסס שצריך להכניס מספר לתוך עמודה בטבלה, העמודה בטבלה מוגדרת על 'כפול', ובקוד המשתנה של המספר מוגדר כ'Double'.
אבל בכל זאת, אם יש שארית למספר הוא מעגל אותו למספר השלם הקרוב.
למה זה קורה?
תודה רבה.

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

@OdedDvir עכשיו אני רואה שבאמת זה רק בדוח, אחרי הייצוא זה אותו דבר.
תודה על הכל!!!

@OdedDvir תודה, ככה זה באמת עובד עם הקישורים.
הבעיה היא שבצורה כזו הוא מביא את התמונות באיכות הרבה יותר גרועה מאשר קודם (כשזה היה קובץ מצורף).
מה הסיבה?
שוב תודה.

@OdedDvir הקפצה...
יש מצב לעזרה?
תודה רבה!

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

קטלוג.accdb

@OdedDvir אמר בהיפר קישור בדוח אקסס:

ותציין את מקור הפקד לשדה המתאים

לא הצלחתי..
כתבתי ככה

פריטים.תמונה.FileData

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

@OdedDvir זה הטופס:

זה הקוד:

Private Sub Report_Load()
If Not IsNull(Me.קישור) Then
    Me.תמונה.HyperlinkAddress = Me.קישור
End If
End Sub

וזה השגיאה:

@OdedDvir יש לי שגיאה על זה.
אני נזכר לציין שזה לא תמונה רגילה, אלא קובץ מצורף של תמונה אם זה רלוונטי.
תודה!!!

@OdedDvir

@ארי אמר בהיפר קישור בדוח אקסס:

יודגש שאני רוצה שהקישור יעבוד גם לאחר ההדפסה לPDF.

@A0533057932 אני עדיין לא עושה כלום....
רק באמצע לבנות את הדוח.
איך עדיף לעשות? אני גמיש.

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

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

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