Tùy chọn
Lưu dữ liệu từ query lên table
- Lưu dữ liệu từ query lên table
-
Lưu dữ liệu từ query lên table
thanhquyt > 25-08-15, 11:59 PM
Hi mọi người
mình có 1 filed dữ liệu ở query như hình.Giờ mình muốn lưu nó lên trường maso trên table được không
Thank
![[Hình: qL6SUvj.jpg]](http://i.imgur.com/qL6SUvj.jpg)
http://www.mediafire.com/download/ka67wm...ab/STT.rar -
RE: Lưu dữ liệu từ query lên table
thucgia > 26-08-15, 10:26 PM
(25-08-15, 11:59 PM)thanhquyt Đã viết: Hi mọi người
mình có 1 filed dữ liệu ở query như hình.Giờ mình muốn lưu nó lên trường maso trên table được không
Thank
http://www.mediafire.com/download/ka67wm...ab/STT.rar
Làm thế này nha bạn.
Mã:Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim st As String
Dim i As Integer
i = 1
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
rs.MoveFirst
Do While Not rs.EOF
st = ""
st = st & Day(Now) & Month(Now) & i
rs.Edit
rs!maso = CLng(st)
rs.Update
i = i + 1
rs.MoveNext
Loop
Set rs = Nothing
End Sub