• דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

הפעלת מאקרו על שדה נוכחי בלחיצת מקש

מתוזמן נעוץ נעול הועבר תוכנה
6 פוסטים 2 כותבים 244 צפיות
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • י מנותק
    י מנותק
    יוני הלפרין
    כתב ב נערך לאחרונה על ידי
    #1

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

    Shell "cmd /c start tel://" & Me!PhoneTextBox
    

    האם כשאכתוב ME לבד ללא שם השדה, יבחר השדה הנוכחי?

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

    clickoneC תגובה 1 תגובה אחרונה
    0
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    השיב ליוני הלפרין ב נערך לאחרונה על ידי
    #2

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

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    תגובה 1 תגובה אחרונה
    3
  • י מנותק
    י מנותק
    יוני הלפרין
    כתב ב נערך לאחרונה על ידי
    #3

    בשליטה מרחוק, נראה שעובד..
    שאגיע למקום אבדוק בפועל.

    תודה רבה

    תגובה 1 תגובה אחרונה
    1
  • י מנותק
    י מנותק
    יוני הלפרין
    כתב ב נערך לאחרונה על ידי
    #4

    זה הקוד הסופי שלי..

    מה שחסר לי, במידה והכנסתי עכשיו מספר טלפון, ועדין לא יצאתי מהשדה, כלומר התוכן עדין לא "נספג" במערכת, הוא לא נותן לחייג,
    ניסתי לרשום ,

    Refresh.Stel
    

    אבל אין תגובה בכלל, גם עם בשדה יש כבר מספר טלפון,
    מה אמור לרענן לי את השדה הנוכחי?

    Public Function TelMe()
    'בדיקה האם נמצא בתוך שדה
     On Error GoTo errorhandler
    Dim sTel As String
    sTel = Nz(Screen.ActiveControl, "")
    sTel = Replace(Nz(sTel, ""), "-", "")
     If IsNumeric(sTel) Then
    'הכל תקין, אפשר לחייג, רק תבדוק שרוצה לחייג
    Dim strMsg As String
        strMsg = "לחייג ל " & sTel & " ?"
        If MsgBox(strMsg, vbMsgBoxRtlReading + vbYesNo, "יצירת שיחה") = vbYes Then
           Shell "cmd /c start tel://" & sTel
        End If
    Else
    'כנראה הוא התבלבל, הוא לא נמצא בשדה שיש רק ספרות
    MsgBox "שדה לא תקין להתקשרות!", vbMsgBoxRtlReading, "יצירת שיחה"
    End If
    'לא נמצא בתוך שדה
    errorhandler:
      Select Case Err.Number
        Case Is = 2474
     MsgBox "לא נמצא שדה להתקשרות!", vbMsgBoxRtlReading, "יצירת שיחה"
      Case Else
            End Select
    End Function
    
    תגובה 1 תגובה אחרונה
    0
  • י מנותק
    י מנותק
    יוני הלפרין
    כתב ב נערך לאחרונה על ידי יוני הלפרין
    #5

    @יוני-הלפרין אמר בהפעלת מאקרו על שדה נוכחי בלחיצת מקש:

    זה הקוד הסופי שלי..

    מה שחסר לי, במידה והכנסתי עכשיו מספר טלפון, ועדין לא יצאתי מהשדה, כלומר התוכן עדין לא "נספג" במערכת, הוא לא נותן לחייג,
    ניסתי לרשום ,

    Refresh.Stel
    

    אבל אין תגובה בכלל, גם עם בשדה יש כבר מספר טלפון,
    מה אמור לרענן לי את השדה הנוכחי?

    Public Function TelMe()
    'בדיקה האם נמצא בתוך שדה
     On Error GoTo errorhandler
    Dim sTel As String
    sTel = Nz(Screen.ActiveControl, "")
    sTel = Replace(Nz(sTel, ""), "-", "")
     If IsNumeric(sTel) Then
    'הכל תקין, אפשר לחייג, רק תבדוק שרוצה לחייג
    Dim strMsg As String
        strMsg = "לחייג ל " & sTel & " ?"
        If MsgBox(strMsg, vbMsgBoxRtlReading + vbYesNo, "יצירת שיחה") = vbYes Then
           Shell "cmd /c start tel://" & sTel
        End If
    Else
    'כנראה הוא התבלבל, הוא לא נמצא בשדה שיש רק ספרות
    MsgBox "שדה לא תקין להתקשרות!", vbMsgBoxRtlReading, "יצירת שיחה"
    End If
    'לא נמצא בתוך שדה
    errorhandler:
      Select Case Err.Number
        Case Is = 2474
     MsgBox "לא נמצא שדה להתקשרות!", vbMsgBoxRtlReading, "יצירת שיחה"
      Case Else
            End Select
    End Function
    

    יש אפשרות לרענן את השדה לפני הפעלת הקוד?

    clickoneC תגובה 1 תגובה אחרונה
    0
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    השיב ליוני הלפרין ב נערך לאחרונה על ידי
    #6

    @יוני-הלפרין אמר בהפעלת מאקרו על שדה נוכחי בלחיצת מקש:

    sTel = Nz(Screen.ActiveControl, "")

    תחליף את השורה הזו ב

    sTel = Nz(Screen.ActiveControl.Text, "")
    
    

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    תגובה 1 תגובה אחרונה
    2

  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.
  • פוסט ראשון
    פוסט אחרון
0
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.