Loại bỏ các ký tự đầu tiên của một chuỗi nếu nó tương đương với một cái gì đó

Question

Tôi đang luyện tập VBA cho Access 2010.

Tôi đọc tất cả các bài gợi ý liên quan đến bài viết của tôi nhưng không tìm thấy bất cứ điều gì cụ thể. Tôi biết làm thế nào để di chuyển các ký tự cụ thể trong một chuỗi, những gì tôi không biết là làm thế nào tôi có thể loại bỏ các ký tự cụ thể bằng với một cái gì đó.

Tôi muốn di chuyển ký tự 1 hoặc 1- từ số điện thoại nếu có.

Ví dụ: 17188888888-7188888888 hoặc 1-7188888888 đến 7188888888

Tôi cố gắng để sử dụng một câu lệnh if bắt đầu đầu tiên với chỉ tháo 1.

Số điện thoại được nhập như là một chuỗi không số.

Đây là những gì tôi đã bắt đầu: Tôi nhận được thông báo lỗi rằng RemoveFirstChar không rõ ràng.

Public Function RemoveFirstChar(RemFstChar As String) As String 
If Left(RemFstChar, 1) = "1" Then 
    RemFstChar = Replace(RemFstChar, "1", "") 
End If 
RemoveFirstChar = RemFstChar 
End Function 

Answer 1

Tôi đã thử nghiệm chức năng của bạn trong Access 2010 và nó chỉ làm việc fune .. Bạn cũng có thể sử dụng mã này:

Public Function RemoveFirstChar(RemFstChar As String) As String 
Dim TempString As String 
TempString = RemFstChar 
If Left(RemFstChar, 1) = "1" Then 
    If Len(RemFstChar) > 1 Then 
     TempString = Right(RemFstChar, Len(RemFstChar) - 1) 
    End If 
End If 
RemoveFirstChar = TempString 
End Function 

Answer 2

Không có gì đặc biệt xảy ra với mã của bạn, các lỗi "mơ hồ" là thông điệp trong ngữ cảnh này rất có thể là do bạn có một phụ hoặc hàm khác trong một mô-đun khác có cùng tên. Tìm kiếm để tìm tên trùng lặp.

Nếu bạn đặt chức năng trong mô-đun thuộc về biểu mẫu hoặc báo cáo, có lẽ tốt nhất là bỏ qua "Công khai". Nếu bạn dự định chức năng sẽ được sử dụng bởi nhiều biểu mẫu, hãy tạo một mô-đun mới không được đính kèm vào biểu mẫu và đặt các chức năng dành cho tất cả các biểu mẫu và báo cáo trong đó.

Nó gần như luôn luôn là tốt để cung cấp thông báo lỗi đầy đủ và số lỗi.