honglv157 > 13-08-15, 12:50 PM
paulsteigel > 13-08-15, 01:47 PM
(13-08-15, 12:50 PM)honglv157 Đã viết: mình không hiểu hướng dẫn của bạn, vì mình mới tập acess. 1 hộp để chọn giảng viên và 1 hộp để chọn mã lớp là ntn bạn.bạn có thể demo cho mình được ko
http://www.mediafire.com/download/d6bqbqdlldb37ry/A.mdb
Private Sub cmdAddForms_Click()
If Nz(txtsophieu, 0) = 0 Or Nz(lsGiangvien, 0) = 0 Or Nz(cbLophoc, 0) = 0 Or Nz(cbMonhoc, 0) = 0 Then
MsgBox ("Ban chua chon ten giang vien hoac cai gi gi do")
Exit Sub
End If
' Cac thong tin tren khong trong lam tiep nao
Dim i As Long, SqlStr As String, FormNum As Long
FormNum = Val(txtsophieu)
For i = 1 To FormNum
' danh so thu tu phieu tang dan
SqlStr = "INSER___T INTO DGGV(MaGV, MaLop, MaMon, Sophieu) " & _
"Values('" & lsGiangvien & "', '" & cbLophoc & "', '" & cbMonhoc & "', " & i & ");"
SqlStr=replace(SqlStr,"___","")
CurrentDb.Execute SqlStr
Next
DGGV.Form.Requery
End Subhonglv157 > 13-08-15, 02:05 PM
honglv157 > 13-08-15, 02:56 PM
paulsteigel > 13-08-15, 03:12 PM
(13-08-15, 02:56 PM)honglv157 Đã viết: ....Bạn là chúa lười...
Private Sub cmdAddForms_Click()
If Nz(txtsophieu, 0) = 0 Or Nz(lsGiangvien, 0) = 0 Or Nz(cbLophoc, 0) = 0 Or Nz(cbMonhoc, 0) = 0 Then
MsgBox ("Ban chua chon ten giang vien hoac cai gi gi do")
Exit Sub
End If
' Cac thong tin tren khong trong lam tiep nao
Dim i As Long, SqlStr As String, FormNum As Long, StrDefault_Fld As String, StrDefault_Fld_Value As String
FormNum = Val(txtsophieu)
For i = 1 To 10
StrDefault_Fld = StrDefault_Fld & ", Tieuchi" & i
StrDefault_Fld_Value = StrDefault_Fld_Value & ", 'T" & ChrW(7888) & "T'"
''T" & ChrW(7888) & "T'" là chữ Tốt, tất cả mặc định sẽ là tốt
Next
For i = 1 To FormNum
' danh so thu tu phieu tang dan
SqlStr = "INSER___T INTO DGGV(MaGV, MaLop, MaMon, Sophieu" & StrDefault_Fld & _
"Values('" & lsGiangvien & "', '" & cbLophoc & "', '" & cbMonhoc & "', " & i & StrDefault_Fld_Value & ");"
SqlStr = Replace(SqlStr, "___", "")
CurrentDb.Execute SqlStr
Next
DGGV.Form.Requery
End Subhonglv157 > 13-08-15, 03:21 PM
paulsteigel > 13-08-15, 03:40 PM
(13-08-15, 03:21 PM)honglv157 Đã viết: thế bạn là hiểu nhầm mình rùi. Không phải vì mình lười, mà làm như vậy tiện trong các trường hợp có các số phiếu giống nhau. Ví dụ lớp học có 40 phiếu thì có 20 phiếu học viên tích đánh giá giống hệt nhau. Thì liệu có mất thời gian để ngồi nhập 20 phiếu đó vào không hay chỉ cần gõ 20 thì sẽ nhân bản được 20 bản giống hệt nhau. Còn những phiếu khác nhau thì phải tự ngồi để gõ lại chứ.^-^
honglv157 > 13-08-15, 04:00 PM
paulsteigel > 13-08-15, 04:16 PM
(13-08-15, 04:00 PM)honglv157 Đã viết: việc em nhờ anh nhân bản code là để phục vụ cho việc viết chương trình quản lý dữ liệu em đang viết như đã gửi link. Bên em tổ chức các Chức các lớp dành cho cán bộ trong hệ thống agribank tham gia học.Và khi kết thúc chương trình, các học viên sẽ đánh giá về giảng viên giảng dạy mình thông qua các phiếu. Trước kia CBQL lớp sẽ tự đếm tay các phiếu, phân loại các phiếu có tiêu chí đánh giá giống nhau rồi đưa vào exelc, những phiếu khác nhau thì sẽ đếm và tự tính thủ công. Điều này dễ gây nhầm lẫn. Chính vì vậy em mới dùng acess để thực hiện. Không phải em lười hay ngại hay ẩu mà muốn làm vậy cho nhanh mà như thế đảm bảo công việc được thực hiên bằng máy, nhanh chóng và chính xác hơn thôi ah.Bạn có thể tham khảo qua một ứng dụng đánh giá giảng viên tôi viết từ 2002
Em cảm ơn gợi ý của anh
honglv157 > 13-08-15, 04:32 PM