Giúp Sửa Lỗi Activex Component Can't Create Object Khi Load Form

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Giúp sửa lỗi activex component can't create object khi load Form (1 người xem)

• Thread starter Thread starter Cao Mạnh Sơn
• Ngày gửi Ngày gửi 11/6/12

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) Status Không mở trả lời sau này.

Cao Mạnh Sơn

Tôi đồng ý

Tham gia 26/11/07 Bài viết 568 Được thích 591 Tôi có 1 file sử dụng Form. Theo chương trình khi mở File lên sẽ tự động load Form, từ Form sẽ vào chương trình bảng tính bằng nút lệnh VÀO BẢNG TÍNH và kết thúc chương trình bằng nút THOÁT CHƯƠNG TRÌNH. Bây giờ tôi đang bị lỗi như sau: nếu thoát chương trình bằng lệnh đóng file của Excel(Dấu x góc phải của bảng tính) thì khi mở lại bảng tính hoàn toàn không có lỗi gì. Ngược lại nếu tôi thoát chương trình bằng nút lệnh trên Form thì khi mở lại bảng tính sẽ xuất hiện lỗi: activex component can't create object. Tôi không cho rằng code viết bị lỗi mà cho rằng máy tính của tôi đang thiếu một Control nào đó, tôi gửi ảnh minh họa và file lỗi nhờ mọi người giúp giải quyết lỗi. Xin cám ơn

File đính kèm

• New folder.rar New folder.rar 233.1 KB · Đọc: 105

Sắp xếp theo thời gian sắp xếp theo bầu chọn

Cao Mạnh Sơn

Tôi đồng ý

Tham gia 26/11/07 Bài viết 568 Được thích 591 Mong các cao thủ VBA sớm giải quyết giúp vấn đề. Upvote 0

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự Tham gia 13/6/06 Bài viết 4,859 Được thích 10,349 Giới tính Nam Nghề nghiệp Giáo viên, CEO tại Bluesofts

cao mạnh sơn đã viết: Tôi có 1 file sử dụng Form. Theo chương trình khi mở File lên sẽ tự động load Form, từ Form sẽ vào chương trình bảng tính bằng nút lệnh VÀO BẢNG TÍNH và kết thúc chương trình bằng nút THOÁT CHƯƠNG TRÌNH. Bây giờ tôi đang bị lỗi như sau: nếu thoát chương trình bằng lệnh đóng file của Excel(Dấu x góc phải của bảng tính) thì khi mở lại bảng tính hoàn toàn không có lỗi gì. Ngược lại nếu tôi thoát chương trình bằng nút lệnh trên Form thì khi mở lại bảng tính sẽ xuất hiện lỗi: activex component can't create object. Tôi không cho rằng code viết bị lỗi mà cho rằng máy tính của tôi đang thiếu một Control nào đó, tôi gửi ảnh minh họa và file lỗi nhờ mọi người giúp giải quyết lỗi. Xin cám ơn Nhấp chuột vào đây để mở rộng...

Code cũ Mã: Sao chép. Private Sub QuitAndSave_Click() Sheets("InTemThung").Select Cells.Select Selection.Delete Sheets("Menu").Select ThisWorkbook.Close SaveChanges:=True Application.WindowState = xlMaximized End Sub Anh cần sửa lại là Mã: Sao chép. Private Sub QuitAndSave_Click() ThisWorkbook.Close SaveChanges:=True Application.WindowState = xlMaximized [COLOR="#FF0000"]Unload Me[/COLOR] 'Giải phóng form & bộ nhớ End Sub Các code xóa vì nó đã chạy trong sự kiện ThisWorkbook.BeforeSave(). Khi đóng form anh phải chạy lệnh "Unload Me" để giải phóng bộ nhớ và đóng form thực sự. Trong file Excel của anh không có dùng controls nào lạ cả nên chạy máy nào cũng được. Upvote 0

Cao Mạnh Sơn

Tôi đồng ý

Tham gia 26/11/07 Bài viết 568 Được thích 591

Nguyễn Duy Tuân đã viết: Các code xóa vì nó đã chạy trong sự kiện ThisWorkbook.BeforeSave(). Khi đóng form anh phải chạy lệnh "Unload Me" để giải phóng bộ nhớ và đóng form thực sự. Nhấp chuột vào đây để mở rộng...

Tuân à, nếu bỏ các lệnh xóa đi thì khi đóng Form nó không xóa mặc dù đã có lệnh trong sự kiện trước khi Save. Trên máy của anh vẫn không hết lỗi như anh đã nêu: activex component can't create object. Upvote 0

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự Tham gia 13/6/06 Bài viết 4,859 Được thích 10,349 Giới tính Nam Nghề nghiệp Giáo viên, CEO tại Bluesofts Thuốc đặc trị cho anh đây: Code cũ Mã: Sao chép. Private Sub UserForm_Activate() On Error Resume Next If Application.WindowState = xlMinimized Then DonmauDonco.Enabled = False DonmauDonco2.Enabled = False DonmauDaco.Enabled = False DamauDaco.Enabled = False Assort.Enabled = False GhepTam.Enabled = False Else DonmauDonco.Enabled = True DonmauDonco2.Enabled = True DonmauDaco.Enabled = True DamauDaco.Enabled = True Assort.Enabled = True GhepTam.Enabled = True End If Dunglai = False Me.Caption = "SONDONG GAMENT JOINT STOCK COMPANY - SONDONG.,JSC - " ChuChay = Me.CompanyName [COLOR="#008000"]Thuchien: PauseTime = 0.2 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop L = Len(CompanyName.Caption) CompanyName.Caption = Right(CompanyName.Caption, L - 1) + Left(CompanyName.Caption, 1) If Dunglai = False Then GoTo Thuchien[/COLOR] End Sub Lỗi là ở lệnh lặp từ đoạn Thuchien:, trong suốt quá trình chạy form nó không thoát khỏi vòng lặp này được và một số sự kiện của đối tượng máy tính không nhận được đúng. Anh sử dụng vòng lặp này cốt để chạy một thủ tục chạy chữ mà thôi. Giải pháp là thay thế bằng hàm Windows API SetTimer() tốt hơn và chạy độc lập với form, nó định kỳ (theo mili giây) chạy một thủ tục. Code trong form sửa lại và thêm như sau: + Trong sự kiện Activate(): Xóa từ dòng Thuchien: và thêm lệnh StartTimer - Khởi hoạt chế độ chạy Timer + Thêm sự kiện Terminate() và gán lệnh StopTimer - Ngưng chế độ chạy Timer Mã: Sao chép. Private Sub UserForm_Activate() On Error Resume Next If Application.WindowState = xlMinimized Then DonmauDonco.Enabled = False DonmauDonco2.Enabled = False DonmauDaco.Enabled = False DamauDaco.Enabled = False Assort.Enabled = False GhepTam.Enabled = False Else DonmauDonco.Enabled = True DonmauDonco2.Enabled = True DonmauDaco.Enabled = True DamauDaco.Enabled = True Assort.Enabled = True GhepTam.Enabled = True End If Dunglai = False Me.Caption = "SONDONG GAMENT JOINT STOCK COMPANY - SONDONG.,JSC - " ChuChay = Me.CompanyName [COLOR="#FF0000"]StartTimer[/COLOR] End Sub Private Sub UserForm_Terminate() [COLOR="#FF0000"]StopTimer[/COLOR] End Sub Tạo một Module tên là modTimer chứa code của các hàm và thủ tục StartTimer, StopTimer, TimeProc - Thủ tục chạy chữ Mã: Sao chép. Option Explicit Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Const nIDEvent = 9999 [COLOR="#008000"]'Tuy chon, so > 0[/COLOR] Sub StartTimer() StopTimer SetTimer Application.hwnd, nIDEvent, 100, AddressOf TimeProc [COLOR="#008000"]'100 -- Tốc độ chạy chữ = mili giây[/COLOR] End Sub Sub StopTimer() KillTimer Application.hwnd, nIDEvent End Sub [COLOR="#008000"]'Thủ tục chạy chữ[/COLOR] Function TimeProc(ByVal H As Long, ByVal nMSG As Long, ByVal nID As Long, ByVal nTsys As Long) On Error Resume Next If Not frmMain Is Nothing Then Dim L As Long L = Len(frmMain.CompanyName.Caption) frmMain.CompanyName.Caption = Right(frmMain.CompanyName.Caption, L - 1) + Left(frmMain.CompanyName.Caption, 1) End If End Function Kỹ thuật chạy Timer trong VBA nên thay thế bởi hàm API SetTimer chứ không nên dùng Application.OnTime() hay Do While .. Loop. Về chữ chạy anh có thể tham khảo code em viết ở bài Tặng các bạn ScrollText - Cuộn chữ: lên, xuống, trái phải,... File của anh em đã sửa và gửi đính kèm theo bài này, anh kiểm tra xem ok chưa.

File đính kèm

• Check_tuan.rar Check_tuan.rar 132.9 KB · Đọc: 62

Lần chỉnh sửa cuối: 12/6/12 Upvote 0

Cao Mạnh Sơn

Tôi đồng ý

Tham gia 26/11/07 Bài viết 568 Được thích 591 Được rồi Tuân à. Cám ơn nhiều. Vậy mà anh cứ cho rằng tại máy tính của anh thiếu control nào đó, anh loay hoay mãi không được. Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981

Nguyễn Duy Tuân đã viết: Kỹ thuật chạy Timer trong VBA nên thay thế bởi hàm API SetTimer chứ không nên dùng Application.OnTime() hay Do While .. Loop. Về chữ chạy anh có thể tham khảo code em viết ở bài Tặng các bạn ScrollText - Cuộn chữ: lên, xuống, trái phải,... File của anh em đã sửa và gửi đính kèm theo bài này, anh kiểm tra xem ok chưa. Nhấp chuột vào đây để mở rộng...

Nếu dùng SetTimer, tôi thường thấy nó đi cặp với 1 hàm TimeProc(các tham số) Sẵn tiên cho tôi hỏi tí: - Hàm TimeProc thường có 1 lô tham số đi kèm, nó dùng để làm gì vậy? - Do không hiểu mấy tham số này nên tôi thường bỏ luôn ---> Vì thật ra có để nguyên mấy tham số ấy thì tôi cũng đâu thấy chung tham gia gì vào quá trình tính toán đâu Upvote 0

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự Tham gia 13/6/06 Bài viết 4,859 Được thích 10,349 Giới tính Nam Nghề nghiệp Giáo viên, CEO tại Bluesofts

ndu96081631 đã viết: Nếu dùng SetTimer, tôi thường thấy nó đi cặp với 1 hàm TimeProc(các tham số) Sẵn tiên cho tôi hỏi tí: - Hàm TimeProc thường có 1 lô tham số đi kèm, nó dùng để làm gì vậy? - Do không hiểu mấy tham số này nên tôi thường bỏ luôn ---> Vì thật ra có để nguyên mấy tham số ấy thì tôi cũng đâu thấy chung tham gia gì vào quá trình tính toán đâu Nhấp chuột vào đây để mở rộng...

Để giải thích các tham số của TimerProc sẽ bắt đầu từ việc gọi SetTimer Mã: Sao chép. Const nIDEvent = 9999 SetTimer(Application.hwnd, nIDEvent, 100, AddressOf TimeProc) Hàm SetTimer để thiết lập chế độ gọi thông điệp WM_TIMER trong thủ tục Windows (nguyên lý hoạt động chương trình trong Windows là duyệt các thông điệp (Message) trong một vòng lặp, hàm để bắt thông điệp này thường có tên WndProc() nó được cài vào Handle của chương trình. Application.hwnd chính là Handle của Microsoft Excel đang chạy). Nếu không gán TimeProc trong SetTimer thì hàm WndProc sẽ gửi thông điệp WM_TIMER để chúng ta xử lý. Trong việc gọi trên, SetTimer luôn trả về giá trị là ID của lần gọi SetTimer, và nó chính bằng nIDEvent. Trong một hoàn cảnh nào đó chúng ta có thể gọi hai hay nhiều lần SetTimer với cùng thủ tục có tên TimeProc Mã: Sao chép. SetTimer(ExcelHwnd, nIDEventExcel, 100, AddressOf TimeProc) SetTimer(WordHwnd, nIDEventWord, 100, AddressOf TimeProc) Trong trường hợp này thủ tục TimeProc được gọi trên hai thread (hiểu như là chạy trên hai luồng). Một cái theo Winword - WordHwnd và cái kia theo Excel - ExcelHwnd với 2 ID là nIDEventWord, nIDEventExcel (có thể đặt hằng số cho các ID với giá trị là 9999, 9998). Cấu trúc của thủ tục TimeProc như sau: Mã: Sao chép. Sub TimeProc(ByVal hwnd As Long, ByVal nMSG As Long, ByVal idEvent As Long, ByVal dwTime As Long) [COLOR="#008000"] 'On Error Resume Next[/COLOR] End Sub + hwnd: là Handle của ứng dụng mà được gọi trong hàm SetTimer, nếu TimeProc chạy trên luồng Winword thì giá trị của nó chính là WordHwnd, nếu Excel thì là ExcelHwnd. Trong ví dụ bài trước thì nó chính là Application.hwnd. Trong lập trình API biết được giá trị Handle sẽ là đầu mối để làm mọi việc xử lý tới ứng dụng chứa Handle đó. + nMSG: là thông điệp/Message mà Windows gửi đến, nó chính là WM_TIMER với giá trị 275. + idEvent: là ID của thủ tục TimeProc, nó được nạp khi gọi hàm SetTimer, nếu TimeProc chạy trên luồng Winword thì giá trị của nó chính là nIDEventWord, nếu Excel thì là nIDEventExcel. Trong ví dụ bài trước thì nó chính là 9999. Biết được giá trị ID ta biết là TimerProc đang chạy trên luồng nào. + dwTime: trả về số mili giây kể từ lúc hệ thống được khởi động. Giá trị này trùng với giá trị trả về bởi hàm GetTickCount. (*) Trong ví dụ ở bài trước hay ở đâu đó chúng ta nhầm hay gọi hàm function TimeProc nhưng cách gọi này là sai dẫn đến giá trị các tham số trong TimerProc trả về không đúng, đúng phải là Sub TimeProc. Việc giải thích cách thức hoạt động của mấy hàm API này có vẻ trừu tượng, không dễ ngấm. Vậy hiểu nôm na thế này. Ngôn ngữ tin học là: Mã: Sao chép. SetTimer(ExcelHwnd, nIDEventExcel, 100, AddressOf TimeProc) SetTimer(WordHwnd, nIDEventWord, 100, AddressOf TimeProc) Công việc ngoài đời là: Mã: Sao chép. SetTimer(Lào, Số hộ chiếu ở Lào, thời gian nhắc việc, đ/c ndu96081631) SetTimer(Campuchia, Số hộ chiếu ở Campuchia, thời gian nhắc việc, đ/c ndu96081631) Như vậy cùng một người là ndu96081631 nhưng phải làm việc ở ở hai nơi Lào và Campuchia. Máy tính có khả năng nhân bản ndu96081631 thành hai, cùng một thời điểm có mặt và làm việc cả hai quốc gia Lào và Campuchia. đ/c ndu96081631 chỉ biết mình đang ở đâu khi nhìn vào idEvent. Lần chỉnh sửa cuối: 12/6/12 Upvote 0

ptm0412

Bad Excel Member

Thành viên BQT Administrator Tham gia 4/11/07 Bài viết 14,819 Được thích 37,532 Donate (Momo) Giới tính Nam Nghề nghiệp Consultant Tôi xóa mọi bài tranh luận không liên quan đến chủ đề. Chủ topic cũng đã thỏa mãn, nên tôi khóa chủ đề này, Ai muốn tranh luận bên ngoài chủ đề, thì mở topic khác. Gởi siwtom, Tôi biết bạn có lưu lại các bài viết ở đây, nếu bạn muốn tranh luận thì mở topic khác, dán bản sao lưu vào hay không tùy bạn. Lần chỉnh sửa cuối: 13/6/12 Upvote 0 Status Không mở trả lời sau này.

Bài viết mới nhất

T Nhờ làm file excel quản lý kho N-X-T theo vị trí (1 người xem)

• • 

• Tuan_Leok
• 1/11/18
• Excel Ứng Dụng

Trả lời 18 Đọc 6K 18 phút trước thanhphongtslocphat A

• Question Question

Đã cách dòng, nhưng có Mã trùng lặp thì báo trùng (4 người xem)

• AnhThu-1976
• Hôm nay lúc 10:18
• Lập Trình với Excel

Trả lời 4 Đọc 40 20 phút trước AnhThu-1976 A Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 27 Đọc 1K Hôm nay lúc 05:32 SA_DQ O Xin mọi người giúp e xử lý file Xuất nhập tồn (từ dọc -> ngang) ạ!

• oiquetoi
• Thứ tư lúc 22:22
• Hàm và công thức Excel

Trả lời 8 Đọc 151 Hôm qua, lúc 22:02 oiquetoi O

• Đã giải quyết

HÀM FITROW - Co giãn dòng tự động và bổ trợ in ấn Excel v2.46 (*19/02/2025)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 57 Đọc 29K Hôm qua, lúc 18:42 chothadiem hỏi về công thức tách kí tự từ chuỗi

• Momominh
• Thứ bảy lúc 11:52
• Hàm và công thức Excel

Trả lời 10 Đọc 289 Hôm qua, lúc 16:12 Momominh Q Nhờ các anh chị giúp cho công thức đếm số khách hàng theo File đính kèm

• QUANSUNG
• 29/12/25
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 9 Đọc 335 Hôm qua, lúc 14:13 anhthaimx22 A T Bị hiển các dòng, cột đã ẩn của bảng tính khi thực hiện tính toán tại 1 ô bất kỳ trong excel

• txbktxd50
• 13/8/24
• Hàm và công thức Excel

Trả lời 7 Đọc 539 Hôm qua, lúc 07:37 photinh P CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ

• • 
  • 

• PhanTuHuong
• 4/10/22
• Thư giãn

Trả lời 9 Đọc 2K Thứ tư lúc 22:48 PhanTuHuong H

• Question Question

Lấy thông tin doanh nghiệp trên trang ĐKKD tự động bằng Code VBA

• hoahuongduong1986
• 15/5/20
• Lập Trình với Excel

Trả lời 18 Đọc 4K Thứ tư lúc 15:14 phamduyhoang2907 P M Cách tính ngày chay Âm lịch đạo Cao Đài

• • 

• MNCK452
• Thứ tư lúc 14:05
• Những vấn đề chung

Trả lời 0 Đọc 63 Thứ tư lúc 14:05 MNCK452 M K Hàm tìm theo kết quả gần đúng nhất

• • 

• kiemkhach2
• Thứ hai lúc 21:14
• Hàm và công thức Excel

Trả lời 7 Đọc 226 Thứ ba lúc 20:03 kiemkhach2 K N Tổng hợp 2 sheet khác nhau (có 1 cột dữ liệu trùng) trong goole sheet

• Na7979
• 19/12/25
• Google Sheets

Trả lời 1 Đọc 224 Thứ ba lúc 09:51 yeudoi

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (6 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 585 Đọc 85K Thứ hai lúc 17:12 maphuong M S TỰ ĐỘNG CẬP NHẬT DỮ LIỆU

• sangdennh
• 2/1/26
• Hàm và công thức Excel

Trả lời 14 Đọc 578 Thứ hai lúc 07:51 le_vis L V Giúp tạo bảng phân công lịch trực tự động

• • 

• vudaicacvatn
• 31/12/25
• Những vấn đề chung

Trả lời 5 Đọc 306 Thứ hai lúc 07:41 vudaicacvatn V T Mọi người giúp mình lập bảng tính sao hạn ạ

• thinhthien1
• Chủ nhật lúc 22:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 1 Đọc 174 Thứ hai lúc 06:15 Phan Thế Hiệp File.xlsx hay bị tự động out, khi mở lại báo lỗi repaired và chỉ lưu được đến lần last saved gần nhất ạ

• zonmaomao
• 2/1/26
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 3 Đọc 118 Chủ nhật lúc 12:38 huhumalu H

• Question Question

Liệt kê tổ hợp chập k của nhóm n phần tử.

• • 
  • 

• NguyenNgocThuHien
• 5/12/17
• Lập Trình với Excel

Trả lời 55 Đọc 19K 2/1/26 tohop T G Em xin hỏi hàm Vlook up ạ!

• giangong
• 2/1/26
• Hàm và công thức Excel

Trả lời 1 Đọc 114 2/1/26 dungpham01 D Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• sangdennh 7
• DeTong 6
• Phan Thế Hiệp 6
• dungpham01 5
• ptm0412 5
• 2013myvietnam 4
• oiquetoi 4
• thanhphongtslocphat 4
• Duy Tùng 9x 3
• kiemkhach2 3
• SA_DQ 3
• AnhThu-1976 3
• HUONGHCKT 2
• huuthang_bd 2
• zonmaomao 2
• huhumalu 2
• Momominh 2
• chothadiem 2
• giangong 1
• vudaicacvatn 1

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 18
• 2013myvietnam 5
• dungpham01 5
• ptm0412 5
• DeTong 4
• HUONGHCKT 4
• LOGANWover 3
• thanthanhan 2
• huhumalu 2
• PhanTuHuong 2
• SA_DQ 2
• 87kilua 1
• Duy Tùng 9x 1
• HeSanbi 1

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom