Hiển thị thông tin từ table lên form

[quocbaonh08]

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:

• 1 bài tập cơ bản của Access mà mình ko hiểu...
• Giúp em làm VBA Access bằng form đăng ký
• Liên kết hai Combo boxes với Subform
• Tổng quát về phần mềm quản lý nhập - xuất - tồn
• A/c giúp e hàm Do while với.
• Em có hai thắc mắc mong được anh chị giúp đỡ
• Giúp mua sách của tác giả Ông Văn Thông
• Giúp mình code tạo From với access
• Làm sao để ghi dữ liệu vào record?
• [Hỏi] Biểu tượng hình tam giác màu vàng có dấu chấm thang trong macro !!!

[jutom123]

Ðề: 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

[jpsakura98]

Ðề: 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:

[hungcong88]

Ðề: 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:

masv không phải là dạng chuỗi, do vậy có thể chuyển thành:

Rec.FindFirst "MaSV = " & MaSV