honglv157 > 12-08-15, 04:05 PM
Minh Tiên > 12-08-15, 05:22 PM
honglv157 > 12-08-15, 10:40 PM
maidinhdan > 12-08-15, 11:26 PM
(12-08-15, 10:40 PM)honglv157 Đã viết: Bạn Minhtien cho mình hỏi chút là Demo bạn gửi cho mình, mình không hiểu cho lắm. Sự kiện gắn vào txt so phieu, nhung khi mình nhập các thông tin vào họ, tên, điạ chỉ và nhập số phiếu là 2 mà ko thấy form tự nhân bản record. Bạn chỉ giúp cách sử dụng demo với nhé.Thanks bạn rất nhiều
honglv157 > 13-08-15, 05:23 AM
honglv157 > 13-08-15, 05:45 AM
honglv157 > 13-08-15, 10:08 AM
paulsteigel > 13-08-15, 10:32 AM
(13-08-15, 10:08 AM)honglv157 Đã viết: Nhờ mọi người nhiệt tình giúp đỡ vì mình đang cần gấp.ThanksOption Compare Database
Private Sub Sophieu_AfterUpdate()
Dim rs as New ADODB.Recordset, i as long
Rs.Open "Select MAGV,MALOP,MAMON,Tieuchi1,Tieuchi2,Tieuchi3,Tieuchi4,Tieuchi5,Tieuchi6,Tieuchi7,Tieuchi8,Tieuchi9,Tieuchi10 From [DGGV] Where [Sophieu=]" & nz(Sophieu,0") & ";",CurrentProject.Connection
For i=0 to rs.fields.count
me.controls(rs.fields(i).name)=iif(rs.Eof,"",nz(rs.fields(i),""))
next
rs.close
End Subhonglv157 > 13-08-15, 11:41 AM
paulsteigel > 13-08-15, 11:55 AM
(13-08-15, 11:41 AM)honglv157 Đã viết: ví dụ ở record 1:
Magv malop mamon sophieu tieuchi1 tieuchi2 tiieuchi3 tieuchi4 Tiêuchi5
Gv001 cbm13-01 MM01 TỐT KHÁ TỐT tỐT tỐT
mình nhập 3 vào số phiếu thì sẽ có kết quả như thế này:
Magv malop mamon sophieu tieuchi1 tieuchi2 tiieuchi3 tieuchi4 Tiêuchi5
Gv001 cbm13-01 MM01 3 TỐT KHÁ TỐT TỐT TtỐT
Gv001 cbm13-01 MM01 3 TỐT KHÁ TỐT TỐT TỐT
Gv001 cbm13-01 MM01 3 TỐT KHÁ TỐT TỐT TỐT
Private Sub ThemPhieu_Click()
if nz(sophieu,0) =0 or nz(MaGV,0)=0 or nz(MaLop,0)=0 or nz(Mamon,0)=0 then
msgbox ("Ban chua chon ten giang vien hoac cai gi gi do")
Exit sub
end if
Dim i as long, SqlStr as string
For i=1 to sophieu
SqlStr="INSER__T into DGGV(MaGV,MaLop,MaMon,Sophieu) Values('" & magv & "','" & Malop & "','" & Mamon & "'," & Sophieu)
currentdb.execute SqlStr
next
End Sub