תודה רבה איש יקר ועניו! מתנגן לי משום מה 'חזו חזו'... @yossiz כתב במאקרו לוורד לבחירת כל המילה כולל תווי פיסוק: עכשיו 10:30 18/5/23, האם החלום כבר התגשם? היינו כחולמים...

הצלחתי להקים את המערכת ברוך השם אבל אני לא מצליח לקבל ולהוציא שיחות מהמחשב אני משתמש בתוכנת phonerlite השיחות לא מגיעות אמנם כל שיחה שאני מנסה להוציא מהמחשב היא נתקלת בשגיאה 503 אבל זה נרשם ב Call Event Logging אותו דבר יש לי בשיחות נכנסות הפניתי שלוחה במערכת של ימות המשיח לשלוחה למחשב והשיחה לא מגיעה אבל היא נרשמת בCall Event Logging מה יכול להיות הבעיה ואיך אפשר לפתור את זה? נ.ב. יש לציין שכשאני מסתכל ב Call Event Logging מופיע שמה מלא שיחות שאני לא מכיר אותם {לדוגמה שיחה משלוחה 266 בכלל לא יצרתי כזאת שלוחה ובכלל מה זה המספר הזה 019.46233833282 שמופיע שם } אולי זה קשור? מצרף צילום מסך קטן לדוגמה שיחה משלוחה 266 בכלל לא יצרתי כזאת שלוחה ובכלל מה זה המספר הזה 019.46233833282 שמופיע שם [image: 1684418986084-236e966e-e098-438d-b81d-bf28224a4600-image.png] תודה רבה

@NH-LOCAL זה דווקא היה דומה למה ש @אביי הביא

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

ההבדל הוא שבטבלה הראשונה השתמשתי עם FILTER ,שהיא נתמכת רק בגרסאות החדשות של אקסל,לכן הוספתי את הטבלה השניה. הפונקציה FILTER פעילה גם בטווח רגיל (בטבלה הנוסחה גם מובנת יותר)

[image: 1684264038637-8bde8909-ea1b-4984-a0c9-4ac4fbfff351-image.png]

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

@dovid כתב בגיבוי קיצורי מקשים בוורד: הידע של @מעלה-ומוריד על הקובץ normal.dot כבר מתועד קודם לכן חוסר היכרותי עם המונח "normal" בהקשר זה כבר מתועד קודם לכן

@dovid כתב בשליחת מייל מאקסס ללא לקוח דוא"ל: נכון זה טרחה לעשות כזה קובץ, הקובץ מוכן כך שלא מדובר בעניין של טרחה. (וזה אחרי אריכות אף על הסרבול של הנושא שמתחיל משאלה נקודתית וסובב הולך לאיך לעשות מא' עד ת'). אולי באמת כדאי שאפתח פוסט חדש על השליחה עצמה. עריכה: נפתח..: https://tchumim.com/post/152934

@שלום-עולם-0 אתה מגיב בלי לקרוא היטב מה כתבו. @משתמש-תמים כתב מתחיל הודעותיו פה שזה תלוי אם זה פרו או לא.

למרות שנעזרתי רבות במאקרו שהבאת כאן לעיל, עדיין, בשביל קובץ בודד שחוברת העבודה שלו פתוחה חיפשתי פיתרון. (כיוון שהנושא נפתח כאן אני משתף אותו למקרה ומאן דהו יחפש ג"כ תשובה לשאלה הפותחת של האשכול) Sub Macro2() ' שמירה בשם, אותו שם, אותו נתיב קובץ, החלפת שם הסיומת, החלפת הפורמט ActiveWorkbook.SaveAs Replace(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, ".csv", ".xlsx"), 51 End Sub

תכלס, עשיתי עם ראר יצא ממש חמוד. תודה לכולם.

מחקתי את השורה. השאלה עדיין תקפה

@Y-Excel-Access כתב בבאקסס-איפוס ID: אי אפשר, הגדרת מספור אוטומטי חייבת להיות בשדה חדש, בשדה חדש זה יעבוד אך גם ימספר שוב את כל המזהים הקיימים... צודק, לא זכרתי שזה כך.

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

@צדיק-תמים @צדיק-תמים כתב בקוד לחילוץ עצמי לתוכנה שנבנתה באקסס: שיעביר משם את הקבצים למקומות הנכונים, לא ממש הבנתי מה אני צריך לקחת משם?

@ג-ינג-י @OdedDvir אני משתמש עם הקוד הזה. בכל חיפושי הטפסים, נראה לי הרבה יותר קל. בעת יציאה מתיבת החיפוש שכאן הוא txtFind הוא מבצע את החיפוש. (אפשר להכניס אותו תוך כדי כתיבה ב'בעת שינוי', אבל בהרבה נתונים הוא ממש מאיט את העבודה) והטופס משנה אצלי נקרא fsubForm במקרה שאין טופס משנה, רק רוצים חיפוש בטופס הנוכחי, צריך להוריד את הfsubForm בכל המופעים On Error GoTo err Dim ctl As Control Dim strFilter As String If Me.fsubForm.SourceObject = "" Then Exit Sub If Len(Me.txtFind.text) < 1 Then Me.fsubForm.Form.FilterOn = False Exit Sub Else End If For Each ctl In Me.fsubForm.Form.Controls 'Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then 'רק פקדי טקסט If Left(ctl.ControlSource, 1) <> "=" Then 'דלג על תיבות טקסט מחושבים strFilter = strFilter & "[" & ctl.ControlSource & "] Like " & Chr(34) & "*" & txtFind.text & "*" & Chr(34) & " OR " End If End If Next strFilter = Left(strFilter, Len(strFilter) - 4) Me.fsubForm.Form.Filter = strFilter Me.fsubForm.Form.FilterOn = True Exit Sub err: Me.fsubForm.Form.Filter = "" Me.fsubForm.Form.FilterOn = False