Sửa code VBA nhập liệu userform (3 người xem)

[antudo]

Dạ Chào Anh chị,
Em đang gặp lỗi code thêm hình ảnh và ngày tháng đảo lộn trong file nhập liệu nhân sự bằng userform
Nhờ anh chị hỗ trợ sửa giúp em với ạ
Em cám ơn ạ,

 

[Hoàng Tuấn 868]

Dạ Chào Anh chị,
Em đang gặp lỗi code thêm hình ảnh và ngày tháng đảo lộn trong file nhập liệu nhân sự bằng userform
Nhờ anh chị hỗ trợ sửa giúp em với ạ
Em cám ơn ạ,

Để nguyên câu hỏi này, nếu không mô tả thêm cụ thể như thế nào thì chẳng hiểu gì để giúp.

 

[antudo]

Để nguyên câu hỏi này, nếu không mô tả thêm cụ thể như thế nào thì chẳng hiểu gì để giúp.

Vâng, sorry ạ
Em xin miêu tả kỹ hơn về 2 lỗi, như sau:
1- Lỗi 1: Thêm hình ảnh
Private Sub CMDADDPHOTO_Click()
Dim x As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
x = Application.FileDialog(msoFileDialogOpen).Show
If x <> 0 Then
FPATH = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Image1.Picture = LoadPicture(FPATH)
Image1.PictureSizeMode = 1
End If
End Sub
2- Lỗi định dạng ngày/tháng/năm
Ví dụ:
- Với ngày 19/5/2025 thì sẽ không bị lỗi ở cả userform và excel
- Nhưng với ngày 3/5/2025 thì userform không lỗi, lỗi hiển thị ở excel (ngược sang tháng/ngày/năm)
Chi tiết Anh chị xem giúp code nhé ạ
Tks,

 

[Hoàng Tuấn 868]

Vâng, sorry ạ
Tks,

Thông cảm nhé, mình không hỗ trợ những trường hợp dùng tiếng Tây bồi.

 

[SA_DQ]

Đầu tiên mình muốc lưu ý với bạn là vấn đề thiết kế CSDL;
1./ Mã số nhân viên
Hiện bạn đang xài dẫy số vô tri giác;
Nếu là mình thì xài bộ mã sau:



2./ Cũng trang CSDL này cần tách ra thành chí ít là 3 trang tính;
Trang đầu là những gì bất biết trong đời người sẽ lao động ở cơ quan bạn;
Ví du [Mã NV], [HoTen], [Ngày sinh], [Giới tính], [Địa chỉ], [SĐT],. . . .
Trang thứ 2 sẽ là
[Mã NV], [Ngày], Loại HĐLĐ], [Ghi chú]
Trang thứ 3 sẽ là về BHXH:
[Mã NV], [Số sổ BHXH], [Hôn nhân], [QH], [Họ tên người QH], [Ghi chú]
Hai trang này ghi dữ liệu theo chiều dọc; Không phải chiều ngang như bạn đang làm;

. . . .