Phục hồi userform từ file frm và code

duytmd · 12/1/18

Do chưa biết nhiều về VBA nên gặp khó khăn khi muốn tạo userform từ file frm và code có sẵn, nên em nhờ các anh chị trên diễn đàn khối phục giúp em 1 userform.
code nằm trong file mẫu excel, code userform nằm trong file formdongia và các code có liên quan.
Public DbConDG As ADODB.Connection

Public Sub ChenMaDonGia(MDG As String, Rn As Long)
Dim Rs As ADODB.Recordset
If DbConDG Is Nothing Then
Set DbConDG = CreateObject("ADODB.Connection")
DbConDG.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\DonGia1728.mdb"
End If
Set Rs = CreateObject("ADODB.RecordSet")
Rs.Open "SELECT MADG, MAVUA, MADM, TENCV, DONVI, '' , DGVL, DGNC, DGMAY FROM [DonGia] Where Ucase(MADG) = '" & UCase(MDG) & "'", DbConDG, adOpenKeyset, adLockPessimistic
Cells(Rn, 1).CopyFromRecordset Rs
Rs.Close
Set Rs = Nothing
End Sub
Public Sub ShowDonGia()
FormDonGia.Show
End Sub
Em xin cám ơn.

befaint · 12/1/18

duytmd đã viết:
từ file frm

File đó đâu nhỉ? Vác kính lúp ra soi mà chưa thấy mình à?

duytmd · 12/1/18

befaint đã viết:
File đó đâu nhỉ? Vác kính lúp ra soi mà chưa thấy mình à?

Mình xin lỗi,

duytmd · 12/1/18

befaint đã viết:
File đó đâu nhỉ? Vác kính lúp ra soi mà chưa thấy mình à?

Dữ liệu liên quan đây ạ.

befaint · 12/1/18

duytmd đã viết:
Dữ liệu liên quan đây ạ.

Ợ. Tiêu đề bài viết bạn ghi rõ là file frm cơ mà. Chứ sao gửi file *.xls và *.mdb lên?

duytmd · 12/1/18

befaint đã viết:
Ợ. Tiêu đề bài viết bạn ghi rõ là file frm cơ mà. Chứ sao gửi file *.xls và *.mdb lên?

View attachment 189957

Do file frm đưa lên không được nên mình đê code trong file excel. bạn mở file excel là có code.

befaint · 12/1/18

duytmd đã viết:
Do file frm đưa lên không được

Lý do sao không đưa lên được? Sao mình không nói là không đưa lên được?
Nhiều cách vô số kể luôn nhé.
- Úp file đó lên "đám mây" nào đó rồi gửi link qua đây. Ví dụ: Google Drive, Dropbox, Mediafire, Fshare, OneDrive....
- Đóng gói file đó thành dạng file nén (như bài #4 đó).

duytmd · 12/1/18

befaint đã viết:
Lý do sao không đưa lên được? Sao mình không nói là không đưa lên được?
Nhiều cách vô số kể luôn nhé.
- Úp file đó lên "đám mây" nào đó rồi gửi link qua đây. Ví dụ: Google Drive, Dropbox, Mediafire, Fshare, OneDrive....
- Đóng gói file đó thành dạng file nén (như bài #4 đó).

Đấy bạn.

befaint · 12/1/18

duytmd đã viết:
Đấy bạn.

Ủa???
------
Mình chỉ giúp bạn cách gửi yêu cầu đầy đủ lên thôi. Vậy mà cũng tới bài #9 lận. Haizzz.
Bạn gom yêu cầu, các file dữ liệu cần thiết vào bài #1 ấy. Để ai muốn xem giúp thì họ không phải đọc tới 10 bài.

duytmd · 12/1/18

befaint đã viết:
Ủa???
------
Mình chỉ giúp bạn cách gửi yêu cầu đầy đủ lên thôi. Vậy mà cũng tới bài #9 lận. Haizzz.
Bạn gom yêu cầu, các file dữ liệu cần thiết vào bài #1 ấy. Để ai muốn xem giúp thì họ không phải đọc tới 10 bài.

Cám ơn bạn

huuthang_bd · 13/1/18

duytmd đã viết:
Đấy bạn.

Một cái form của VBA khi kết xuất ra sẽ có 2 file, là file *.frm và *.frx
Nếu bạn có đủ 2 file này thì mới phục hồi được.

duytmd · 13/1/18

huuthang_bd đã viết:
Một cái form của VBA khi kết xuất ra sẽ có 2 file, là file *.frm và *.frx
Nếu bạn có đủ 2 file này thì mới phục hồi được.

Đúng rồi bạn, nhưng ý mình là dựa vào file frm và code để tạo lại userform mới

huuthang_bd · 13/1/18

duytmd đã viết:
Đúng rồi bạn, nhưng ý mình là dựa vào file frm và code để tạo lại userform mới

File .frx có các thông tin các đối tượng trên userform mà không có thì bó tay rồi.

duytmd · 13/1/18

huuthang_bd đã viết:
File .frx có các thông tin các đối tượng trên userform mà không có thì bó tay rồi.

MÌnh cũng dựa vào file frm và một số code đã tạo lại userform trên, nhưng còn 1 số lỗi và chưa đầy đủ. Bạn có thể xem form trong file đính kèm

duytmd · 14/1/18

Có anh chị nào đi ngang giúp e 1 tay với.

batman1 · 14/1/18

Nếu có giúp thì người ta cũng chỉ giúp những cái bạn chưa biết làm chứ không ai làm hộ cái mà bạn tự làm được.
1. code trong bài #1 ở đâu? Tôi không thấy nó trong tập tin Mau.xls. Nếu nó ở 1 Module nào đó thì tự thêm Module rồi sao chép code vào đó. Cái này bạn tự làm được mà sao không làm?

2. Tôi đã hướng dẫn rất kỹ trong chủ đề khác là phải tự thêm UserForm (nhìn thấy FormDonGia.Show thì sau khi thêm UserForm phải đổi tên từ UserForm1 sang FormDonGia) rồi sao chép code có trong tập tin FRM vào FormDonGia. Tôi cũng nói rõ chỉ sao chép từ dòng nào. Bây giờ tôi không thấy Form nào trong tập tin Mau.xls. Cái này tôi đã hướng dẫn và chắc chắn bạn làm được, vậy sao không làm?

3. Sau khi có code trong FormDonGia rồi thì dò thôi. Vd. trong code có:
- CmdFirst_Click,
Tạm đoán là trên Form có CommandButton có tên là CmdFirst. Vậy thì thả 1 CommandButton xuống Form rồi đổi tên thành CmdFirst. Thế thôi. Tương tự với các Cmd***_Click khác.

- LstDMCV_***
Tạm đoán là trên Form có ListBox có tên là LstDMCV. Là tương tự như trên thôi.

- TxtDVT_Change
Tạm đoán là trên Form có TextBox có tên là TxtDVT. Làm tương tự

- TxtIndex_***
Tạm đoán là trên Form có TextBox có tên là TxtIndex. Làm tương tự

- TxtMaDM_Change
Tạm đoán là trên Form có TextBox có tên là TxtMaDM. Làm tương tự

- TxtMay_***
Tạm đoán là trên Form có TextBox có tên là TxtMay. Làm tương tự

- TxtMDG_Change
Tạm đoán là trên Form có TextBox có tên là TxtMDG. Làm tương tự
...
Tương tự khi thấy TxtNC_***,TxtTenCV_Change, TxtVL_***

Nếu bây giờ chạy code mà thấy lỗi thì xem đó là lỗi gì. Vd. chỗ lỗi đó có tham chiếu tới 1 control nào đó mà chưa có trên Form. Thì đặt control đó trên Form thôi.

Đây mới chỉ là thả những control cần có vào Form. Cứ hãy thế, còn chuyện sắp xếp cho lôgíc, chuẩn, đẹp thì làm sau.

4. Từ tập tin FRM cũng chỉ biết cần có những control nào, còn chuyện "người ta" đã thay đổi các thuộc tính của chúng trong design time như thế nào thì chịu. Đôi khi có thể "đoán" được. Vd. trong code có đoạn truy cập tới cột 5 (cột có chỉ số 4) trong ListBox thì ListBox đó phải có ít nhất 5 cột - ColumnCount = 5

Nói chung nếu tải tập tin của ai đó vd. từ mạng về mà đã làm mất hoặc không tải về tập tin FRX thì bây giờ rất mất công. Nhưng muốn người khác tìm lỗi thì trước hết phải làm những cái tôi hướng dẫn. Không ai làm hộ những cái mà bạn tự làm được.

duytmd · 15/1/18

batman1 đã viết:
Nếu có giúp thì người ta cũng chỉ giúp những cái bạn chưa biết làm chứ không ai làm hộ cái mà bạn tự làm được.
1. code trong bài #1 ở đâu? Tôi không thấy nó trong tập tin Mau.xls. Nếu nó ở 1 Module nào đó thì tự thêm Module rồi sao chép code vào đó. Cái này bạn tự làm được mà sao không làm?

2. Tôi đã hướng dẫn rất kỹ trong chủ đề khác là phải tự thêm UserForm (nhìn thấy FormDonGia.Show thì sau khi thêm UserForm phải đổi tên từ UserForm1 sang FormDonGia) rồi sao chép code có trong tập tin FRM vào FormDonGia. Tôi cũng nói rõ chỉ sao chép từ dòng nào. Bây giờ tôi không thấy Form nào trong tập tin Mau.xls. Cái này tôi đã hướng dẫn và chắc chắn bạn làm được, vậy sao không làm?

3. Sau khi có code trong FormDonGia rồi thì dò thôi. Vd. trong code có:
- CmdFirst_Click,
Tạm đoán là trên Form có CommandButton có tên là CmdFirst. Vậy thì thả 1 CommandButton xuống Form rồi đổi tên thành CmdFirst. Thế thôi. Tương tự với các Cmd***_Click khác.

- LstDMCV_***
Tạm đoán là trên Form có ListBox có tên là LstDMCV. Là tương tự như trên thôi.

- TxtDVT_Change
Tạm đoán là trên Form có TextBox có tên là TxtDVT. Làm tương tự

- TxtIndex_***
Tạm đoán là trên Form có TextBox có tên là TxtIndex. Làm tương tự

- TxtMaDM_Change
Tạm đoán là trên Form có TextBox có tên là TxtMaDM. Làm tương tự

- TxtMay_***
Tạm đoán là trên Form có TextBox có tên là TxtMay. Làm tương tự

- TxtMDG_Change
Tạm đoán là trên Form có TextBox có tên là TxtMDG. Làm tương tự
...
Tương tự khi thấy TxtNC_***,TxtTenCV_Change, TxtVL_***

Nếu bây giờ chạy code mà thấy lỗi thì xem đó là lỗi gì. Vd. chỗ lỗi đó có tham chiếu tới 1 control nào đó mà chưa có trên Form. Thì đặt control đó trên Form thôi.

Đây mới chỉ là thả những control cần có vào Form. Cứ hãy thế, còn chuyện sắp xếp cho lôgíc, chuẩn, đẹp thì làm sau.

4. Từ tập tin FRM cũng chỉ biết cần có những control nào, còn chuyện "người ta" đã thay đổi các thuộc tính của chúng trong design time như thế nào thì chịu. Đôi khi có thể "đoán" được. Vd. trong code có đoạn truy cập tới cột 5 (cột có chỉ số 4) trong ListBox thì ListBox đó phải có ít nhất 5 cột - ColumnCount = 5

Nói chung nếu tải tập tin của ai đó vd. từ mạng về mà đã làm mất hoặc không tải về tập tin FRX thì bây giờ rất mất công. Nhưng muốn người khác tìm lỗi thì trước hết phải làm những cái tôi hướng dẫn. Không ai làm hộ những cái mà bạn tự làm được.

Theo như bạn nói ở chủ đề khác thì mình đã làm được 1 phần rồi nhưng còn lỗi ở txtindex, txt DVT và listDMCV ( lỗi ở dòng này "LblTongSo.Caption = "Trong tôÒng sôì: " & .ListCount & " muòc") nhờ bạn xem giúp. Xem them code nằm trong file formDonGia

batman1 · 15/1/18

1. Xóa hết code trong sheet ̃7 (PTVT)

2.
Cái này tôi cũng đã viết rồi

Nếu bây giờ chạy code mà thấy lỗi thì xem đó là lỗi gì. Vd. chỗ lỗi đó có tham chiếu tới 1 control nào đó mà chưa có trên Form. Thì đặt control đó trên Form thôi.

Đọc kỹ và làm theo thôi.

Mã:

LblTongSo.Caption = "Trong tôŇng sôě: " & .ListCount & " muňc"

cho thấy phải có Label với tên là LblTongSo. Đã có chưa? Nếu đã thả xuống Form thì phải đổi tên từ Label*** thành LblTongSo

3. Tốt nhất nên chỉ ra cụ thể nơi bị lỗi. Thậm chí liệt kê từ đầu đến cuối các thao tác để có lỗi: sau khi hiện Form thì nhập cái này, cái kia tại đây và tại kia ... thì xuất hiện lỗi ở chỗ này... Không phải ai cũng muốn test vài lần để nhìn thấy lỗi. Có những lỗi không phải lúc nào cũng xuất hiện mà tùy vào giá trị cụ thể. Không phải ai cũng muốn phân tích tỉ mỉ từng dòng code để phát hiện ra sự không bình thường.

duytmd · 15/1/18

batman1 đã viết:
1. Xóa hết code trong sheet ̃7 (PTVT)

2.
Cái này tôi cũng đã viết rồi

Đọc kỹ và làm theo thôi.

Mã:

LblTongSo.Caption = "Trong tôŇng sôě: " & .ListCount & " muňc"

cho thấy phải có Label với tên là LblTongSo. Đã có chưa? Nếu đã thả xuống Form thì phải đổi tên từ Label*** thành LblTongSo

3. Tốt nhất nên chỉ ra cụ thể nơi bị lỗi. Thậm chí liệt kê từ đầu đến cuối các thao tác để có lỗi: sau khi hiện Form thì nhập cái này, cái kia tại đây và tại kia ... thì xuất hiện lỗi ở chỗ này... Không phải ai cũng muốn test vài lần để nhìn thấy lỗi. Có những lỗi không phải lúc nào cũng xuất hiện mà tùy vào giá trị cụ thể. Không phải ai cũng muốn phân tích tỉ mỉ từng dòng code để phát hiện ra sự không bình thường.

Mình đã thêm các txtVL, TxtMay.... nói chung là userform hoạt động được nhưng xuất hiện lỗi ở "cmdThem" không thêm được công việc mới vào trong listbox.
Nếu thêm sub này vào userform bị lỗi
Private Sub CheckCmdThem()
If TxtMDG.Text <> "" And TxtTenCV.Text <> "" And TxtDVT.Text <> "" _
And TxtMaDM.Text <> "" And (TxtVL.Text <> "" Or TxtNC.Text <> "" Or TxtMay.Text <> "") Then
CmdThem.Enabled = True
Else
CmdThem.Enabled = False
End If
End Sub
Nhờ bạn xem giúp mình với nhé.

batman1 · 15/1/18

Hãy thay

Private Sub UserForm_Activate()

bằng

Private Sub UserForm_Initialize()

Lại test tiếp nhé. Chú ý là trong cùng thư mục với tập tin Excel phải có tập tin DonGia1728.mdb

Phục hồi userform từ file frm và code

Thành viên chính thức

File đính kèm

|||||||||||||

Thành viên chính thức

File đính kèm

Thành viên chính thức

File đính kèm

|||||||||||||

Thành viên chính thức

|||||||||||||

Thành viên chính thức

File đính kèm

|||||||||||||

Thành viên chính thức

Chuyên gia GPE

Thành viên chính thức

Chuyên gia GPE

Thành viên chính thức

File đính kèm

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

File đính kèm

Thành viên gạo cội

Thành viên chính thức

File đính kèm

Thành viên gạo cội

Facebook

Group