lỗi Date trong Userform (1 người xem)

[Rùa Con 1080]

Chào mọi người, em có tạo một Form vẫn chạy bình thường. Nhưng vì dính Virus, nên em cài lại Win và Office, hôm nay mở file đó lên thì bị lỗi :
" Can't Find Project or Library" và khi nhấn OK thì hiện vàng ngay chữ "Date" trong UserForm Initialize()

tb_ngay.value = Format([COLOR=#ff0000]Date[/COLOR], "Short Date")

bị lỗi vàng ngay chữ Date
Mong mọi người giúp đỡ. Em nghĩ chắc thiều Control toolBox Date.
P/s: Bình thường thì khi mở Form, TextBox ngay sẽ hiện ngày hiện tại ví dụ là 11/10/2016.

 

[befaint]

Chào mọi người, em có tạo một Form vẫn chạy bình thường. Nhưng vì dính Virus, nên em cài lại Win và Office, hôm nay mở file đó lên thì bị lỗi :
" Can't Find Project or Library" và khi nhấn OK thì hiện vàng ngay chữ "Date" trong UserForm Initialize()

tb_ngay.value = Format([COLOR=#ff0000]Date[/COLOR], "Short Date")

bị lỗi vàng ngay chữ Date
Mong mọi người giúp đỡ. Em nghĩ chắc thiều Control toolBox Date.
P/s: Bình thường thì khi mở Form, TextBox ngay sẽ hiện ngày hiện tại ví dụ là 11/10/2016.

Chào Rùa Con 1080,

Bạn kiểm tra textbox có đúng tên là tb_ngay không?
Hoặc, bạn đính kèm file đó lên để mọi người kiểm tra giúp.

 

[Rùa Con 1080]

Dạ file vẫn làm bình thường, chỉ khi cài win và Office lại mới xảy ra lỗi(và tên textBox đúng)
Cám ơn ANh đã trả lời. Mong nhận đượcgiúp đỡ từ Anh và MN.

 

[befaint]

Dạ file vẫn làm bình thường, chỉ khi cài win và Office lại mới xảy ra lỗi(và tên textBox đúng)
Cám ơn ANh đã trả lời. Mong nhận đượcgiúp đỡ từ Anh và MN.

Chào Rùa Con 1080,

Bạn có hiểu nội dung tôi viết ở bài #2 không?

file vẫn làm bình thường

=> vậy bạn kêu là nó lỗi sau khi cài lại hệ điều hành và Office?
Bạn có biết lỗi tại file hay lỗi tại hệ điều hành, hay tại phần mềm Office?

Mong nhận được giúp đỡ từ Anh và mọi người.

Bạn mong nhận được sự giúp đỡ nhưng bạn có cho người khác bạn đang bị vướng ở đâu đâu? Cần có sự hợp tác từ phía bạn mới giải quyết được vấn đề.
Kiểu như, bạn bị đau đầu. Tới phòng khám cứ kêu: Bác sĩ ơi tôi bị đau đầu, bác sĩ chữa giúp tôi với nhưng bạn lại không mang cái đầu cho bác sĩ khám thì theo bạn nên làm thế nào?
Thân!

 

[doveandrose]

Chào mọi người, em có tạo một Form vẫn chạy bình thường. Nhưng vì dính Virus, nên em cài lại Win và Office, hôm nay mở file đó lên thì bị lỗi :
" Can't Find Project or Library" và khi nhấn OK thì hiện vàng ngay chữ "Date" trong UserForm Initialize()

tb_ngay.value = Format([COLOR=#ff0000]Date[/COLOR], "Short Date")

bị lỗi vàng ngay chữ Date
Mong mọi người giúp đỡ. Em nghĩ chắc thiều Control toolBox Date.
P/s: Bình thường thì khi mở Form, TextBox ngay sẽ hiện ngày hiện tại ví dụ là 11/10/2016.

bạn chỉ đưa có nhiêu đó thông tin thì rất khó để xác định vấn đề nằm ở đâu
Tôi chỉ nói theo kinh nghiệm bản thân :
hệ điều hành window 64 bit rất hay bị lỗi kì quái với code VBA nếu không khai báo biến đầy đủ
Bạn không đưa file lên thì bạn phải tự kiểm tra trong code có đoạn sub hay function nào chưa khai báo đầy đủ các biến số thì bạn tự thêm cho đầy đủ .
Tôi đã gặp mấy lần code báo lỗi ngay hàm MID() của VBA mới ghê , khai báo đầy đủ các biến số thì hết lỗi .

 

[vu_tuan_manh_linh]

Chào mọi người, em có tạo một Form vẫn chạy bình thường. Nhưng vì dính Virus, nên em cài lại Win và Office, hôm nay mở file đó lên thì bị lỗi :
" Can't Find Project or Library" và khi nhấn OK thì hiện vàng ngay chữ "Date" trong UserForm Initialize()

tb_ngay.value = Format([COLOR=#ff0000]Date[/COLOR], "Short Date")

bị lỗi vàng ngay chữ Date
Mong mọi người giúp đỡ. Em nghĩ chắc thiều Control toolBox Date.
P/s: Bình thường thì khi mở Form, TextBox ngay sẽ hiện ngày hiện tại ví dụ là 11/10/2016.

Đơn giản thế này thôi: Date là một từ khóa, không thể dùng nó đặt tên cho 1 biến.

 

[trung984]

Lỗi thì có nhiều thứ, hỏi mà không gửi File lên thì chắc mò sửa tới tết.

 

[SA_DQ]

Cũng làm thầy bói đoán voi 1 cái:

Mới cài lại Win, thì có thêm khả năng này:

Hệ cũ được thiết lập kiểu "DD/MM/yyyy", còn hiện tại có thể đang là "MM/dd/YYYY"

À, mà hôm nay chưa là 13/10 mà ta?

 

[befaint]

Đơn giản thế này thôi: Date là một từ khóa, không thể dùng nó đặt tên cho 1 biến.

Chào vu_tuan_manh_linh,

Trước khi trả lời chủ topic tôi đã vẽ một cái texbox lên form rồi chạy thử dòng code đó. Kết quả là hiện kết quả đúng ngày hôm nay.
Date ở đây: Date = today()
Bạn thử mở cửa sổ vba rồi nhấn ctrl + G, nhập msgbox date rồi enter để kiểm tra nhanh.

 

[befaint]

Cũng làm thầy bói đoán voi 1 cái:

Mới cài lại Win, thì có thêm khả năng này:

Hệ cũ được thiết lập kiểu "DD/MM/yyyy", còn hiện tại có thể đang là "MM/dd/YYYY"

Tôi cũng đã thử cả 2 trường hợp dd/MM/yyyy và MM/dd/yyyy.
Khi Format là "Short Date" thì kết quả lấy theo format đã thiết lập trong control thôi.

 

[Rùa Con 1080]

File chỉ lỗi trên máy mới cài Win và Office thôi, đưa qua máy khác vẫn chạy ào ào. Em nghi là khi cài lại thiếu phần gì đó trong Office. Cám ơn mọi người đã chia sẻ.

 

[ndu96081631]

File chỉ lỗi trên máy mới cài Win và Office thôi, đưa qua máy khác vẫn chạy ào ào. Em nghi là khi cài lại thiếu phần gì đó trong Office. Cám ơn mọi người đã chia sẻ.

Cuối cùng thì bạn có đưa file lên đây cho mọi người kiểm tra hay là bạn muốn tự kiểm tra?
Lòng vòng miết, nhức đầu quá!

 

[be_09]

.tb_ngay.value = Format(Date, "Short Date").

Chẩn đoán bệnh:

Trong UserForm có dùng 1 Control nào đó, nhưng sang máy khác không có.

Thay thử dòng trên bằng dòng này vào.

tb_ngay = Format(tb_ngay, "dd/mm/yyyy")

Còn không được thì chịu.

 

[Rùa Con 1080]

Dạ chào Thầy Ndu, em có đưa File lên thì Thầy cũng chả thấy lỗi đâu(vì chỉ bị ở máy đó- máy mới cài lại). Em đang cố thử cài lại Office xem sao. Vì máy ở cơ quan, nên mai đi làm mới thử được.

 

[befaint]

Dạ chào Thầy Ndu, em có đưa File lên thì Thầy cũng chả thấy lỗi đâu(vì chỉ bị ở máy đó- máy mới cài lại). Em đang cố thử cài lại Office xem sao. Vì máy ở cơ quan, nên mai đi làm mới thử được.

Chào Rùa Con 1080,

Đúng là lỗi này khó thật và theo cách bạn biểu đạt thì "ảo..." luôn.
Tôi tưởng sau câu này

... Cám ơn mọi người đã chia sẻ.

ở bài #11, tức là "Stop and.." rồi chứ.
Vậy sau bài này, theo bạn, chúng ta có nên "thảo luận" tiếp không?

 

[huuthang_bd]

Dạ chào Thầy Ndu, em có đưa File lên thì Thầy cũng chả thấy lỗi đâu(vì chỉ bị ở máy đó- máy mới cài lại). Em đang cố thử cài lại Office xem sao. Vì máy ở cơ quan, nên mai đi làm mới thử được.

Bạn vào Tools > Refrences... xem có dòng nào được đánh dấu mà có tên bắt đầu bằng MISSING không. Nếu có thì bỏ đánh dấu và thử lại.

Nếu cách trên không được (không có hoặc đã làm nhưng không được) thì thêm 'VBA.' vào trước các hàm VBA. Ví dụ như vầy:

tb_ngay.value = Format([COLOR=#ff0000]VBA.[/COLOR]Date, "Short Date")

 

[Rùa Con 1080]

Làm như bạn huuthang_bd thì bị lỗi ngay chữ Format.
Cám ơn bạn đã trả lời.

 

[langtuchungtinh360]

Làm như bạn huuthang_bd thì bị lỗi ngay chữ Format.
Cám ơn bạn đã trả lời.

người ta kêu gửi file để giải quyết nhanh hơn.
bạn không gửi thì mấy người muốn giúp chán mà bỏ đi chả ai giúp bạn đâu
giống như bạn đi lại tiệm sửa xe, bạn nói nó bị cái này cái kia, rồi người ta đoán bệnh, nói biện pháp. rồi bạn về áp dụng vào không được hoặc sai, đâm ra nó hư nặng hơn. người xửa xe muốn giúp mà chả có thời gian đâu mà ngồi đó đoán bệnh giúp bạn. còn công ăn việc làm mưu sinh nữa. chi bằng dắt xe lại cho người ta xem rồi sửa chưa đầy 15ph, tốn tầm vài chục là xong, 2 bên cùng có lơi, còn cách của bạn cứ ngày này qua ngày khác thì cũng chẳng sửa lại được đâu
tôi thì chả muốn đoán làm khỉ gì.
đưa ra hướng bạn áp dụng được thì áp dụng, không được thôi. chờ có file xử tiếp
được thì thử 2 cái này

? DateSerial(2003,8,10)'DateSerial(năm, tháng, ngày) xuất ra ngày/ tháng/ năm


?DateValue("8,10,2003")'DateValue(ngày, tháng, năm) xuất ra ngày/ tháng/ năm

theo tôi thấy hình như code bạn có sử dụng Name trong đó. tốt nhất bỏ luôn, muốn làm gì thì viết ra thẳng, khỏi cần qua trung gian làm code xử lý chậm.

 

[huuthang_bd]

Làm như bạn huuthang_bd thì bị lỗi ngay chữ Format.
Cám ơn bạn đã trả lời.

Thì tôi nói là thêm 'VBA.' vào trước các hàm VBA mà. Format cũng là hàm VBA thì thêm 'VBA.' ở trước thành VBA.Format

 

[Rùa Con 1080]

Cám ơn mọi người đã chia sẻ, em mới biết lý do rồi. Thiếu Shockware Flash, nhưng nghĩ cũng kỳ, trong Form không sử dụng một hình.swf nào cả. Phải gần 20 bài mới tìm ra. Cám ơn mọi người đã nhiệt tình giúp đỡ