-
08-18-2009, 07:13 AM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Hiển thị thông tin từ table lên form
Chào mọi người, mình đang học access nên có nhiều điều chưa hiểu lắm. Mình đang gặp vấn đề như thế này. Mình có 1 table tên là TT_NHAP trong đó có các cột MÁV,HOTEN, NÁMINH,PHAI. Trên form mình có 1 textbox tên là txtmasv. Vấn đề là mình muốn nhập mã sinh viên vào textbox thì tất cả thông tin của sinh viên đó được hiển thị lên form. Mình đã thử nhiều cách mà chưa được, mong các cao thủ chỉ giúp nha. Cám ơn trước
View more random threads:
- Giúp sinh mã quản lý cho từng sản phẩm
- Cơ sở dữ liệu Access nhiều người người dùng
- Hỏi về kiểu dữ liệu trong access
- Tìm kiếm nhiều lựa chọn trong một TextBox
- Chuyên đề ứng dụng : Thiết kế chương trình Sổ Quỹ Tiền Mặt(Phần 2 - Query và Report)
- xuất dữ liệu ra máy in qua cổng com (sử dụng winsock)
- Lấy Ngày làm việc khi đăng nhập
- Làm cách nào khi nhập phát hiện dữ liệu đã có trong table khác
- xin hỏi cách tìm record giống nhau giữa hai table
- Cho mình hỏi về hàm Sleep với !
-
08-18-2009, 02:53 PM #2Silver member
- Ngày tham gia
- Jan 2016
- Bài viết
- 90
Ðề: Hiển thị thông tin từ table lên form
Bạn tạo các hàm như sau nhé:
'Hàm xác kiểm tra xem có tồn tại nhân viên có mã là mã bạn nhập vào ô txtmasv như sau
Function fTonTaiSV(MaSV) As Boolean
Dim db As Database, Rec As Recordset
fTonTaiSV=False
Set db = CurrentDB()
Set Rec = db.OpenRecordset("TT_NHAP", DB_OPEN_DYNASET)
If IsNull(MaSV) Then Exit Function
Rec.FindFirst "MaSV = '" & MaSV & "'"
If Not Rec.NoMatch Then fTonTaiSV= True
Rec.Close
Set db = Nothing
End Function
'Sau đó đến sự kiện afterupdate của txtmasv bạn viết như sau:
Private Sub MaDT_AfterUpdate()
Dim db As Database, Rec As Recordset
Set db = CurrentDB()
Set Rec = db.OpenRecordset("TT_NHAP", DB_OPEN_DYNASET)
If fTonTaiSV(Me.txtmasv) Then
Rec.FindFirst "MaSV = '" & MaSV & "'"
Me.txtHoten=rec!HoTen
Me.txtNamsinh=rec!NamSinh
Me.txtPhai=rec!Phai
Else
Msgbox("Ma sv khong ton tai")
End If
Rec.Close
Set Db=NoThing
End Sub
Cơ bản là như vậy. Bạn có thể tinh chỉnh thêm theo ý muốn
-
11-12-2009, 09:38 PM #3Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Hiển thị thông tin từ table lên form
Sao mình viết nó báo lỗi ở phần Rec.FindFirst "MaSV = '" & MaSV & "'" :cry7:
-----------------------------------------------------------------------------------------
nó báo data type mismatch criteria expression
ai cứu mình trả lời với :hichic:
-
11-12-2009, 10:39 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Hiển thị thông tin từ table lên form
Gửi bởi nhocmaruko20
Rec.FindFirst "MaSV = " & MaSV
Lễ cúng mưa đầu mùa (Bư brah mih rah bôk năm) là một trong những nghi lễ nông nghiệp quan trọng, thể hiện tín ngưỡng phồn thực mà đồng bào M’nông vẫn còn lưu giữ. Theo quan niệm của đồng bào, mưa...
Lễ cúng mưa đầu mùa của đồng bào M’nông