Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo Form nhập liệu thông minh
#1
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
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Reply
Những người đã cảm ơn
#2
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 IntegerShift 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 StringstrSQL As String
   If Not IsNull
(Me.txttextSearchThen
       strTextSearch 
"*" Me.txttextSearch "*"
   Else
       strTextSearch 
"*"
   End If
   strSQL "SELECT * FROM tblICD10 WHERE [diengiai] Like '" strTextSearch "'"
   Forms("frmICD10").RecordSource strSQL
   Forms
("frmICD10").Requery
End Sub 

[Hình: CTRLF.png]

Link file demo: http://www.mediafire.com/download/jfm9r3...Ctrl_F.mdb
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 thanhtruong
#3
ô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
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Reply
Những người đã cảm ơn
#4
- 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 
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 thanhtruong , tvn_hut


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 84 08-12-16, 12:48 PM
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 39 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 195 22-11-16, 09:23 AM
Bài mới nhất: jason

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ơ