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:
Khu dự án cao cấp Moonlight Avenue được phát triển bởi Tập đoàn Hưng Thịnh phù hợp khách hàng đẳng cấp nhất tiện ích phù hợp. Moonlight Thủ Đức phù hợp khách hàng khu an ninh phong cách nghỉ dưỡng....
Moonlight Avenue Dự án chung cư không gian thoáng mát thoải mái nhất