Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Tạo Form và textbox
#1
Mình muốn tạo 1 Form với nhiều textbox dạng như các bảng CD key của các phần mềm khi cài đặt.
Nghĩa là có 5-10 textbox , mỗi textbox giới hạn 5 kí tự => Cái này mình tự làm OK rồi
Mình muốn hỏi các bạn setting làm sao để mình copy 1 chuỗi kí tự tương tự như các ô đó phân biệt nhau bởi dấu - như ví dụ:
Mã:
SASDA-QKHGF-QUGDA-QQWLK-SITHS
Thì khi paste vào nó tự nhận vào mỗi ô tương ứng?
Có ai đã thử cái này chưa ạ? Mình ứng dụng vào cái khác chứ ko phải để tạo CD key nhé
Chữ ký của nguoilinh229 nguoilinh229,gia nhập Thủ Thuật Access từ 29-10 -15.
Reply
Những người đã cảm ơn
#2
(29-10-15, 09:14 AM)nguoilinh229 Đã viết: Mình muốn tạo 1 Form với nhiều textbox dạng như các bảng CD key của các phần mềm khi cài đặt.
Nghĩa là có 5-10 textbox , mỗi textbox giới hạn 5 kí tự => Cái này mình tự làm OK rồi
Mình muốn hỏi các bạn setting làm sao để mình copy 1 chuỗi kí tự tương tự như các ô đó phân biệt nhau bởi dấu - như ví dụ:
Mã:
SASDA-QKHGF-QUGDA-QQWLK-SITHS
Thì khi paste vào nó tự nhận vào mỗi ô tương ứng?
Có ai đã thử cái này chưa ạ? Mình ứng dụng vào cái khác chứ ko phải để tạo CD key nhé

Cái này dễ mà bạn.
Mình phân tích để bạn tự làm nhé
Chúng ta có 5 textbox  là textbox1, textbox2, textbox3, textbox4, textbox5. 
viết event AfterUpdate cho textbox1 dùng hàm mid để cắt các ký tự phù hợp để cập nhật giá trị cho các textbox từ 2 đến 5
Ví dụ textbox2 = Mid(textbox1, 7, 5)...textbox5 = Mid(textbox1, 25, 5)
Và cuối cùng là textbox1 = Left(textbox1, 5)
Sau khi dán CDkey vào textbox1 nó sẽ tự xử lý điền vào các textbox khác và giữ lại 5 ký tự cho nó. Cực dễ phải không bạn.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn ongke0711 , huuduy.duy , nguoilinh229
#3
Vậy mà mình cũng không nghĩ ra...hehe. Cao thủ kinh nghiệm chiến trường có khác.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tranthanhan1962
#4
Cảm ơn bạn tranthanhan1962  rất nhiều big green
Chữ ký của nguoilinh229 nguoilinh229,gia nhập Thủ Thuật Access từ 29-10 -15.
Reply
Những người đã cảm ơn
#5
Ah bạn ơi cho mình hỏi thêm. Nếu trong trường hợp copy từ các ô trong Excel tương ứng, nghĩa là không phải là 1 chuỗi và không phân cách bằng dấu - thì có cách nào copy tự nhận vào các textbox đó ko bạn ?
Chữ ký của nguoilinh229 nguoilinh229,gia nhập Thủ Thuật Access từ 29-10 -15.
Reply
Những người đã cảm ơn
#6
Bạn ơi mình thử code và không được. Nó vẫn ko tự động điền vào được, bạn có thể demo cho mình 1 2 textbox được ko?  tranthanhan1962
Chữ ký của nguoilinh229 nguoilinh229,gia nhập Thủ Thuật Access từ 29-10 -15.
Reply
Những người đã cảm ơn
#7
1/
Mã:
Private Sub textbox1_AfterUpdate()
    textbox2.Value = Mid(textbox1.Value, 7, 5)
    textbox3.Value = Mid(textbox1.Value, 13, 5)
    textbox4.Value = Mid(textbox1.Value, 19, 5) 
    textbox5.Value = Mid(textbox1.Value, 25, 5)
    textbox1.Value = Left(textbox1.Value, 5)
End Sub


2/ Để cho PRO một chút mình sẽ xử lý thêm như thế này:
Mã:
Private Sub textbox1_AfterUpdate()
    textbox2.Value = Left(Mid(textbox1.Value, 7, 5) & textbox2.Value, 5)
    textbox3.Value = Left(Mid(textbox1.Value, 13, 5) & textbox3.Value, 5)
    textbox4.Value = Left(Mid(textbox1.Value, 19, 5) & textbox4.Value, 5)
    textbox5.Value = Left(Mid(textbox1.Value, 25, 5) & textbox5.Value, 5)
    textbox1.Value = Left(textbox1.Value, 5)
End Sub


Với code 1 khi bạn điền thiếu số lượng ký tự hoặc chỉnh sửa textbox1 các textbox phía sau có thể sẽ bị rỗng, với code 2 nếu textbox nào có vị trí ký tự khi nhập giá trị textbox1 bị thiếu sẽ giữ lại các ký tự đã có. Khi đó bạn có thể chỉnh sửa textbox 1 thoải mái mà không ảnh hưởng đến ký tự đã có của các textbox phía sau.
Tất nhiên nếu muốn PRO hơn nữa bạn có thể xử lý không cho phép nhập các textbox phía sau nhiều hơn 5 ký tự hoặc khi nhập các textbox phía sau nhiều hơn 5 ký tự nó sẽ chuyển các ký tự thừa sang các textbox kế tiếp v.v và v.v...
Của bạn đây
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn k3nzyyb


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tự động hiện Form khi loading hết thời gian ChiMai 1 28 Hôm qua, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 186 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 162 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 123 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  [Help] Dòng chữ chạy trên form báo đến ngày sinh nhật tronghieu9792 1 121 20-10-16, 09:30 AM
Bài mới nhất: lamvankhanh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ