Mã:
Private Sub Command22_Click()
Dim st1 As String, st2 As String
st1 = " SELECT T_Sinhvien.MASV, T_Sinhvien.Holot, T_Sinhvien.TenSV, nghiemtrang([holot]) " & " " & " nghiemtrang([tensv]) AS hovaten, T_Sinhvien.MaLop, T_Sinhvien.Ngaysinh, T_Sinhvien.Gioitinh," & _
"T_Sinhvien.Khoahoc, T_Sinhvien.SoCMND, T_Sinhvien.Diachi," & _
"T_Sinhvien.Mahuyen, T_Sinhvien.Matinh, T_Sinhvien.Madantoc, T_Sinhvien.DienthoaiSV, T_Sinhvien.Email, " & _
"T_Lop.Tenlop , T_huyen.Tenhuyen, T_Khoa.Tenkhoa, T_Tinh.Tentinh " & _
"FROM (T_Khoa INNER JOIN T_Lop ON T_Khoa.[Makhoa] = T_Lop.[Makhoa]) INNER JOIN (T_Tinh INNER JOIN (T_huyen INNER JOIN T_Sinhvien ON T_huyen.[Mahuyen] = T_Sinhvien.[Mahuyen]) ON T_Tinh.[Matinh] = T_Sinhvien.[Matinh]) ON T_Lop.[MaLop] = T_Sinhvien.[MaLop]"
Select Case FindOptions
Case 1
If IIf(IsNull(Txtmasv), "", Txtmasv) = "" Then
MsgBox " Ma so sinh vien chua nhap"
Exit Sub
End If
st2 = "where T_sinhvien.masv='" & Txtmasv & "'"
Case 2
If IIf(IsNull(TxttenSV), "", TxttenSV) = "" Then
MsgBox " ten sinh vien chua nhap"
Exit Sub
End If
st2 = "where (((nghiemtrang([holot]) " & " " & " nghiemtrang([tensv])) like '*" & TxttenSV & "*'"
Case 3
If IsNull(CbomaLop) Then
MsgBox " chua chon Lop ma Ku"
Exit Sub
End If
st2 = "where T_sinhvien.malop ='" & CbomaLop & "'"
Case 4
If IsNull(CboMahuyen) Then
MsgBox " chua chon Huyen ma Ku"
Exit Sub
End If
st2 = "where T_sinhvien.mahuyen ='" & CboMahuyen & "'"
Case 5
If IsNull(Cbomatinh) Then
MsgBox " chua chon tinh ma Ku"
Exit Sub
End If
st2 = "where T_sinhvien.matinh ='" & Cbomatinh & "'"
End Select
st1 = st1 & st2
With SubCT
If .SourceObject = "" Then
.SourceObject = "F_KQTKSinhvien"
End If
.Form.RecordSource = st1
End With
End Sub
khi thực hiện tìm kiếm thì báo lỗi ngay chỗ xem ảnh :
do mình nối 1 khoảng trắng giữa họ lót và tên nên bị lỗi mà không biết phải làm thế nào? nhờ các bác fix dùm, em đang cần gấp. thanks
View more random threads:
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng Đá mỹ nghệ Tài Tuệ là đơn vị hàng đầu trong lĩnh vực điêu khắc chế tác các sản phẩm, công trình tâm linh bằng đá tại làng đá truyền...
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng năm 2024