אופיס 365 בעיה פשוטה באקסס

[HUBHCBH]

יש לי מספרי טלפונים שאחרי הקידומת יש מקף, או באמצע יש מקף איך אפשר למחוק אותם/שלא יציג אותם?
כגון 052-123456
053-123-456
053-123,456

תודה רבה

 

[מורדי]

לעשות שאילתת עדכון ולעדכן את השדה ל Replace ([שם השדה],"-","").

 

[HUBHCBH]

לעשות שאילתת עדכון ולעדכן את השדה ל Replace ([שם השדה],"-","").

יש אפשרות שימצא רק את המספרים, שימחק גם פסיקים וכדו'?

 

[מורדי]

להפעיל את זה שוב, ולהחליף את המקף בפסיק.

 

[moishy]

זה יסיר רווחים, פסיקים ומקפים:

Replace(Replace(Replace([שם השדה],"-","")," ",""),",","")

 

[Tochnitan]

אתה יכול להריץ פונקציה שתעדכן את השדה כפי הדוגמא דלהלן:

Private Sub Command1_Click()[INDENT] Dim dbs As DAO.Database
Dim rs As DAO.Recordset

Set dbs = CurrentDb

'Open a table-type Recordset
Set rs = dbs.OpenRecordset("[B]Table1[/B]", dbOpenTable)

If Not (rs.EOF And rs.BOF) Then[INDENT]     rs.MoveFirst 
    Do Until rs.EOF = True[INDENT]        rs.Edit
        rs("[B]Field1[/B]") = OnlyDigits(rs("[B]Field1[/B]"))
        rs.Update

        rs.MoveNext
[/INDENT]Loop
[/INDENT]Else
[/INDENT][INDENT][INDENT]     MsgBox "There are no records in the recordset."
[/INDENT][/INDENT][INDENT] End If
[/INDENT]End Sub

Public Function OnlyDigits(ByVal strSource As String) As String[INDENT]     Dim re As Object
    Set re = CreateObject("VBScript.RegExp"<wbr>)

    re.Global = True
    re.IgnoreCase = True
    re.pattern = "[^0-9]"
    OnlyDigitsA = re.Replace(strSource, vbNullString)
    Set re = Nothing
[/INDENT]End Function

 

[moishy]

אתה יכול להריץ פונקציה שתעדכן את השדה כפי הדוגמא דלהלן:

Private Sub Command1_Click()[INDENT] Dim dbs As DAO.Database
Dim rs As DAO.Recordset

Set dbs = CurrentDb

'Open a table-type Recordset
Set rs = dbs.OpenRecordset("[B]Table1[/B]", dbOpenTable)

If Not (rs.EOF And rs.BOF) Then[INDENT]     rs.MoveFirst 
    Do Until rs.EOF = True[INDENT]        rs.Edit
        rs("[B]Field1[/B]") = OnlyDigits(rs("[B]Field1[/B]"))
        rs.Update

        rs.MoveNext
[/INDENT]Loop
[/INDENT]Else
[/INDENT][INDENT][INDENT]     MsgBox "There are no records in the recordset."
[/INDENT][/INDENT][INDENT] End If
[/INDENT]End Sub

Public Function OnlyDigits(ByVal strSource As String) As String[INDENT]     Dim re As Object
    Set re = CreateObject("VBScript.RegExp"<wbr>)

    re.Global = True
    re.IgnoreCase = True
    re.pattern = "[^0-9]"
    OnlyDigitsA = re.Replace(strSource, vbNullString)
    Set re = Nothing
[/INDENT]End Function

כמה הערות,
1. למרות שאפשר להשתמש עם רקורדסט לעדכון הערכים המבוקשים בטבלה, הפתרון של שאילתה, מומלצת יותר ברוב המקרים, ולו בגלל שכותבים פחות ויש פחות מקום לשגיאות, ובפרט שמאוד לא מומלץ להעתיק קוד בלי להבין אותו.
2. למרות שהדרך שבו קראתם לשדה ברקורדסט חוקית בהחלט (rs("Field1")) יותר קל ופשוט לקרוא לו כך:

rs!Field1

3. בנוסחת הרגאקס, יש עוד שתי חלופות:

"[^\d]"

או

"\D"

​

​