Giúp đỡ form nhập liệu bằng VBA (1 người xem)

[shinenvh]

Mình tạo 1 form như thế này 1

Private Sub btninsert_Click()
    Dim dong_cuoi As Long
    dong_cuoi = Sheet1.Range("A10000").End(xlUp).Row + 1
    With Sheet1
        .Range("A" & dong_cuoi) = txtNumber.Text
        .Range("B" & dong_cuoi) = txtKG.Text
    End With
End Sub

Tuy nhiên không biết cách nào để làm các yêu cầu sau :
1 / Nhấn enter lần 1 con trỏ chuột sẽ nhảy xuống ô trọng lượng , nhấn enter lần 2 con trỏ chuột nhảy ô lưu và dữ liệu được lưu lại
2/ Sau khi lưu trỏ chuột sẽ nhảy về ô số hiệu và dữ liệu cũ trong form đã nhập sẽ bị xóa đi chứ không lưu như trên , phải mất công xóa thủ công.
Các bro chỉ giáo em ạ !

 

[Nguyễn Hồng Quang]

Mình tạo 1 form như thế này 1
View attachment 196654

Private Sub btninsert_Click()
    Dim dong_cuoi As Long
    dong_cuoi = Sheet1.Range("A10000").End(xlUp).Row + 1
    With Sheet1
        .Range("A" & dong_cuoi) = txtNumber.Text
        .Range("B" & dong_cuoi) = txtKG.Text
    End With
End Sub

Tuy nhiên không biết cách nào để làm các yêu cầu sau :
1 / Nhấn enter lần 1 con trỏ chuột sẽ nhảy xuống ô trọng lượng , nhấn enter lần 2 con trỏ chuột nhảy ô lưu và dữ liệu được lưu lại
2/ Sau khi lưu trỏ chuột sẽ nhảy về ô số hiệu và dữ liệu cũ trong form đã nhập sẽ bị xóa đi chứ không lưu như trên , phải mất công xóa thủ công.
Các bro chỉ giáo em ạ !

Bạn gửi file lên đây nhé

 

[shinenvh]

Bạn gửi file lên đây nhé

Xem giúp mình , cảm ơn bạn !

 

[darknightno007]

Mình tạo 1 form như thế này 1
View attachment 196654

Private Sub btninsert_Click()
    Dim dong_cuoi As Long
    dong_cuoi = Sheet1.Range("A10000").End(xlUp).Row + 1
    With Sheet1
        .Range("A" & dong_cuoi) = txtNumber.Text
        .Range("B" & dong_cuoi) = txtKG.Text
    End With
End Sub

Tuy nhiên không biết cách nào để làm các yêu cầu sau :
1 / Nhấn enter lần 1 con trỏ chuột sẽ nhảy xuống ô trọng lượng , nhấn enter lần 2 con trỏ chuột nhảy ô lưu và dữ liệu được lưu lại
2/ Sau khi lưu trỏ chuột sẽ nhảy về ô số hiệu và dữ liệu cũ trong form đã nhập sẽ bị xóa đi chứ không lưu như trên , phải mất công xóa thủ công.
Các bro chỉ giáo em ạ !

bạn dùng setfocus, hình như event keydown thì phải, bạn tìm mã của phim Enter.

 

[shinenvh]

bạn dùng setfocus, hình như event keydown thì phải, bạn tìm mã của phim Enter.

Mình mới học

 

[Nguyễn Hồng Quang]

Xem giúp mình , cảm ơn bạn !

Bạn xem thử nhé

 

[shinenvh]

Bạn xem thử nhé

Liệu có thể loại bỏ lần enter thứ 3 không bạn ,nhập kg xong nhấn enter là lưu luôn chứ k nhảy xuống nút lưu !

 

[NguyenthiH]

Bạn xem thử File.

 

[Nguyễn Hồng Quang]

Liệu có thể loại bỏ lần enter thứ 3 không bạn ,nhập kg xong nhấn enter là lưu luôn chứ k nhảy xuống nút lưu !

Vậy thì nút lưu để lại hay bỏ

 

[SA_DQ]

Liệu có thể loại bỏ lần enter thứ 3 không bạn ,nhập kg xong nhấn enter là lưu luôn chứ k nhảy xuống nút lưu !

Tự động quá, có khi CSDL của bạn thành đống rác lúc nào không hay!