Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Tạo form Tiếp đón Bảo hiểm y tế
#1
Hôm trước có tạo một tiêu đề để hỏi mà bây giờ mình đã tìm ra được hướng giải quyết, chỉ còn rắc rối này 
Cho mình hỏi?

1. Mình có 1 table chứa Họ tên và số Bảo Hiểm Y Tế
2. Giờ tạo from Tiếp đón có nội dung (STT, Số BHYT, Họ Tên, Địa chỉ, Tuổi)

Yêu cầu: + Khi Bấm nút "thêm" thì chỉ cần nhập số BHYT, còn các ô bên cạnh thì nó sẽ tự động nổi tên, địa chỉ... của họ lên luôn?
               + Khi nhập vào ô BHYT thì nhập hết ô này nó sẽ tự động nhảy sang ô khác?

Mong mọi người giúp đở

File demon mong mọi người xem giúp
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
Sau khi xem xong demo của bạn thì tôi gợi ý như vầy:
1.  Bạn chỉ cần tạo 1 trường là số BHYT chứ nếu tạo thành 5 trường như CSDL của bạn thì rất tốn dung lượng bộ nhớ và rất khó tìm kiếm xử lý, khi load nó vào form thì ta dùng hàm cắt chuỗi để thể hiện
Theo câu hỏi của bạn thì ta sẽ tạo 10 control nhập liệu gồm:
-  1 Textbox chứa trường STT (hình như bạn lấy ID làm STT thì phải?), đặt tên là TxtSTT.
-  5 Textbox chứa trường số BHYT, ta đặt tên ta lần lượt là TxtSoBHYT1...TxtSoBHYT5
-  1  Texbox chứa kết quả là 5 Textbox số BHYT cộng lại, đặt tên là TxtSoBHYT, thuộc tính Visible=False

-  3 Textbox còn lại chứa các trường Họ tên, địa chỉ, tuổi...đạt tên là TxtHoten, TxtDiachi, TxtTuoi
Khi đặt tên cho các control nhập liệu bạn phải đặt gợi nhớ, dễ phân biệt gồm 3 từ đầu chứa tên control+tên trường dữ liệu mà nó thể hiện (Textbox thì là Txt, Combobox là Cbo, nút Option là Opt, Listbox là Lst, nút lệnh là Cmd...)
VD: Textbox chứa controlsource là STT thì đặt là TxtSoTT

Trong sự kiện AfterUpdate của TxtSoBHYT5 bạn viết mã lệnh sau:

Private Sub TxtSoBHYT_AfterUpdate()
Me.TxtSoBHYT=Me.TxtSoBHYT1 & "-" & Me.TxtSoBHYT2 & "-" & & Me.TxtSoBHYT3 & "-" & Me.TxtSoBHYT4 & "-" & Me.TxtSoBHYT5
'Theo ý tôi thì bạn nên ngăn cách các dãy mã số BHYT bằng dấu "-" cho dễ xử lý chuổi bằng hàm
Me.TxtHoten=Dlookup("hoten","tiepdon","SoBHYT='" & me.TxtSoBHYT & "'"
Me.TxtDiachi=Dlookup("diachi","tiepdon","SoBHYT='" & me.TxtSoBHYT & "'"
Me.Txttuoi=Dlookup("tuoi","tiepdon","SoBHYT='" & me.TxtSoBHYT & "'"
End Sub
Chữ ký của lmthu Xin chào, mình là lmthu, Tham gia http://thuthuataccess.com/forum từ ngày 04-07 -14.
Reply
Những người đã cảm ơn thanhtruong


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Tìm kiếm theo nhiều tiêu chí trên Form mrtoanbin 10 505 11-02-18, 04:19 PM
Bài mới nhất: haidc
  [Help] Sub Form tự động điền các record haidc 9 593 05-02-18, 04:36 PM
Bài mới nhất: haidc
  [S.O.S] Điều khiển hiển thị record trên form qua mạng LAN tranthanhan1962 16 766 21-01-18, 05:31 PM
Bài mới nhất: tranthanhan1962
Photo [Hỏi] Xin giúp đỡ tạo form đăng nhập có liên kết với form Giao diện chính Thiên Hùng 15 666 19-01-18, 10:12 AM
Bài mới nhất: Thiên Hùng
  [Help] Form không lưu định dạng sau khi chỉnh sửa toidjtjmtoi 2 174 09-01-18, 09:06 AM
Bài mới nhất: toidjtjmtoi

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ơ