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:
Để đảm bảo cách dùng ngựa thái đúng cách, hiệu quả, bạn cần sử dụng theo thể trạng của mình. song song, cần ghi nhớ tần suất đã sử dụng để tránh dùng quá nhiều trong thời gian ngắn. Sức khỏe tốt:...
Nam giới nên biết: Phương pháp sử dụng thuốc ngụa thái hiệu quả