Đá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ỏi] Refresh Form và tiếp tục hoạt động Godspear 2 85 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
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
  Query hiện lên trên form? feeling 4 167 09-11-16, 09:49 PM
Bài mới nhất: toancvp

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ơ