@ארי
מה היתה התקלה? סתם בשביל הסקרנות, ואולי גם ללימוד....
מלא
-
-
@ארי
אני מוריד איתו מסמכים לאורך זמן ולא ידוע לי על שום בעיה איתו.
הורדתי איתו מאות ואולי אלפי מסמכיםבדקת את הקישור של הקבצים האלה שבגישה ישירה הם נותנים לך מסמך תקין?
אולי זה בעיה בקישור -
@ארי
יש לך את הקישור לPDF שהם נותנים בעת יצירה?אם כן
אני מוריד קבלות עם הקוד הזה
זה ההצרה והפונקציהOption Compare Database Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _ szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Function DownloadFile(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function
וככה אני מוריד
Private Sub txtOrginalFileLink_DblClick(Cancel As Integer) Dim strPDFLink As String Dim strPDFFile As String Dim Result As Boolean strPDFLink = Me.txtOrginalFileLink strPDFFile = CurrentProject.Path & "\חשבוניות\" & Me.מס_חשבונית & ".pdf" Result = DownloadFile(strPDFLink, strPDFFile) MsgBox Result End Sub
-
@laswater
מה הצורך שלך באחסון,אם כדי שיוכלו לעבוד עליו כמה אנשים ביחד ברשת חיצונית,
אז אין אפשרות כזאת כלל וכלל.- כדי שיוכלו לעבוד כמה אנשים מרחוק, עושים שליטה מרחוק על מחשב-שרת אחד. וכולם מתחברים אליו.
- יש גם אפשרות להעביר את מסד הנתונים לשרת SQL ולחבר אליו את האקסס, אבל הוא עובד נורא לאט, וכלל לא מומלץ לעבוד ככה בעבודה שוטפת.
אם הצורך שיהיה גיבוי של החומר כל הזמן,
אז כל המסנכרנים של תקיות במחשב
כדוגמת דרופבוקס, גוגל דרייב, וואן דרייב וכו' שווים. -
@בעל-כישרון כתב בתכנון אקסס לכמה משתמשים:
וחסימה של F11
אתה מייצר מאקרו בשם AutoKeys
ובתוכו אתה מוסיף מאקרו משנה
בשורה הראשונה תכתוב {F11}
ובשורה השניה בהוסף פעולה תכניס Beep
@בעל-כישרון כתב בתכנון אקסס לכמה משתמשים:
כניסה עם שיפט
צור מודול חדש והוסף בו את שתי הפונקציות הבאות. (אף פעם לא השתמשתי עם זה, מקווה שבאמת עובד)
Function ap_DisableShift() 'This function disable the shift at startup. This action causes 'the Autoexec macro and Startup properties to always be executed. On Error GoTo errDisableShift Dim db As DAO.Database Dim prop as DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb() 'This next line disables the shift key on startup. db.Properties("AllowByPassKey") = False 'The function is successful. Exit Function errDisableShift: 'The first part of this error routine creates the "AllowByPassKey 'property if it does not exist. If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowByPassKey", _ dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox "Function 'ap_DisableShift' did not complete successfully." Exit Function End If End Function Function ap_EnableShift() 'This function enables the SHIFT key at startup. This action causes 'the Autoexec macro and the Startup properties to be bypassed 'if the user holds down the SHIFT key when the user opens the database. On Error GoTo errEnableShift Dim db as DAO.Database Dim prop as DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb() 'This next line of code disables the SHIFT key on startup. db.Properties("AllowByPassKey") = True 'function successful Exit Function errEnableShift: 'The first part of this error routine creates the "AllowByPassKey 'property if it does not exist. If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowByPassKey", _ dbBoolean, True) db.Properties.Append prop Resume Next Else MsgBox "Function 'ap_DisableShift' did not complete successfully." Exit Function End If End Function
בעורך Visual Basic, לחץ על חלון מיידי בתפריט תצוגה.
אם ברצונך להשבית את מקש SHIFT, הקלד ap_DisableShift בחלון המיידי ולאחר מכן הקש ENTER. אם ברצונך להפעיל את מקש Shift, הקלד ap_EnableShift בחלון המיידי ולאחר מכן הקש ENTER.
-עד כאן העתקה שאיני יודע למי הקרדיט (כנראה לאי מי מפרוג... שהמציא לי איזה קישור) כי זה שמור לי משנים קדמוניות במחשב. -
@laswater
הנוהג לעשות בקבצי אקסס שמחלקים את הקובץ ל2.
הנתונים. והפרונט.
כשעושים עדכון בפרונט, אין צורך לגעת בקובץ הנתונים.
אם זה לא מחולק כפי שנשמע מהשאלה,
אז קודם כל תעשה את זה, [א. כי ככה הנתונים יותר שמורים. ב. כי בעדכונים הבאים לא תצטרך לעבוד קשה]
(תכנס באקסס ל'כלי מסד נתונים' > במקטע העברת נתונים, 'מסד נתונים של אקסס')
ואז תוכל לעדכן את התוכנה בקלות.אם אתה צריך גם להוסיף עמודות ו/או טבלאות בנתונים,
אז תצטרך משהו לעדכן את זה.
יש לזה כמה דרכים,
תמקד איפה אתה נתקל בבעיה והאנשים פה בטח יעזרו לך. -
@סקרן-0
אכן. 160
(32 כנראה רווח פשוט או דומה לו, בהעתקה לוורד הוא לא מגיע בכלל)
תודה רבה
(תרגום גוגל נתן לי Hard profit במקום Gain, שלא החזיר את הנושא) -
@Y-Excel-Access כתב באיך מזהים בVBA תו 'רווח קשיח':
אני לא יודע מה הכוונה לרווח 'קשיח'.
רווח קשיח הוא תו שקיים בוורד ובמעבדי טקסטים שגורם ל2 מילים להישאר באותה שורה.
@Y-Excel-Access כתב באיך מזהים בVBA תו 'רווח קשיח':
וכן, בעיקרון אפשר להחליף כל תו עם Replace ב VBA ולכאורה אף בקוד פקד באמצעות בונה הביטויים
זה מה שאני מחפש, את הביטוי שימצא את התו הזה.
@Y-Excel-Access כתב באיך מזהים בVBA תו 'רווח קשיח':
כתוב באקסל..
אני מחפש איזה מספר אני צריך להכניס לכאן.
-
אני מייצר קבצי מס"ב באקסס, והתו 'רווח קשיח' מחזיר שגיאה ממס"ב בלי להודיע את סיבת התקלה.
ישבתי עם מס"ב חצי שעה בטלפון ולא הצליחו לאתר את הבעיה..אני רוצה להעיף את התו הזה בצורה גורפת בטבלה של קבצי מס"ב
איך מזהים אותו בACII (Chr זה ACII??)
או כל צורה שהיא? -
@סקרן-0 כתב בתכנון אקסס לכמה משתמשים:
גם @מלא הציע לעשות את החיבור באמצעות קוד, ומדבריו משמע שבחיבור רגיל זה לא יעבוד. מעבר לזה אני באמת לא יודע.
את האמת שטעיתי, בדקתי עכשיו, ובפעם הראשונה שאתה מקשר אתה צריך להכניס את הסיסמה, אח"ז הפרונט נפתח בלי להכניס שום סיסמה, ולא צריך לזה אפילו קוד.
רק תצטרך לחסום מהפרונט את השיפט וכו' וכנ"ל -
@סקרן-0 כתב בתכנון אקסס לכמה משתמשים:
כמדומני שבמצב כזה קובץ הממשק לא יוכל לגשת למסד העורפי
תוכל לעשות קישור לנתונים בקוד ויוכלו לגשת מהממשק בלי הסיסמה. הסיסמה תהיה שמורה בVBA בלבד.
@סקרן-0 כתב בתכנון אקסס לכמה משתמשים:
הבעיה היא שכל ילד יכול להחזיר את זה למהדורה רגילה...
אם תקמפל את הקובץ לACCDE שינוי סיומת לא יעזור, לא יוכלו לגשת לקוד.
ואם תחסום גם כניסה עם שיפט, וחסימה של F11 וכו' ההגנות הפשוטות.
אז משתמש לא מקצוען לא יהיה לו יותר מידי מה לעשות, הוא לא יוכל לגשת לא לטבלאות ולא לטפסים, רק למה שהוא מורשה.
כמובן שא"א לתאר את זה כחסימה הרמטית, אבל כן יכול חסימה טובה לעובדים הפשוטים. -
@EMG
זה אמרו לך כמה פעמים למעלה,
שעם הפונקציות INDEX ו MATCH
אפשר לעשות את זה בעמודה נפרדת. -
@EMG
אני חושב עכשיו, שלא כתבת כאן את הבעיה שיש לך שלשם כך אתה צריך את הנוסחה, ולפעמים, אם תגיד את הבעיה יכול להיות שיש פתרונות יותר קלים ויותר ישימים שיפתרו את הבעיה.
אז ניסיתי לחשוב על הבעיה שלך ופתרון קצת שונה שעלה לי לפי הבעיה שחשבתי...
הבעיה היא [מה שחשבתי..] פשוט שאתה רוצה לדעת כשאתה עובר על הרשימה, מי יש לו כבר חברותא ומי לא. ואם זה יהיה ב2 עמודות זה יקשה על הקלדת הנתונים פי כמה.
על הכיוון הזה חשבתי פתרון, שעיצוב מותנה יכול לעזור לך, תעשה בעמודה נפרדת את החישובים, ואז עם עיצוב מותנה אתה יכול לשנות את צבעי העמודה הראשונה ולעשות 3 צבעים, 1 למי שיש לו לסדר 1. ועוד צבע למי שיש לו ל2 סדרים. וכו'.
אם קלעתי למטרה, תעדכן וישמחו לעזור לך כאן. -
@EMG
אני לא מומחה בשימוש בVBA באקסל, אבל זה הכיוון.
הקובץ הזה עושה את זה, אבל מחזיר שגיאה אחרי כל פעולה,
מקווה שיהיה כאן מישהו שיתקן את זה.
או יבוא אולי אם רעיון שונה.
INDEX MATCH באקסל (משוחזר).xlsm -
@EMG
השילוב של INDEX MATCH אמורה להיות הפונקציה.
אבל במקרה שאתה מבקש את זה, לעשות את הבדיקה באותה עמודה שאתה כותב זה גורם להפניה מעגלית שאינה ניתנת לחישוב.
אז או שתצטרך להוסיף עמודה ושם לעשות את הבדיקה,
או עם מאקרו כן תוכל לעשות משהו. -
@פשוט-אבל-תותח
אם הדוגמא דומה למקור, ואתה רוצה לייבא נתונים מימות המשיח,
יש קובץ אקסס לתקשור עם הAPI שלהם. יש את זה בפורום של ימות. -
@יששכר-יעקבזון
תדביק את זה באירוע פסיקת שעון של הטופסOn Error GoTo err If Me.Recordset.RecordCount = 0 Then Exit Sub ElseIf Me.CurrentRecord = Me.Recordset.RecordCount Then DoCmd.GoToRecord , , acFirst Else DoCmd.GoToRecord , , acNext End If err: Exit Sub
ותשים הגדרה של כמה שניות שאתה רוצה בקצב פסיקת שעון. (כל 1000 זה שניה)
-
@ארי כתב בשערים יציגים מבנק ישראל - VBA אקסס:
MsgBox "÷åã îèáò ìà çå÷é!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight
-
@scez-scez
אני יש לי מספר 02800 שניידתי, לא יודע לאיזה ספק
הורדת קבלות מאתר איזיקאונט (ezcount)
הורדת קבלות מאתר איזיקאונט (ezcount)
הורדת קבלות מאתר איזיקאונט (ezcount)
הורדת קבלות מאתר איזיקאונט (ezcount)
אחסון מסד נתונים
תכנון אקסס לכמה משתמשים
באקסס- עדכון ממשק ללא איבוד נתונים
איך מזהים בVBA תו 'רווח קשיח'
איך מזהים בVBA תו 'רווח קשיח'
איך מזהים בVBA תו 'רווח קשיח'
תכנון אקסס לכמה משתמשים
תכנון אקסס לכמה משתמשים
יצירת טבלה חכמה
יצירת טבלה חכמה
יצירת טבלה חכמה
יצירת טבלה חכמה
ייבוא נתונים ממקור אינטרנטי לאקסס
אכסס - תצוגה זזה
שערים יציגים מבנק ישראל - VBA אקסס
ניוד מספר נייח בקומה הכשרה