Lỗi code chạy trên win10 (1 người xem)

[thomtv]

Nhờ các bạn test giúp mình đoạn code khi chạy trên win10 thì chỉ hiện 3 số trong textbox1. (khi chạy trên win10 gõ 4 số vào textbox1 thì nó chỉ hiện 3 số)
Mình cũng đã thử chạy office2010, office2013 trên win10 nhưng vẫn bị lỗi.
Nhưng chạy trên win8,winxp,win7 thì chạy tốt. đoạn code như sau:
Me.TextBox1 = Format(Val(Replace(Me.TextBox1, ",", "")), "#,##0")
Rất mong được sự giúp đỡ từ các bạn.
PS/ xin lỗi mình gửi file nhằm, xin gui lai file.

 

[Kiều Mạnh]

Nhờ các bạn test giúp mình đoạn code khi chạy trên win10 thì chỉ hiện 3 số trong textbox1. (khi chạy trên win10 gõ 4 số vào textbox1 thì nó chỉ hiện 3 số)
Mình cũng đã thử chạy office2010, office2013 trên win10 nhưng vẫn bị lỗi.
Nhưng chạy trên win8,winxp,win7 thì chạy tốt. đoạn code như sau:
Me.TextBox1 = Format(Val(Replace(Me.TextBox1, ",", "")), "#,##0")
Rất mong được sự giúp đỡ từ các bạn.
PS/ xin lỗi mình gửi file nhằm, xin gui lai file.

Mình xài Win10X32+Office2010_x32 ................Xem hình

 

[thomtv]

bạn thay đổi đoạn code sau tét giup mình nhe!
Me.TextBox1 = Format(Val(Replace(Me.TextBox1, ",", "")), "#,##0")

 

[Kiều Mạnh]

bạn thay đổi đoạn code sau tét giup mình nhe!
Me.TextBox1 = Format(Val(Replace(Me.TextBox1, ",", "")), "#,##0")

Xem hình .................................Cái này nó liên quan tới Control panel..........vào đó coi lại

 

[thomtv]

tìm cả buổi trong control panel mà không biết chỉnh ở phần nào? mong được các bạn hướng dẫn cụ thể.
xin cảm ơn

 

[Kiều Mạnh]

tìm cả buổi trong control panel mà không biết chỉnh ở phần nào? mong được các bạn hướng dẫn cụ thể.
xin cảm ơn

Thích kiểu nào thì cứ xem hình xong vô đó nha

 

[thomtv]

Thích kiểu nào thì cứ xem hình xong vô đó nha

chỉnh nát cái customize format rồi nhưng vẫn không được. mình cũng đã thử trên 2 máy chạy win10x32 office2010 và office2013. cảm ơn bạn đã quan tâm hướng dẫn.

 

[nghiaphuc]

Nhờ các bạn test giúp mình đoạn code khi chạy trên win10 thì chỉ hiện 3 số trong textbox1. (khi chạy trên win10 gõ 4 số vào textbox1 thì nó chỉ hiện 3 số)
Mình cũng đã thử chạy office2010, office2013 trên win10 nhưng vẫn bị lỗi.
Nhưng chạy trên win8,winxp,win7 thì chạy tốt. đoạn code như sau:
Me.TextBox1 = Format(Val(Replace(Me.TextBox1, ",", "")), "#,##0")
Rất mong được sự giúp đỡ từ các bạn.
PS/ xin lỗi mình gửi file nhằm, xin gui lai file.

Vấn đề này có liên quan đến thiết lập trong Control Panel. Bạn có thể thử một trong 2 hướng xử lý sau:

Hướng 1: Trong hộp thoại Region, tại tab Formats, bạn chọn mục Format là English (United States) hoặc Match Windows display language (mục chọn trên cùng).

Hướng 2: Để nguyên thiết lập Control Panel hiện tại (như trên hình ở bài #7), mở file và sửa câu lệnh thành:

Me.TextBox1 = Format(Val(Replace(Me.TextBox1, [SIZE=4][COLOR=#ff0000][B]"."[/B][/COLOR][/SIZE], "")), "#,##0")

 

[thomtv]

đã rỏ nguyên nhân mà tìm mãi mới ra. thay đổi tiếng việt và kiểu ngày thì hàm format chạy sai.

 

[thomtv]

Vấn đề này có liên quan đến thiết lập trong Control Panel. Bạn có thể thử một trong 2 hướng xử lý sau:

Hướng 1: Trong hộp thoại Region, tại tab Formats, bạn chọn mục Format là English (United States) hoặc Match Windows display language (mục chọn trên cùng).

Hướng 2: Để nguyên thiết lập Control Panel hiện tại (như trên hình ở bài #7), mở file và sửa câu lệnh thành:

Me.TextBox1 = Format(Val(Replace(Me.TextBox1, [SIZE=4][COLOR=#ff0000][B]"."[/B][/COLOR][/SIZE], "")), "#,##0")

Cảm ơn mọi người đã quan tâm hướng dẫn, mình cũng đã làm được, nguyên nhân do thay kiểu ngày giờ việt và cài win tiếng việt nên hàm format chạy sai trong form, nhưng trong sheet thì ko chạy sai, ko rỏ nguyên nhân như thế nào?