• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Update nhiều record từ textbox vào table có điều kiện.

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Help] Update nhiều record từ textbox vào table có điều kiện.
• Update nhiều record từ textbox vào table có điều kiện.

• RE: Update nhiều record từ textbox vào table có điều kiện.

  bignosevinatex > 04-05-13, 04:59 PM

  Trên Form của mình số thứ tự quầy không cố định,có thể là bất kỳ TE01-100,NA100-201,NU100-200,....Và mình nhờ mọi người giúp đỡ thêm mỗi lần mình in xong thì field trên Table "IN" sẽ được xóa sạch hết để cập nhật lần in tiếp theo.Mong giúp đỡ

• RE: Update nhiều record từ textbox vào table có điều kiện.

  Xuân Thanh > 04-05-13, 05:56 PM

  1/ Hương dẫn thêm
  1a/ Quầy chỉ cần ghi TE, NU, NA...
  2a/ Ghi số TT cho hai ô textbox Từ Số(txtTuSo) Đến Số(txtDenSo)
  2/ Code cho nút IN sửa lại như sau
  

  Mã PHP:

  Private Sub cmdIn_Click()
' XoaTable IN
    DoCmd.SetWarning False
    DoCmd.RunSQL "Delete * From IN"
    DoCmd.SetWarning True
'Cập nhật vào table IN
    Dim rs As Recordet
    Set rs = CurrentDb.OpenRecordset("IN", dbOpenTable)
    Dim i As Long
    For i = Me.txtTuSo To Me.txtDenSo
        rs.AddNew
        rs!SO = Me.Quay & Right("00" & i, 3) ' Thay so 3 bang so con so muon dung sau tu TE, NA, NU...
        rs!NgayKK = Me.txtNgayKK
        rs.Update
    Next
    rs.Close
'In Tem
    Docmd.OpenReport "Tem Kiem Ke", acPreview
End Sub 


• RE: Update nhiều record từ textbox vào table có điều kiện.

  bignosevinatex > 04-05-13, 07:43 PM

  (04-05-13, 05:56 PM)Xuân Thanh Đã viết: 1/ Hương dẫn thêm
  1a/ Quầy chỉ cần ghi TE, NU, NA...
  2a/ Ghi số TT cho hai ô textbox Từ Số(txtTuSo) Đến Số(txtDenSo)
  2/ Code cho nút IN sửa lại như sau
  

  Mã PHP:

  Private Sub cmdIn_Click()
' XoaTable IN
    DoCmd.SetWarning False
    DoCmd.RunSQL "Delete * From IN"
    DoCmd.SetWarning True
'Cập nhật vào table IN
    Dim rs As Recordet
    Set rs = CurrentDb.OpenRecordset("IN", dbOpenTable)
    Dim i As Long
    For i = Me.txtTuSo To Me.txtDenSo
        rs.AddNew
        rs!SO = Me.Quay & Right("00" & i, 3) ' Thay so 3 bang so con so muon dung sau tu TE, NA, NU...
        rs!NgayKK = Me.txtNgayKK
        rs.Update
    Next
    rs.Close
'In Tem
    Docmd.OpenReport "Tem Kiem Ke", acPreview
End Sub 


  EM Cảm ơn Bác Xuân Thanh.Để e thử lại

• RE: Update nhiều record từ textbox vào table có điều kiện.

  bignosevinatex > 05-05-13, 01:27 PM

  Bác Xuân Thanh ơi! em sửa lại theo bác hướng dẫn mà chạy vẫn bị lỗi bác ah,bác làm ơn test hộ trên form của em rồi link cho em được không?vì em mới học VBA nên ko rành lắm.Hic.Cảm ơn bác nhiều.Thân mến

• RE: Update nhiều record từ textbox vào table có điều kiện.

  bignosevinatex > 05-05-13, 04:39 PM

  Private Sub cmdIn_Click()
  ' XoaTable IN
  DoCmd.SetWarnings False
  DoCmd.RunSQL "Delete * From [IN]"
  DoCmd.SetWarnings True
  'Ca^.p nha^.t vào table IN
  Dim db As Database
  Dim rs As Recordset
  Set db = CurrentDb
  Set rs = db.OpenRecordset("IN", dbopentable) 'Báo lỗi type mismatch-rs=nothing'
  Dim i As Long
  For i = Me.txttu To Me.txtden
  rs.AddNew
  rs!SO = Me.txtquay & Right("00" & i, 3) ' Thay so 3 bang so con so muon dung sau tu TE, NA, NU...
  rs!NgayKK = Me.txtngay
  rs.Update
  Next i
  rs.Close
  'In Tem
  DoCmd.OpenReport "Tem Kiem Ke", acPreview
  End Sub
  ai giúp em với.hu hu

• RE: Update nhiều record từ textbox vào table có điều kiện.

  bignosevinatex > 05-05-13, 04:41 PM

  Private Sub cmdIn_Click()
  ' XoaTable IN
  DoCmd.SetWarnings False
  DoCmd.RunSQL "Delete * From [IN]"
  DoCmd.SetWarnings True
  'Ca^.p nha^.t vào table IN
  Dim db As Database
  Dim rs As Recordset
  Set db = CurrentDb[php]
  Set rs = db.OpenRecordset("IN", dbopentable) 'Báo lỗi type mismatch-rs=nothing'
  Dim i As Long
  For i = Me.txttu To Me.txtden
  rs.AddNew
  rs!SO = Me.txtquay & Right("00" & i, 3) ' Thay so 3 bang so con so muon dung sau tu TE, NA, NU...
  rs!NgayKK = Me.txtngay
  rs.Update
  Next i
  rs.Close
  'In Tem
  DoCmd.OpenReport "Tem Kiem Ke", acPreview
  End Sub
  ai giúp em với.hu hu
  

  ---

  [code]Private Sub cmdIn_Click()
  ' XoaTable IN
  DoCmd.SetWarnings False
  DoCmd.RunSQL "Delete * From [IN]"
  DoCmd.SetWarnings True
  'Ca^.p nha^.t vào table IN
  Dim db As Database
  Dim rs As Recordset
  Set db = CurrentDb
  Set rs = db.OpenRecordset("IN", dbopentable) "nó báo lỗi type mismatch-rs=nothing"
  Dim i As Long
  For i = Me.txttu To Me.txtden
  rs.AddNew
  rs!SO = Me.txtquay & Right("00" & i, 3) ' Thay so 3 bang so con so muon dung sau tu TE, NA, NU...
  rs!NgayKK = Me.txtngay
  rs.Update
  Next i
  rs.Close
  'In Tem
  DoCmd.OpenReport "Tem Kiem Ke", acPreview
  End Sub
  các bác giúp em với

• RE: Update nhiều record từ textbox vào table có điều kiện.

  Xuân Thanh > 05-05-13, 05:19 PM

  Table IN bạn để NgayKK là Text thì báo lỗi là chăc chắn. chuyển về date/time nhé
  Thân mến

• RE: Update nhiều record từ textbox vào table có điều kiện.

  bignosevinatex > 06-05-13, 10:40 AM

  em chuyển về kiểu date mà vẫn báo lỗi bác XUân Thanh ah,bác xem giúp em với nhá.thân mến

• RE: Update nhiều record từ textbox vào table có điều kiện.

  Xuân Thanh > 06-05-13, 11:49 AM

  1/ Thêm thư viện DAO 3.6
  2/ Sừa lại nút In
  
  

  Mã PHP:

  Private Sub cmdIn_Click()
'Dinh nghia bien
    Dim i As Integer
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tblInTemKK", dbOpenTable)
'Xoa tblInTemKK
    If rs.RecordCount > 0 Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "Delete * From tblInTemKK"
        DoCmd.SetWarnings True
    End If
'Cap Nhap vao tblInTemKK
    For i = Me.txtTuSo To Me.txtDenSo
        rs.AddNew
        rs!SoTT = Me.txtQuay & "-" & Right("000" & i, 3)
        rs!NgayKK = Me.txtNgayKK
        rs.Update
    Next
    rs.Close
'Im Tem KK
    DoCmd.OpenReport "Tem Kiem Ke", acPreview
End Sub 


• RE: Update nhiều record từ textbox vào table có điều kiện.

  bignosevinatex > 06-05-13, 12:48 PM

  (06-05-13, 11:49 AM)Xuân Thanh Đã viết: 1/ Thêm thư viện DAO 3.6
  2/ Sừa lại nút In
  
  

  Mã PHP:

  Private Sub cmdIn_Click()
'Dinh nghia bien
    Dim i As Integer
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tblInTemKK", dbOpenTable)
'Xoa tblInTemKK
    If rs.RecordCount > 0 Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "Delete * From tblInTemKK"
        DoCmd.SetWarnings True
    End If
'Cap Nhap vao tblInTemKK
    For i = Me.txtTuSo To Me.txtDenSo
        rs.AddNew
        rs!SoTT = Me.txtQuay & "-" & Right("000" & i, 3)
        rs!NgayKK = Me.txtNgayKK
        rs.Update
    Next
    rs.Close
'Im Tem KK
    DoCmd.OpenReport "Tem Kiem Ke", acPreview
End Sub 


  em cảm ơn bác nhiều,may có bác mà em hiểu ra nhiều điếu VBA,em đã làm được rồi.Bác là chú thỏ còn em là con rùa,nhờ những người nhiệt tình như bác những con rùa chúng em mới bắt kịp được.1 Lần nữa cảm ơn bác,hy vọng lại được bác giúp đỡ
• Bài trước Bài tiếp