• Trang chủ click to expand contents 

  • 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://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
    [Hình: qL6SUvj.jpg]
    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