Userform báo lỗi: mỗi khi click vào listbox

[phan van tai]

Nhờ các bác gúp em với ạ. Số là em có tạo cái file quản lí công đoàn, nhưng ở cái userform 2 (quản lí con đoàn viên) thì nó cứ báo lỗi mỗi khi em click cào listbox, em tìm mà không biết bị lỗi gì
Nhờ các bác cao nhân giúp em với ạk

 

[chisinhvnn]

Nhờ các bác gúp em với ạ. Số là em có tạo cái file quản lí công đoàn, nhưng ở cái userform 2 (quản lí con đoàn viên) thì nó cứ báo lỗi mỗi khi em click cào listbox, em tìm mà không biết bị lỗi gì
Nhờ các bác cao nhân giúp em với ạk

View attachment 289675

Thử

Private Sub ListBox1_Click()

 Dim i As Long
 
i = ListBox1.ListIndex
With UserForm2
    .TextBox22.Value = .ListBox1.List(i, 1)
    .TextBox23.Value = .ListBox1.List(i, 2)
    .ComboBox20.Value = .ListBox1.List(i, 3)
    .TextBox24.Value = .ListBox1.List(i, 5)
    .TextBox25.Value = .ListBox1.List(i, 7)
    .TextBox26.Value = .ListBox1.List(i, 8)
  End With

End Sub

 

[phan van tai]

Thử

Private Sub ListBox1_Click()

 Dim i As Long
 
i = ListBox1.ListIndex
With UserForm2
    .TextBox22.Value = .ListBox1.List(i, 1)
    .TextBox23.Value = .ListBox1.List(i, 2)
    .ComboBox20.Value = .ListBox1.List(i, 3)
    .TextBox24.Value = .ListBox1.List(i, 5)
    .TextBox25.Value = .ListBox1.List(i, 7)
    .TextBox26.Value = .ListBox1.List(i, 8)
  End With

End Sub

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

Nhưng nếu mình muốn chỉ cần hiện dữ liệu từ listbox lên textbox thôi, danh sách dưới listbox không bị biến mất có được không ạk
vì khi mình click vào trường thông tin, thì dữ liệu trong listbox bị mất

 

[SA_DQ]

Đầu tiên mình muốn nói về chuyện xây dựng CSDL;
Đó là danh sách (DS) các cháu, con CNLĐ
Theo mình phải thêm mã phụ huynh vô DS này, như

STT

Họ Tên

Sinh ngày

Giới tính

Số định danh

Mã FH

Cư ngụ

27

Đinh Hoàng Bách

1/27/2023

Nam

10001

24

Lâm Tấn Phát

21/01/2023

Nam

10002

21

Nguyễn Quang Khải

17/11/2022

Nam

10003

18

Ngô Tấn Đức

02/03/2022

Nam

10004

15

Lữ Minh Khôi

11/10/2020

Nam

10005

12

Trần Lê Quỳnh Châu

22/05/2020

Nữ

10006

9

Trần Nhã Mai

01/04/2019

Nữ

10007

6

Trần Lê Vũ Phong

23/10/2016

Nam

10008

3

Trương Minh Tuấn

19/02/2017

Nam

10009

6

Nguyễn Đàm Hữu Phước

04/11/2016

Nam

10010

9

Nguyễn Phước Nhân

08/10/2016

Nam

10010

12

Lâm Chí Hào

27/04/2014

Nam

10010

15

Pham Bình An

06/06/2011

Nam

10013

18

Lân Văn Trọng

08/06/2007

Nam

10016

21

Nguyễn Thanh Bình

06/09/2006

Nam

10018

24

Phạm Như Mẫn

10/05/2005

Nữ

10020

27

Võ Trần Trung Kiên

10/18/2019

Nam

10024

30

Nguyễn Phương Nam

12/17/2011

Nam

10025

33

Nguyễn Khải Nguyên

12/30/2011

Nam

10026

36

Vũ Hoàng Nhã Linh

1/23/2023

Nữ

10027

39

Nguyễn Đình Minh Anh

12/10/2019

Nam

10029

42

Lê Minh Trí​

31/05/2018​

Nam​

10030

45

Lê Minh Nguyệt​

06/03/2022​

Nữ​

10030​

48

trần thị tủn​

2002​

Nữ​

10030​

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

Nhưng nếu mình muốn chỉ cần hiện dữ liệu từ listbox lên textbox thôi, danh sách dưới listbox không bị biến mất có được không ạk
vì khi mình click vào trường thông tin, thì dữ liệu trong listbox bị mất

Tham khảo file này đính kèm

 

[ngocbaovu]

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

Nhưng nếu mình muốn chỉ cần hiện dữ liệu từ listbox lên textbox thôi, danh sách dưới listbox không bị biến mất có được không ạk
vì khi mình click vào trường thông tin, thì dữ liệu trong listbox bị mất

Trong code userform2 của bạn có sự kiện TextBox25_Change(), cuối code có đoạn ListBox1 = "" ListBox1.Clear. Bạn bỏ đoạn này đi xem.

 

[phan van tai]

Đầu tiên mình muốn nói về chuyện xây dựng CSDL;
Đó là danh sách (DS) các cháu, con CNLĐ
Theo mình phải thêm mã phụ huynh vô DS này, như

STT

Họ Tên

Sinh ngày

Giới tính

Số định danh

Mã FH

Cư ngụ

27

Đinh Hoàng Bách

1/27/2023

Nam

10001

24

Lâm Tấn Phát

21/01/2023

Nam

10002

21

Nguyễn Quang Khải

17/11/2022

Nam

10003

18

Ngô Tấn Đức

02/03/2022

Nam

10004

15

Lữ Minh Khôi

11/10/2020

Nam

10005

12

Trần Lê Quỳnh Châu

22/05/2020

Nữ

10006

9

Trần Nhã Mai

01/04/2019

Nữ

10007

6

Trần Lê Vũ Phong

23/10/2016

Nam

10008

3

Trương Minh Tuấn

19/02/2017

Nam

10009

6

Nguyễn Đàm Hữu Phước

04/11/2016

Nam

10010

9

Nguyễn Phước Nhân

08/10/2016

Nam

10010

12

Lâm Chí Hào

27/04/2014

Nam

10010

15

Pham Bình An

06/06/2011

Nam

10013

18

Lân Văn Trọng

08/06/2007

Nam

10016

21

Nguyễn Thanh Bình

06/09/2006

Nam

10018

24

Phạm Như Mẫn

10/05/2005

Nữ

10020

27

Võ Trần Trung Kiên

10/18/2019

Nam

10024

30

Nguyễn Phương Nam

12/17/2011

Nam

10025

33

Nguyễn Khải Nguyên

12/30/2011

Nam

10026

36

Vũ Hoàng Nhã Linh

1/23/2023

Nữ

10027

39

Nguyễn Đình Minh Anh

12/10/2019

Nam

10029

42

Lê Minh Trí​

31/05/2018​

Nam​

10030

45

Lê Minh Nguyệt​

06/03/2022​

Nữ​

10030​

48

trần thị tủn​

2002​

Nữ​

10030​

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

Tham khảo file này đính kèm

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

Bài đã được tự động gộp: 11/5/23

Trong code userform2 của bạn có sự kiện TextBox25_Change(), cuối code có đoạn ListBox1 = "" ListBox1.Clear. Bạn bỏ đoạn này đi xem.

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