מצאתי כאן קוד לצילום תמונה, אבל הוא מציג לי רק מסך שחור ולא מצלם כלום.
מצורף קובץ דוגמא לפי מה שמסובר שם, אשמח אם מישהו יוכל לבדוק לי מה הבעיה.
תודה!
ארי
-
צילום תמונה לאקסס -
צילום תמונה לאקסס@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) ומדליק מחדש את המחשב הוא כותב לי שהוא מחפש מדיה ולא נדלק. ורק אם אני משנה חזרה למה שהיה כתוב שם (לא זוכר בדיוק....) הוא מסכים להידלק.
מה אני אמור לעשות? -
מספר עשרוני בVBA אקסס@OdedDvir אוקיי, טוב לדעת.
תודה! -
מספר עשרוני בVBA אקסס@OdedDvir תודה, אבדוק.
וסתם התעניינות, עכשיו הDcount והSum לא נמצאים בשום משתנה, זה חלק מהמשתנה של התוצאהDim result as Double result = Dsum(....) / Dcount(....)
זה גם בעייתי?
-
מספר עשרוני בVBA אקססצהריים טובים
יש לי קוד VBA באקסס שצריך להכניס מספר לתוך עמודה בטבלה, העמודה בטבלה מוגדרת על 'כפול', ובקוד המשתנה של המספר מוגדר כ'Double'.
אבל בכל זאת, אם יש שארית למספר הוא מעגל אותו למספר השלם הקרוב.
למה זה קורה?
תודה רבה.עריכה: אני יפרט קצת יותר, זה לא מספר סתם, אלא חשבון של Dsum לחלק לDcount (אמור לחשב סכום של כל תשלום).
ובחילוק הוא תמיד מחזיר מספר שלם.
אם אני סתם כותב לו מספר להכניס לטבלה הוא עושה את זה מצוין, אבל כנראה הבעיה היא בחילוק, אבל אני לא מבין למה שיהיה לו בעיה להחזיר מספר עשרוני.
תודה! -
היפר קישור בדוח אקסס@OdedDvir עכשיו אני רואה שבאמת זה רק בדוח, אחרי הייצוא זה אותו דבר.
תודה על הכל!!! -
היפר קישור בדוח אקסס@OdedDvir תודה, ככה זה באמת עובד עם הקישורים.
הבעיה היא שבצורה כזו הוא מביא את התמונות באיכות הרבה יותר גרועה מאשר קודם (כשזה היה קובץ מצורף).
מה הסיבה?
שוב תודה. -
היפר קישור בדוח אקסס@OdedDvir הקפצה...
יש מצב לעזרה?
תודה רבה! -
היפר קישור בדוח אקססמצורף הקובץ.
המטרה היא שהדוח יציג את התמונה, ושהיא תהיה היפר קישור לכתובת שנמצאת ב'קישור'.
תודה רבה. -
היפר קישור בדוח אקסס@OdedDvir אמר בהיפר קישור בדוח אקסס:
ותציין את מקור הפקד לשדה המתאים
לא הצלחתי..
כתבתי ככהפריטים.תמונה.FileData
והוא לא מציג כלום.
גם לעשות קישור עם הקוד שהבאת למעלה לא עבד, אבל אולי זה קשור לזה שהוא לא מציג גם את התמונה. -
היפר קישור בדוח אקסס@OdedDvir זה הטופס:
זה הקוד:
Private Sub Report_Load() If Not IsNull(Me.קישור) Then Me.תמונה.HyperlinkAddress = Me.קישור End If End Sub
וזה השגיאה:
-
היפר קישור בדוח אקסס@OdedDvir יש לי שגיאה על זה.
אני נזכר לציין שזה לא תמונה רגילה, אלא קובץ מצורף של תמונה אם זה רלוונטי.
תודה!!! -
היפר קישור בדוח אקסס