Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Hỏi về cách tạo và update nhanh record mới vào CSDL khi recordsource là query
#1
Mình làm chương trình quản lý thiết bị có một bảng tblThietbi chứa dữ liệu, 2 form như sau:
[Hình: 002.jpg]
Form2 này là form lọc dữ liệu theo các tham số từ các combobox và textbox như đã thấy (bằng query qryLoc), nhấn nút "Truy nhập dữ liệu" thì sẽ hiện Form1 như sau:
[Hình: Form2.png]
Form1 này sẽ chứa toàn các record đã được lọc từ Form2, người dùng có thể chỉnh sửa dữ liệu và in luôn thông qua Report vì vậy mình để chung thuộc tính recordsource của cả 2 form là qryLoc.
Trên Form1 khi nhấn nút Copy thì chương trình sẽ sao chép ra một record mới có giá trị các Field y hệt với record hiện hành trên Form1, save vào CSDL luôn và mình có thể dùng mà in luôn. Bằng code như này:

Private Sub cmdSaochep_Click()
'On Error GoTo Err_Handler
Dim strSql As String 'SQL statement.
Dim lngID As Long 'Primary key value of the new record.

If Me.NewRecord Then
MsgBox "Select the record to duplicate."
Else
With Me.RecordsetClone
.AddNew
!tenTB = Me.cbbTenTB
........
'va nhieu truong khac nua
.Update
Me.Bookmark = .LastModified
End With
End If

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Requery

Exit_Handler:
Exit Sub

Err_Handler:
MsgBox "Error " & Err.Number & " - " & Err.Description, , "cmdSaochep_Click"
Resume Exit_Handler
End Sub

Vấn đề ở chỗ mình muốn làm một nút New tạo mới record với các Field hoàn toàn trắng để người dùng có thể nhập dữ liệu, được sao lưu luôn và in ngay nhưng mình thử nhiều phương pháp mà không được:
1. Mình áp dụng code giống như nút Copy như trên nhưng chưa làm được việc gán giá trị các field của record mới là "trắng"
2. Sử dụng
DoCmd.GoToRecord , , acNewRec
thì nó sẽ không lưu và in luôn được mà phải khi tắt chương trình mở lại mới thấy record mới

Rất mong được sự giúp đỡ của các bạn, cám ơn rất nhiều !
Chữ ký của neverstopvn Xin chào, mình là neverstopvn, Tham gia http://thuthuataccess.com/forum từ ngày 20-05 -11.
Reply
Những người đã cảm ơn
#2
bạn thử phát biểu cặp lệnh này
Mã:
DoCmd.GoToRecord , , acNewRec ' tạo record mới
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 ' save record hiện hành
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , neverstopvn , nhunguyet0103


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lọc query có điều kiện để tạo report honglv157 3 152 01-12-16, 05:15 PM
Bài mới nhất: maidinhdan
  [Help] ẩn nút ""Close Windown" khi mở query tronghieu9792 4 84 30-11-16, 09:36 PM
Bài mới nhất: tronghieu9792
  [Hỏi] cách lọc nhân viên làm việc ở 2 phòng ban? hoanghai902 1 53 27-11-16, 04:49 PM
Bài mới nhất: Noname
Question [Help] Cần giúp đỡ tạo query lấy giá trị của dòng liền trước để tính giá trị trung bình luonguct 4 86 23-11-16, 12:33 AM
Bài mới nhất: luonguct
  Hướng Dẫn hướng dẫn làm query tieuho828 6 143 21-11-16, 12:36 AM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ