• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

[Help] Cập nhật giá trị của một textbox ngay sau khi gõ một ký tự ở textbox khác.

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Help] Cập nhật giá trị của một textbox ngay sau khi gõ một ký tự ở textbox khác.
• [Help] Cập nhật giá trị của một textbox ngay sau khi gõ một ký tự ở textbox khác.

• [Help] Cập nhật giá trị của một textbox ngay sau khi gõ một ký tự ở textbox khác.

  tranthanhan1962 > 23-07-15, 07:26 AM

  Hôm trước mình viết ứng dụng sửa tên tập tin hàng loạt (mình đã post lên forum). Anh bạn của mình rất khoái. Nhưng anh đề nghị thêm là sau khi gõ 1 ký tự ở những ô như đặt tên, thêm từ vào tên thì danh sách đổi ngay lập tức sau những lần gõ phím (ngay trong khi edit text) mà không đợi đến khi textbox mất focus mới cập nhật danh sách.
  Mình đã thử xử lý bằng cách dùng 1 textbox A cập nhật giá trị cho một texbox B, bằng cách đưa các bẫy event (change, dirty, key down, key up) nhưng vẫn không được (textbox B chỉ thay đổi giá trị theo textbox A khi textbox mất focus), ngay khi sử dụng form timer thì textbox B cũng trơ trơ khi textbox chưa mất focus. Nhờ các bạn nghiên cứu thêm giúp mình điều này.

• RE: [Help] Cập nhật giá trị của một textbox ngay sau khi gõ một ký tự ở textbox khác.

  paulsteigel > 23-07-15, 01:49 PM

  (23-07-15, 07:26 AM)tranthanhan1962 Đã viết: Hôm trước mình viết ứng dụng sửa tên tập tin hàng loạt (mình đã post lên forum). Anh bạn của mình rất khoái. Nhưng anh đề nghị thêm là sau khi gõ 1 ký tự ở những ô như đặt tên, thêm từ vào tên thì danh sách đổi ngay lập tức sau những lần gõ phím (ngay trong khi edit text) mà không đợi đến khi textbox mất focus mới cập nhật danh sách.
  Mình đã thử xử lý bằng cách dùng 1 textbox A cập nhật giá trị cho một texbox B, bằng cách đưa các bẫy event (change, dirty, key down, key up) nhưng vẫn không được (textbox B chỉ thay đổi giá trị theo textbox A khi textbox mất focus), ngay khi sử dụng form timer thì textbox B cũng trơ trơ khi textbox chưa mất focus. Nhờ các bạn nghiên cứu thêm giúp mình điều này.

  
  Đây là điểm mà Access có sự khác biệt với VB. Trong VB, nếu muốn lấy giá trị một textbox khi đang soạn thì chỉ cần gọi ten.text là được. Với access có 2 cách gọi
  1. Gọi tên textbox
  2. Với thuộc tính text
  Cách thức access quản lý thuộc tính giá trị của textbox như sau:
  Update: khi giá trị của textbox thay đổi. Thời điểm xác định sự thay đổi là khi gõ Enter hoặc tab hoặc chuyển focus sang đối tượng khác
  Để lấy được giá trị đang gõ vào thì dùng đến thuộc tính Text
  
  Với trường hợp của bác, thì dùng cách này sẽ lấy được giá trị đang nhập trên textbox
  Bác phải dùng thuộc tính textA.text thì mới lấy được giá trị đang thao tác của text ạ! dùng sự kiện textchange bác nhé 
  
  Ví dụ form của bác có Text1 và Text2 thì chỉ cần đặt thủ tục này
  Private Sub Text1_Change()
      Text2 = Text1.Text
  End Sub
  
  Với SelStart, SelLengtj... ... thì người thường đặt thủ tục phức tạp hơn để sử dụng phản hồi theo nội dung gõ vào của người dùng ví dụ trong từ điển chẳng hạn để đoán text và tìm từ phù hợp.
  
  Kính thư
   có

• RE: [Help] Cập nhật giá trị của một textbox ngay sau khi gõ một ký tự ở textbox khác.

  ongke0711 > 23-07-15, 01:54 PM

  Hi anh Ân,
  
  Lúc trước em cũng có gặp một trường hợp gần giống vậy là khi gõ Họ một ô và Tên một ô thì sẽ hiển thị ngay khi gõ Họ Tên ở 1 ô khác. Lên net tìm thì cũng pakon cũng chia sẽ code như sau:
  - Dùng event On Change của textbox.
  - Và vì khi bắt cái event trong textbox thì con trỏ nó không di chuyển tới mà vẫn nằm tại ký tự vừa gõ nên khi gõ ký tự kế tiếp nó sẽ xoá ký tự cũ -> phải lưu vị trí con trỏ sau đó chạy event rồi trả con trỏ lại vị trí cuối cùng để gõ tiếp (Dùng .SelStart và .SelLenght).
  Vd: có 3 textbox: txtHo, txtTen, txtHoTen
  
  

  Mã PHP:

     Dim vitri As Variant

   vitri = Array(Me.txtHo.SelStart, Me.txtHo.SelLength)

   GopHoTen

   Me.txtHo.SetFocus
   Me.txtHo.SelStart = vitri(0)
   Me.txtHo.SelLength = vitri(1)
   
End Sub

Private Sub txtTen_Change()

   Dim vitri As Variant

   vitri = Array(Me.txtTen.SelStart, Me.txtTen.SelLength)

   GopHoTen

   Me.txtTen.SetFocus
   Me.txtTen.SelStart = vitri(0)
   Me.txtTen.SelLength = vitri(1)
   
End Sub

Private Sub GopHoTen()

   Dim Hoten As String
   
   Me.txtHo.SetFocus
   Hoten = Me.txtHo.Text

   Me.txtTen.SetFocus
   Hoten = Hoten & "_" & Me.txtTen.Text

   
   Me.txtHoTen.SetFocus
   Me.txtHoTen.Text = Hoten
   
End Sub 


  
  Demo

• RE: [Help] Cập nhật giá trị của một textbox ngay sau khi gõ một ký tự ở textbox khác.

  tranthanhan1962 > 23-07-15, 06:59 PM

  Mình đã làm được. Quá tuyệt vời. Thank bạn. 2 procedure SelStart và SelLength mình cũng có biết qua nhưng lại không nghĩ ra được phương pháp tuyệt vời này. Sau khi xử lý xong mình sẽ post lại ứng dụng đổi tên tập tin hàng loạt.
  Chúc bạn luôn thành công trong sự nghiệp
• Bài trước Bài tiếp