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

Tạo Form nhập liệu thông minh

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Tạo Form nhập liệu thông minh
• Tạo Form nhập liệu thông minh

• Tạo Form nhập liệu thông minh

  thanhtruong > 18-05-16, 05:20 PM

  Không biết tiêu đề vậy có bị xem là sai phạm không nữa
  
  Mình có vấn đề này mong mọi người tham khảo giúp giùm?
  
  xem giùm hình tại đây, vì mình không úp được ảnh
  
  file demon mong mọi người xem giúm
  
  Khi bấm dấu hỏi “?” vào ô chỉ định và nhấn enter thì nó sẽ hiện lên bản table “ICD 10”, tại table ICD10 bấm Ctrl + F thì nó hiện lên mục tìm kiếm, sau khi tìm được nó sẽ hiển thị tại ô chỉ định với Chỉ định = diengiai, mã ICD - 10 = mabenh
  
  Giống như 3 hình này của 1 phần mềm em tham khảo được 
  
  hình 1
  hình 2
  hình 3

• RE: Tạo Form nhập liệu thông minh

  ongke0711 > 19-05-16, 01:04 AM

  Cái này cũng là một dạng Form tìm kiếm. Có nhiều bài trên diễn đàn về tìm kếm rồi đấy, bạn tham khảo thêm.
  Riêng bài của bạn thì nó có kết hợp chút với việc bắt KeyCode CTRL + F để hiện form của mình.
  
  - Tạo form dạng Datasheet để hiển thị table ICD 10 (không phải hiện table như bạn nói).
  - Ở form này khi bấm CTRL+F sẽ hiện form FIND. 
  - Double click vô bất kỳ record nào sẽ gán trị đó vô frmKhamBenh.
  - Code cho form:
  

  Mã PHP:

  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If (KeyCode = vbKeyF) And (Shift And acCtrlMask) > 0 Then
   DoCmd.OpenForm "frmFind", acNormal
 End If
End Sub 


  
  - Form FIND: có 1 textbox nhập thông tin tìm kiếm có Name là txtTextSearch. Code như bên dưới.
  
  

  Mã PHP:

  Private Sub txtTextSearch_Enter()
   Dim strTextSearch As String, strSQL As String
   If Not IsNull(Me.txttextSearch) Then
       strTextSearch = "*" & Me.txttextSearch & "*"
   Else
       strTextSearch = "*"
   End If
   strSQL = "SELECT * FROM tblICD10 WHERE [diengiai] Like '" & strTextSearch & "'"
   Forms("frmICD10").RecordSource = strSQL
   Forms("frmICD10").Requery
End Sub 


  
  
  
  Link file demo: http://www.mediafire.com/download/jfm9r3...Ctrl_F.mdb

• RE: Tạo Form nhập liệu thông minh

  thanhtruong > 19-05-16, 11:21 AM

  ôi! thật là hấp dẫn, hay ở chổ là cái form FIND, theo cách tạo form này ta làm cho phần mềm của mình đẹp hơn với các màu khác nhau mà không bắt buộc là màu xanh của máy tính
  
  Nhưng  mình muốn khi form FIND hiện lên, đến lúc tắt đi thì cần nhấn phím Esc là được, chứ không cần bấm vào dấu X

• RE: Tạo Form nhập liệu thông minh

  ongke0711 > 19-05-16, 01:25 PM

  - Set Key Preview: Yes (cho frmFind).
  - Ở sự kiện Form Key Press:
  
  

  Mã PHP:

  Private Sub Form_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyEscape Then
     DoCmd.Close acForm, "frmFind"
  End If
End Sub 

• Bài trước Bài tiếp