toanle > 08-12-16, 02:12 AM
toanle > 08-12-16, 10:09 AM
ongke0711 > 08-12-16, 10:23 AM
toanle > 08-12-16, 11:21 AM
(08-12-16, 10:23 AM)ongke0711 Đã viết: Bạn làm hàm chi cho phức tạp vậy. Đây chỉ là lọc giá trị combobox từ 1 combobox khác thôi. Trên diễn dàn có nhiều bài về vụ này.Thanks a!
Tôi đã xem file của bạn. Bạn muốn hiển thị nhiều Department mà bạn chỉ dùng textbox thì làm sao nó hiển thị đây. Muốn hiển thị nhiều dòng để chọn thì chỉ dùng Combobox hoặc Listbox.
- Để lấy nguồn (Row Source) cho combobox Transmittal No, bạn không cần tạo table tbl3 để lấy mã [TransmittalNo]. Bạn chỉ cần dùng Total Query từ table tbl2 là được rồi.
—————————————————————
SELECT tbl2.[Transmittal no]
FROM tbl2
GROUP BY tbl2.[Transmittal no];
—————————————————————
- Tạo combobox Dept có Row Source là:
—————————————————————
SELECT tbl2.[Transmittal no], tbl1.Department
FROM tbl1 INNER JOIN tbl2 ON tbl1.Doc_Code = tbl2.Doc_code
GROUP BY tbl2.[Transmittal no], tbl1.Department
HAVING (((tbl2.[Transmittal no])=[Forms]![Form1]![TênComboTransmittalNo]));
—————————————————————
- Ở sự kiện AfterUpdate của combobox TransmitalNo, bạn sẽ Requery cái combox Dept.
Me.ComboxDept.Requery
ongke0711 > 08-12-16, 01:17 PM
-----------------------------------------------------
Public Function GetDept(Trans As String)
Dim rs As DAO.Recordset
Dim sql As String
"Câu lệnh SQL của bạn (vì lỗi bảo mật nên ko copy lên đây được) "
Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapShot)
If rs.RecordCount > 0 Then
GetDept = rs.Fields("Department").Value
Else
GetDept = ""
End If
End Function
-------------------------------------------------------------
Private Sub Combo11_AfterUpdate()
Me.Text13 = GetDept(Me.Combo11)
End Sub