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

@איש-ימיני לי יש 2021 32 סיביות.
אולי זה קשור לסיביות?
אבל לכאורה אם כן הוא היה אמור לעשות באג איפשהו, לא?

@איש-ימיני איזה אופיס יש לך? וכמה סיביות?
אולי זה קשור

ניסיתי.
חמוד מאוד.
איטי ברמה מטורפת.
הסרתי די מהר.
נקווה שישתדרג....

@OdedDvir כל ההגדרות מופעלות.

@OdedDvir תודה!
הוא מציג לי רק מסך שחור...
אמנם לא עושה שום דיבאג אבל גם לא מראה לי את המצלמה.
ברגע שאני לוחץ על פתח מצלמה כל הטופס נהיה שחור.

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

צילום תמונה לאקסס.accdb

@dovid עד כדי כך?
מצטער, לא התכוונתי
חייבים תוספים בשביל זה?
תודה בכל אופן!!!

@ארי אמר בצילום תמונה לאקסס:

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

מה, אף אחד לא עשה משהו כזה אף פעם?
תודה!

צהריים טובים.
האם יש קוד 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 הקפצה...
יש מצב לעזרה?
תודה רבה!