Sửa chữa, bổ sung hay nhập mới địa danh Xã - Huyện - Tỉnh vô CSDL nhân sự nhờ 3 ComboBox liên hệ nhau

[SA_DQ]

Các bạn thao tác theo file đính kèm ở #9,. . . .
Xin lỗi các bạn vì đã đưa nhầm file!

 

[SA_DQ]

Lý do tại sao Hải phòng số nhỏ hơn Hưng yên thì tôi chưa rõ.

Lý do ở đây:

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. . . . .. . . . . . . . . . . . . . . . . . . . . . . DANH MỤC VÀ MÃ SỐ

CÁC ĐƠN VỊ HÀNH CHÍNH VIỆT NAM
(Ban hành kèm theo Quyết định số 124/2004/QĐ-TTg ngày 08/07/2004 của Thủ tướng Chính phủ)​

Phần I

QUY ĐỊNH CHUNG​

1. Nguyên tắc mã hoá
Mã số đơn vị hành chính là một dãy số được quy định cho từng đơn vị theo nguyên tắc thống nhất, là số định danh duy nhất, không thay đổi, ổn định trong suốt quá trình một đơn vị hành chính tồn tại thực tế. Mã số đã cấp không được sử dụng để cấp lại cho đơn vị hành chính khác cùng cấp.
2. Cấu trúc mã số đơn vị hành chính
Mã số đơn vị hành chính gồm 10 số, được phân làm 3 cấp độc lập, mỗi cấp có mã số mở để cấp mã số mới cho đơn vị hành chính khi thay đổi. Cụ thể:
+ Cấp tỉnh được mã hoá bằng 2 chữ số từ 01 đến 99;
+ Cấp huyện được mã hoá bằng 3 chữ số từ 001 đến 999;
+ Cấp xã được mã hoá bằng 5 chữ số từ 00001 đến 99999.
3. Nguyên tắc sắp xếp đơn vị hành chính khi mã hoá
Đơn vị hành chính được xếp theo thứ tự Bắc - Nam, Tây - Đông, lấy đường ranh giới ở điểm địa đầu và có kết hợp với vùng địa lý của từng cấp làm căn cứ xác định. Trong phạm vi cả nước, thành phố Hà Nội được xếp thứ nhất, các tỉnh thành phố còn lại được xếp theo nguyên tắc trên. Trong phạm vi cấp tỉnh và cấp huyện, đơn vị hành chính có trụ sở Uỷ ban nhân dân được xếp thứ nhất, các đơn vị hành chính còn lại được xếp theo thứ tự thành thị trước, nông thôn sau, từ Bắc xuống Nam, từ Tây sang Đông.

 

[ndu96081631]

Lý do ở đây:

Ở đây mình xây dựng CSDL để mình quản lý thì quan tâm làm gì đến mấy nguyên tắc của nhà nước hả sư phụ?
Mục đích cuối cùng là quản lý hiệu quả. Chúng ta đâu có cần đưa mấy cái mã ấy cho người dùng xài chứ. Mã ta đặt, tự ta biết, vậy là được rồi
Nếu bắt buộc phải xuất ra mã của nhà nước, cùng lắm ta thêm cột mã nhà nước vào. Lúc này cột mã nhà nước chỉ là dữ liệu, không phải key quản lý trong chương trình

 

[SA_DQ]

Ở đây mình xây dựng CSDL để mình quản lý thì quan tâm làm gì đến mấy nguyên tắc của nhà nước hả sư phụ?
Mục đích cuối cùng là quản lý hiệu quả. Chúng ta đâu có cần đưa mấy cái mã ấy cho người dùng xài chứ. Mã ta đặt, tự ta biết, vậy là được rồi
Nếu bắt buộc phải xuất ra mã của nhà nước, cùng lắm ta thêm cột mã nhà nước vào. Lúc này cột mã nhà nước chỉ là dữ liệu, không phải key quản lý trong chương trình

Thời buổi này là hội nhập mà NDU!
Mà cũng fải tiếp thu để sản fẩm của mình còn được rao cho hay rao bán cho mọi người trong cộng đồng nữa chứ bộ!
Túm lại là: Muốn nhanh thì Đi 1 mình, muốn Đi xa thì fải đi với nhiều người, fải không nào?

Nói đi cũng fải nói lại: Mã tỉnh mà có 02, 04, 06. . . là dỡ tệ trong Excel, chí ít fải bắt đầu từ 10 trỡ đi.
Đề nghị lần tới sửa nghị định này Chính fủ nên có thêm kiến thức về Excel, để cái zụ 01, 03, 04,. . . ,09 này thôi đi!

 

[nguyenvantu29]

Góp vui code dựa vào file bạn như sau:

Dim cn As Object

Private Sub UserForm_Initialize()
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;;Data source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
    With CreateObject("ADODB.Recordset")
        .Open "Select distinct F1 From [PHUONG$B2:B]", cn
        vl10.Clear
        vl10.Column = .getrows
    End With
End Sub

Private Sub vl10_AfterUpdate()
    With CreateObject("ADODB.Recordset")
        .Open "Select distinct F3 From [PHUONG$B2:D] where F1='" & vl10.Text & "'", cn
        vl11.Clear
        vl11.Column = .getrows
    End With
End Sub

Private Sub vl11_AfterUpdate()
    With CreateObject("ADODB.Recordset")
        .Open "Select distinct F5 From [PHUONG$B2:F] where F1='" & vl10.Text & "' and F3='" & vl11.Text & "'", cn
        vl12.Clear
        vl12.Column = .getrows
    End With
End Sub

Bạn ơi mình làm theo cách của bạn nhưng sao mình không load dữ liệu lên được. Mong bạn giúp đở

 

[nguyenvantu29]

Có ai giúp mình load dữ liệu lên được không ạ

 

[Ngày mai trời lại sáng]

Bạn qua bên này hỏi tiếp nè

Xin giúp đỡ combobox userform trên excel

chào mọi người. Hiện tại mình đang làm 1 userform nhập liệu các trường thông tin thuộc tính. Tỉnh, Huyện, Xã, Tên công ty. mình đang gặp 2 vấn đề chưa biết cách giải quyết ra sao. 1- tựa động search như search google khi mà gõ 1 kí tự bất kì nào vào combobox thì nó sẽ list ra 1 danh sách các từ...

www.giaiphapexcel.com

 

[batman1]

Có ai giúp mình load dữ liệu lên được không ạ

Tôi đã làm hoàn chỉnh ở bài #13, có đính kèm tập tin

Combobox danh sách phụ thuộc nhau không load được trong From

Chào các anh/chị Mình đang làm Combobox quê quán theo 3 cấp và có viết code nhưng nó báo lỗi và không làm sao load được vào Form. Mong các anh/chị chỉnh giúp mình. Cảm ơn anh/chị nhiều

www.giaiphapexcel.com

 

[nguyenvantu29]

Tôi đã làm hoàn chỉnh ở bài #13, có đính kèm tập tin

Combobox danh sách phụ thuộc nhau không load được trong From

Chào các anh/chị Mình đang làm Combobox quê quán theo 3 cấp và có viết code nhưng nó báo lỗi và không làm sao load được vào Form. Mong các anh/chị chỉnh giúp mình. Cảm ơn anh/chị nhiều

www.giaiphapexcel.com

Mình có thể mặc định khi hiện form lên là tỉnh huyện xã khác được không bạn. thank bạn

 

[batman1]

Mình có thể mặc định khi hiện form lên là tỉnh huyện xã khác được không bạn. thank bạn

Ở cuối Sub nap_tinh_huyen_xa có

.ListIndex = 0

Giả sử thay dòng trên bằng

If .Name = "cbxTinh" Then
    .ListIndex = 1
Else
    .ListIndex = 0
End If

thì có nghĩa là trong ComboBox Tỉnh chọn mục thứ 2 (có chỉ số là 1) là Đà Nẵng, còn trong 2 combobox Huyện và Xã chọn mục 1 (có chỉ số là 0).

 

[nguyenvantu29]

Ở cuối Sub nap_tinh_huyen_xa có

.ListIndex = 0

Giả sử thay dòng trên bằng

If .Name = "cbxTinh" Then
    .ListIndex = 1
Else
    .ListIndex = 0
End If

thì có nghĩa là trong ComboBox Tỉnh chọn mục thứ 2 (có chỉ số là 1) là Đà Nẵng, còn trong 2 combobox Huyện và Xã chọn mục 1 (có chỉ số là 0).

Cám ơn bạn rất nhiều