Lỗi run time error '-2146232576 (80131700) ':

[huonglien1901]

Chào mọi người!

Em có vấn đề nhờ mọi người hỗ trợ.

Khi em click vào nút Xuất thì xảy ra lỗi này.

Em nhờ mọi người hỗ trợ sửa lỗi giúp em lỗi này với.

Em cảm ơn mọi người nhiều.

 

[batman1]

Tôi thấy báo lỗi khác, không có 8013170.
Bạn thử: vào VBE -> trong code mỗi Form tìm LongLong và thay bằng LongPtr. Trong mỗi Form chỉ có 1 chỗ LongLong.
----
Bạn lấy tập tin của ai đó, tôi trông quen quen.

 

[huonglien1901]

Tôi thấy báo lỗi khác, không có 8013170.
Bạn thử: vào VBE -> trong code mỗi Form tìm LongLong và thay bằng LongPtr. Trong mỗi Form chỉ có 1 chỗ LongLong.
----
Bạn lấy tập tin của ai đó, tôi trông quen quen.

Em lấy tập tim của chị @NguyenthiH đó Anh.

 

[huonglien1901]

Tôi thấy báo lỗi khác, không có 8013170.
Bạn thử: vào VBE -> trong code mỗi Form tìm LongLong và thay bằng LongPtr. Trong mỗi Form chỉ có 1 chỗ LongLong.
----
Bạn lấy tập tin của ai đó, tôi trông quen quen.

Nó báo lỗi ở dòng này Bác ơi.

Nhờ Bác hỗ trợ sửa lỗi giúp em với.

Em cảm ơn Bác nhiều!

 

[batman1]

Nó báo lỗi ở dòng này Bác ơi.
View attachment 226295

Sau khi tôi sửa lỗi ở những khai báo thì khi chạy code tôi không có lỗi như bạn.
Nếu có lỗi thì chắc chắn không ở chỗ bạn chỉ.

Bạn hãy tập chạy code từng bước. Hãy đặt breakpoint (vd. click ở bên lề trái) tại dòng cuối cùng trong UserForm_Initialize - Call CreateListDonHang. Khi tới đó thì chạy từng bước (F8). CreateListDonHang sẽ gọi SortArr ở dòng cuối cùng - cb_DH.List = SortArr(Nhap, 1). Trong sortArr có dòng

Set oSList = CreateObject("System.Collections.SortedList")

Tôi nghi nhất là lỗi ở dòng này.

Nếu đúng ở dòng trên thì đọc

lỗi Automation

Em có File excel ở đây, code của anh chucuoi92 viết, mở ở máy công ty (win 7-32bit) thì không sao, nhưng mở ở máy nhà(win 10-32bit) thì khi chọn đợt hàng bị lỗi "-2146232576(80131700): Automation Error.khi bấm debug thì lỗi vàng ngay chổ code: Set dic =...

www.giaiphapexcel.com